diff options
Diffstat (limited to 'bin/passwd.import')
-rwxr-xr-x | bin/passwd.import | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/passwd.import b/bin/passwd.import index df53b50..8ab9e2a 100755 --- a/bin/passwd.import +++ b/bin/passwd.import @@ -1,5 +1,4 @@ #!/usr/bin/perl -Tw -# $Id: passwd.import,v 1.5.4.3 2003-06-12 14:08:02 ivan Exp $ use strict; use vars qw(%part_svc); @@ -76,6 +75,8 @@ while (<SHADOW>) { my($username,$password)=split(/:/); #$password =~ s/^\!$/\*/; #$password =~ s/\!+/\*SUSPENDED\* /; + $password =~ s/^NP$/\*/; + $password =~ s/^\*LK\*$/\*/; $password{$username}=$password; } |