#!/usr/bin/perl -Tw
#
-# $Id: svc_acct.import,v 1.12 2001-04-22 01:56:15 ivan Exp $
+# $Id: svc_acct.import,v 1.13 2001-05-05 08:51:16 ivan Exp $
#
# ivan@sisd.com 98-mar-9
#
# don't import /var/spool/freeside/conf/shells! ivan@sisd.com 98-aug-13
#
# $Log: svc_acct.import,v $
-# Revision 1.12 2001-04-22 01:56:15 ivan
+# Revision 1.13 2001-05-05 08:51:16 ivan
+# http://www.sisd.com/freeside/list-archive/msg01915.html
+#
+# Revision 1.12 2001/04/22 01:56:15 ivan
# get rid of FS::SSH.pm (became Net::SSH and Net::SCP on CPAN)
#
# Revision 1.11 2000/06/29 12:27:01 ivan
while (<SHADOW>) {
chop;
my($username,$password)=split(/:/);
+ $password =~ s/\!+/\*SUSPENDED\* /;
$password{$username}=$password;
}