summaryrefslogtreecommitdiff
path: root/bin/passwd.import
diff options
context:
space:
mode:
Diffstat (limited to 'bin/passwd.import')
-rwxr-xr-xbin/passwd.import12
1 files changed, 9 insertions, 3 deletions
diff --git a/bin/passwd.import b/bin/passwd.import
index fbf27370f..093f8bafd 100755
--- a/bin/passwd.import
+++ b/bin/passwd.import
@@ -1,5 +1,5 @@
#!/usr/bin/perl -Tw
-# $Id: passwd.import,v 1.5 2002-06-21 09:57:05 ivan Exp $
+# $Id: passwd.import,v 1.8 2003-06-12 14:08:00 ivan Exp $
use strict;
use vars qw(%part_svc);
@@ -14,7 +14,7 @@ use FS::part_svc;
my $user = shift or die &usage;
adminsuidsetup $user;
-push @FS::svc_acct::shells, qw(/bin/sync /sbin/shuddown /bin/halt); #others?
+push @FS::svc_acct::shells, qw(/bin/sync /sbin/shutdown /bin/halt /sbin/halt); #others?
my($spooldir)="/usr/local/etc/freeside/export.". datasrc;
@@ -104,7 +104,13 @@ while (<PASSWD>) {
});
my($error);
$error=$svc_acct->insert;
- die $error if $error;
+ if ( $error ) {
+ if ( $error =~ /duplicate/i ) {
+ warn "$username: $error";
+ } else {
+ die "$username: $error";
+ }
+ }
}