loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.2, 1999/11/08 16:20:35	version 1.3, 1999/11/16 22:00:17
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# TCP networking package	# TCP networking package
# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,	# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8 Gerd Kortemeyer	# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,11/8,11/16 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 171 sub authenticate {	Line 171 sub authenticate {

if (($perlvar{'lonRole'} eq 'library') &&	if (($perlvar{'lonRole'} eq 'library') &&
($udom eq $perlvar{'lonDefDomain'})) {	($udom eq $perlvar{'lonDefDomain'})) {
my $answer=reply("enc:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});	my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});
if ($answer =~ /authorized/) {	if ($answer =~ /authorized/) {
if ($answer eq 'authorized') { return $perlvar{'lonHostID'}; }	if ($answer eq 'authorized') { return $perlvar{'lonHostID'}; }
if ($answer eq 'non_authorized') { return 'no_host'; }	if ($answer eq 'non_authorized') { return 'no_host'; }