#!/usr/bin/perl -Tw
-# $Id: passwd.import,v 1.3 2002-06-21 09:13:16 ivan Exp $
+# $Id: passwd.import,v 1.5 2002-06-21 09:57:05 ivan Exp $
use strict;
use vars qw(%part_svc);
use Term::Query qw(query);
use Net::SCP qw(iscp);
use FS::UID qw(adminsuidsetup datasrc);
-use FS::Record qw(qsearch);
+use FS::Record qw(qsearch qsearchs);
use FS::svc_acct;
use FS::part_svc;
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,