loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.91, 2002/08/22 20:00:00	version 1.92, 2002/08/22 21:37:35
Line 660 sub make_new_child {	Line 660 sub make_new_child {
$null=pack("C",0);	$null=pack("C",0);
unless ($upass=~/$null/) {	unless ($upass=~/$null/) {
my $krbclient=&Authen::Krb5::parse_name($uname.'@'.$contentpwd);	my $krbclient=&Authen::Krb5::parse_name($uname.'@'.$contentpwd);
&logthis("Realm ".$krbclient->realm);
my $krbservice="krbtgt/".$contentpwd."\@".$contentpwd;	my $krbservice="krbtgt/".$contentpwd."\@".$contentpwd;
my $krbserver=&Authen::Krb5::parse_name($krbservice);	my $krbserver=&Authen::Krb5::parse_name($krbservice);
my $credentials=&Authen::Krb5::cc_default();	my $credentials=&Authen::Krb5::cc_default();
Line 668 sub make_new_child {	Line 667 sub make_new_child {
my $krbreturn =	my $krbreturn =
&Authen::Krb5::get_in_tkt_with_password(	&Authen::Krb5::get_in_tkt_with_password(
$krbclient,$krbserver,$upass,$credentials);	$krbclient,$krbserver,$upass,$credentials);
unless ($krbreturn) {	# unless ($krbreturn) {
&logthis("Krb5 Error: ".	# &logthis("Krb5 Error: ".
&Authen::Krb5::error());	# &Authen::Krb5::error());
}	# }
$pwdcorrect = ($krbreturn == 1);	$pwdcorrect = ($krbreturn == 1);
} else { $pwdcorrect=0; }	} else { $pwdcorrect=0; }
} elsif ($howpwd eq 'localauth') {	} elsif ($howpwd eq 'localauth') {