version 1.31, 2000/12/13 16:41:43
|
version 1.33, 2000/12/13 22:45:56
|
Line 477 sub make_new_child {
|
Line 477 sub make_new_child {
|
my |
my |
($cmd,$udom,$uname,$upass,$npass)=split(/:/,$userinput); |
($cmd,$udom,$uname,$upass,$npass)=split(/:/,$userinput); |
chomp($npass); |
chomp($npass); |
|
$upass=&unescape($upass); |
|
$npass=&unescape($npass); |
my $proname=propath($udom,$uname); |
my $proname=propath($udom,$uname); |
my $passfilename="$proname/passwd"; |
my $passfilename="$proname/passwd"; |
if (-e $passfilename) { |
if (-e $passfilename) { |
Line 511 sub make_new_child {
|
Line 513 sub make_new_child {
|
my |
my |
($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput); |
($cmd,$udom,$uname,$umode,$npass)=split(/:/,$userinput); |
chomp($npass); |
chomp($npass); |
|
$npass=&unescape($npass); |
my $proname=propath($udom,$uname); |
my $proname=propath($udom,$uname); |
my $passfilename="$proname/passwd"; |
my $passfilename="$proname/passwd"; |
if (-e $passfilename) { |
if (-e $passfilename) { |
Line 531 sub make_new_child {
|
Line 534 sub make_new_child {
|
} |
} |
unless ($fperror) { |
unless ($fperror) { |
if ($umode eq 'none') { |
if ($umode eq 'none') { |
} elsif ($umode eq 'kerberos') { |
} elsif ($umode eq 'krb4') { |
{ |
{ |
my $pf = IO::File->new(">$passfilename"); |
my $pf = IO::File->new(">$passfilename"); |
print $pf "kerberos:$npass\n"; |
print $pf "krb4:$npass\n"; |
} |
} |
print $client "ok\n"; |
print $client "ok\n"; |
} elsif ($umode eq 'internal') { |
} elsif ($umode eq 'internal') { |