loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.198, 2002/01/04 18:12:23	version 1.199, 2002/02/04 15:31:22
Line 66	Line 66
# 12/18 Scott Harrison	# 12/18 Scott Harrison
# 12/21,12/22,12/27,12/28 Gerd Kortemeyer	# 12/21,12/22,12/27,12/28 Gerd Kortemeyer
# YEAR=2002	# YEAR=2002
# 1/4 Gerd Kortemeyer	# 1/4,2/4 Gerd Kortemeyer
#	#
###	###

Line 391 sub queryauthenticate {	Line 391 sub queryauthenticate {
sub authenticate {	sub authenticate {
my ($uname,$upass,$udom)=@_;	my ($uname,$upass,$udom)=@_;
$upass=escape($upass);	$upass=escape($upass);
	$uname=~s/\W//g;
if (($perlvar{'lonRole'} eq 'library') &&	if (($perlvar{'lonRole'} eq 'library') &&
($udom eq $perlvar{'lonDefDomain'})) {	($udom eq $perlvar{'lonDefDomain'})) {
my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});	my $answer=reply("encrypt:auth:$udom:$uname:$upass",$perlvar{'lonHostID'});