Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.523, 2016/07/25 19:49:45 | version 1.524, 2016/08/11 16:35:14 |
---|---|
Line 7726 sub make_passwd_file { | Line 7726 sub make_passwd_file { |
my $pf = IO::File->new(">$passfilename"); | my $pf = IO::File->new(">$passfilename"); |
if($pf) { | if($pf) { |
print $pf "localauth:$npass\n"; | print $pf "localauth:$npass\n"; |
&update_passwd_history($uname,$udom,$umode,$action); | |
} else { | } else { |
$result = "pass_file_failed_error"; | $result = "pass_file_failed_error"; |
} | } |