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') { |