|
version 1.91, 2002/08/22 20:00:00
|
version 1.93, 2002/08/26 14:30:53
|
|
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') { |
|
Line 815 sub make_new_child {
|
Line 814 sub make_new_child {
|
| if ($udom ne $perlvar{'lonDefDomain'}) { |
if ($udom ne $perlvar{'lonDefDomain'}) { |
| print $client "not_right_domain\n"; |
print $client "not_right_domain\n"; |
| } else { |
} else { |
| &make_passwd_file($umode,$npass,$passfilename); |
my $result=&make_passwd_file($umode,$npass, |
| |
$passfilename); |
| print $client $result; |
print $client $result; |
| } |
} |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom