loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.70, 2002/02/07 10:22:44	version 1.71, 2002/02/12 23:08:27
Line 48	Line 48
# 12/22 Gerd Kortemeyer	# 12/22 Gerd Kortemeyer
# YEAR=2002	# YEAR=2002
# 01/20/02,02/05 Gerd Kortemeyer	# 01/20/02,02/05 Gerd Kortemeyer
	# 02/05 Guy Albertelli
	# 02/07 Scott Harrison
	# 02/12 Gerd Kortemeyer
###	###

# based on "Perl Cookbook" ISBN 1-56592-243-3	# based on "Perl Cookbook" ISBN 1-56592-243-3
Line 637 sub make_new_child {	Line 640 sub make_new_child {
$pwdcorrect=!$?;	$pwdcorrect=!$?;
}	}
} elsif ($howpwd eq 'krb4') {	} elsif ($howpwd eq 'krb4') {
	$null=pack("C",0);
	unless ($upass=~/$null/) {
$pwdcorrect=(	$pwdcorrect=(
Authen::Krb4::get_pw_in_tkt($uname,"",	Authen::Krb4::get_pw_in_tkt($uname,"",
$contentpwd,'krbtgt',$contentpwd,1,	$contentpwd,'krbtgt',$contentpwd,1,
$upass) == 0);	$upass) == 0);
	} else { $pwdcorrect=0; }
} elsif ($howpwd eq 'localauth') {	} elsif ($howpwd eq 'localauth') {
$pwdcorrect=&localauth::localauth($uname,$upass,	$pwdcorrect=&localauth::localauth($uname,$upass,
$contentpwd);	$contentpwd);