loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.197, 2002/01/04 16:31:41	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'});
Line 1736 sub modifyuserauth {	Line 1737 sub modifyuserauth {
sub modifyuser {	sub modifyuser {
my ($udom,$uname,$uid,$umode,$upass,$first,$middle,$last,$gene,	my ($udom,$uname,$uid,$umode,$upass,$first,$middle,$last,$gene,
$forceid)=@_;	$forceid)=@_;
	$udom=~s/\W//g;
	$uname=~s/\W//g;
&logthis('Call to modify user '.$udom.', '.$uname.', '.$uid.', '.	&logthis('Call to modify user '.$udom.', '.$uname.', '.$uid.', '.
$umode.', '.$first.', '.$middle.', '.	$umode.', '.$first.', '.$middle.', '.
$last.', '.$gene.'(forceid: '.$forceid.') by '.	$last.', '.$gene.'(forceid: '.$forceid.') by '.