no, don't check for duplicates like this by default... not new-export style

diff --git a/bin/passwd.import b/bin/passwd.import
index d8fc013..fbf2737 100755 (executable)
--- a/bin/passwd.import
+++ b/bin/passwd.import
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -Tw
 #!/usr/bin/perl -Tw

-# $Id: passwd.import,v 1.4 2002-06-21 09:15:59 ivan Exp $
+# $Id: passwd.import,v 1.5 2002-06-21 09:57:05 ivan Exp $

 
 use strict;
 use vars qw(%part_svc);
 
 use strict;
 use vars qw(%part_svc);


@@ -86,10 +86,10 @@ while (<PASSWD>) {
 
   my $svcpart = $shell_svcpart;
 
 
   my $svcpart = $shell_svcpart;
 

-  if ( qsearchs('svc_acct', { 'username' => $username } ) ) {
-    warn "warning: $username already exists; skipping\n";
-    next;
-  }
+  #if ( qsearchs('svc_acct', { 'username' => $username } ) ) {
+  #  warn "warning: $username already exists; skipping\n";
+  #  next;
+  #}

 
   my($svc_acct) = new FS::svc_acct ({
     'svcpart'   => $svcpart,
 
   my($svc_acct) = new FS::svc_acct ({
     'svcpart'   => $svcpart,