diff options
author | ivan <ivan> | 2004-12-24 23:27:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-24 23:27:34 +0000 |
commit | 93f9e6282bb489fd4ddb7f0c6d38afb390d2ba62 (patch) | |
tree | 23844f34a165e14b4212cba69813416d4d914a8b /bin | |
parent | e84dda39cd83ef67dd2debd7d06d97d1a124b598 (diff) |
import NP and *LK* from shadow file as * (no password)
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/passwd.import | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/passwd.import b/bin/passwd.import index 093f8bafd..26ffffb87 100755 --- a/bin/passwd.import +++ b/bin/passwd.import @@ -1,5 +1,5 @@ #!/usr/bin/perl -Tw -# $Id: passwd.import,v 1.8 2003-06-12 14:08:00 ivan Exp $ +# $Id: passwd.import,v 1.9 2004-12-24 23:27:34 ivan Exp $ use strict; use vars qw(%part_svc); @@ -76,6 +76,8 @@ while (<SHADOW>) { my($username,$password)=split(/:/); #$password =~ s/^\!$/\*/; #$password =~ s/\!+/\*SUSPENDED\* /; + $password =~ s/^NP$/\*/; + $password =~ s/^\*LK\*$/\*/; $password{$username}=$password; } |