From 91afc5dc28aba2dd6a56ca57dc0c0ff1f3e1a710 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 17 Mar 2004 22:53:08 +0000 Subject: [PATCH] allow multiple svcparts --- bin/shadow.reimport | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/bin/shadow.reimport b/bin/shadow.reimport index a3347b478..4c0b8e50f 100755 --- a/bin/shadow.reimport +++ b/bin/shadow.reimport @@ -33,9 +33,10 @@ $FS::svc_Common::noexport_hack = 1; die "No services with svcdb svc_acct!\n" unless %part_svc; print "\n\n", &menu_svc, "\n", <) { chop; my($username,$password)=split(/:/); - my @svc_acct = grep { $_->cust_svc->svcpart == $shell_svcpart } - qsearch('svc_acct', { 'username' => $username } ); +# my @svc_acct = grep { $_->cust_svc->svcpart == $shell_svcpart } +# qsearch('svc_acct', { 'username' => $username } ); + my @svc_acct = grep { + my $svcpart = $_->cust_svc->svcpart; + grep { $_ == $svcpart } @shell_svcpart; + } qsearch('svc_acct', { 'username' => $username } ); next unless @svc_acct; -- 2.11.0