#!/usr/bin/perl -Tw
-# $Id: passwd.import,v 1.8 2003-06-12 14:08:00 ivan Exp $
use strict;
use vars qw(%part_svc);
my($username,$password)=split(/:/);
#$password =~ s/^\!$/\*/;
#$password =~ s/\!+/\*SUSPENDED\* /;
+ $password =~ s/^NP$/\*/;
+ $password =~ s/^\*LK\*$/\*/;
$password{$username}=$password;
}