From 93f9e6282bb489fd4ddb7f0c6d38afb390d2ba62 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 24 Dec 2004 23:27:34 +0000 Subject: [PATCH] import NP and *LK* from shadow file as * (no password) --- bin/passwd.import | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 () { my($username,$password)=split(/:/); #$password =~ s/^\!$/\*/; #$password =~ s/\!+/\*SUSPENDED\* /; + $password =~ s/^NP$/\*/; + $password =~ s/^\*LK\*$/\*/; $password{$username}=$password; } -- 2.11.0