version 1.32, 2000/12/13 21:46:37
|
version 1.33, 2000/12/13 22:45:56
|
Line 534 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') { |