added order_pkgs sub
[freeside.git] / fs_selfadmin / fs_mailadmin_server
1 #!/usr/bin/perl -Tw
2 #
3 # fs_mailadmin_server
4 #
5
6 use strict;
7 use IO::Handle;
8 use FS::SSH qw(sshopen2);
9 use FS::UID qw(adminsuidsetup);
10 use FS::Conf;
11 use FS::Record qw( qsearch qsearchs );
12 use FS::cust_main_county;
13 use FS::cust_main;
14 use FS::svc_acct_admin;
15
16 use vars qw( $opt $Debug $conf $default_domain );
17
18 $Debug = 1;
19
20 #my @payby = qw(CARD PREPAY);
21
22 my $user = shift or die &usage;
23 &adminsuidsetup( $user ); 
24
25 $conf = new FS::Conf;
26 $default_domain = $conf->config('domain');
27
28 my $machine = shift or die &usage;
29
30 my $agentnum = shift or die &usage;
31 my $agent = qsearchs( 'agent', { 'agentnum' => $agentnum } ) or die &usage;
32 my $pkgpart = $agent->pkgpart_hashref;
33
34 my $refnum = shift or die &usage;
35
36 #causing trouble for some folks
37 #$SIG{CHLD} = sub { wait() };
38
39 my($fs_mailadmind)=$conf->config('fs_mailadmind');
40
41 while (1) {
42   my($reader,$writer)=(new IO::Handle, new IO::Handle);
43   $writer->autoflush(1);
44   warn "[fs_mailadmin_server] Connecting to $machine...\n" if $Debug;
45   sshopen2($machine,$reader,$writer,$fs_mailadmind);
46
47   my $data;
48
49   warn "[fs_mailadmin_server] Sending locales...\n" if $Debug;
50   my @cust_main_county = qsearch('cust_main_county', {} );
51   print $writer $data = join("\n",
52     ( scalar(@cust_main_county) || die "no tax rates (cust_main_county records)" ),
53     map {
54       $_->taxnum,
55       $_->state,
56       $_->county,
57       $_->country,
58     } @cust_main_county
59   ),"\n";
60   warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
61
62   warn "[fs_mailadmin_server] Sending package definitions...\n" if $Debug;
63   my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
64     qsearch( 'part_pkg', {} );
65   print $writer $data = join("\n",
66     ( scalar(@part_pkg) || die "no usable package definitions, agent $agentnum" ),
67     map {
68       $_->pkgpart,
69       $_->pkg,
70     } @part_pkg
71   ), "\n";
72   warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
73
74   warn "[fs_mailadmin_server] Sending POPs...\n" if $Debug;
75   my @svc_acct_pop = qsearch ('svc_acct_pop',{} );
76   print $writer $data = join("\n",
77     ( scalar(@svc_acct_pop) || die "No points of presence (svc_acct_pop records)" ),
78     map {
79       $_->popnum,
80       $_->city,
81       $_->state,
82       $_->ac,
83       $_->exch,
84       $_->loc,
85     } @svc_acct_pop
86   ), "\n";
87   warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
88
89   warn "[fs_mailadmin_server] Entering main loop...\n" if $Debug;
90 COMMAND:  while (1) {
91     warn "[fs_mailadmin_server] Reading (waiting for) command...\n" if $Debug;
92     chop( my($command, $user) = map { scalar(<$reader>) } ( 1 .. 2 ) );
93     my $domain = $default_domain;
94     $user =~ /^([\w\.\-]+)\@(([\w\-]+\.)+\w+)$/;
95     ($user, $domain) = ($1, $2);
96
97     if ($command eq 'authenticate'){
98       warn "[fs_mailadmin_server] Processing authenticate command for $user \n" if $Debug;
99       chop( my($password) = map { scalar(<$reader>) } ( 1 .. 1 ) );
100
101       my $error = '';
102
103       my @svc_domain = qsearchs('svc_domain', { 'domain'   => $domain });
104
105       if (scalar(@svc_domain) != 1) {
106         warn "Nonexistant or duplicate service account for \"$domain\"";
107         next COMMAND;
108       }
109
110       my @svc_acct = qsearchs('svc_acct', { 'username' => $user,
111                                             'domsvc'   => $svc_domain[0]->svcnum });
112       if (scalar(@svc_acct) != 1) {
113         die "Nonexistant or duplicate service account for \"$user\"";
114         next COMMAND;
115       }
116
117       if ($svc_acct[0]->_password eq $password) {
118         $error = "$user\@$domain OK";
119       }else{
120         $error = "$user\@$domain FAILED";
121       }
122       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
123       print $writer $error, "\n";
124     }
125     elsif ($command eq 'list_packages'){
126       warn "[fs_mailadmin_server] Processing list_packages command for $user \n" if $Debug;
127
128       my $error = '';
129
130       my @packages = eval {find_administrable_packages( $user, $domain )};
131       warn "$@" if $@; 
132
133       my %packages;
134       my %accounts;
135
136       foreach my $package (@packages) {
137         $packages{my $pkgnum = $package->getfield('pkgnum')} = $default_domain;
138         $accounts{$pkgnum} = 0;
139         my @services = qsearch('cust_svc', { 'pkgnum' => $pkgnum });
140         foreach my $service (@services) {
141           if ($service->getfield('svcpart') eq '4'){
142             my $account=qsearchs('svc_domain', { 'svcnum' => $service->getfield('svcnum') });
143             $packages{$pkgnum}=$account->getfield('domain');
144             $accounts{$pkgnum}=$account->getfield('svcnum');
145           }
146         }
147       }
148       
149       print $writer $data = join("\n",
150         ( scalar(keys(%packages)) ),
151         map {
152           $_,
153           $packages{$_},
154           $accounts{$_},
155         } keys(%packages)
156       ), "\n";
157       warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
158
159     }elsif ($command eq 'list_mailboxes'){
160
161       warn "[fs_mailadmin_server] Processing list_mailboxes command for $user" if $Debug;
162       chop( my($pkgnum) = map { scalar(<$reader>) } ( 1 .. 1 ) );
163       warn "package $pkgnum \n" if $Debug;
164
165       my $error = '';
166
167       my @packages = eval {find_administrable_packages( $user, $domain )};
168       warn "$@" if $@; 
169
170       my @accounts;
171
172       foreach my $package (@packages) {
173         next unless ($pkgnum eq $package->getfield('pkgnum'));
174         my @services = qsearch('cust_svc', { 'pkgnum' => $package->getfield('pkgnum') });
175         foreach my $service (@services) {
176           if ($service->getfield('svcpart') eq '2'){
177             my $account=qsearchs('svc_acct', { 'svcnum' => $service->getfield('svcnum') });
178 #           $accounts[$#accounts+1]=$account->getfield('username');
179             $accounts[$#accounts+1]=$account;
180           }
181         }
182       }
183       
184       print $writer $data = join("\n",
185 #        ( scalar(@accounts) || die "No accounts (svc_acct records)" ),
186         ( scalar(@accounts) ),
187         map {
188           $_->svcnum,
189 #          $_->username,
190           $_->email,
191 #          $_->_password,
192           '*****',
193         } @accounts
194       ), "\n";
195       warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
196
197       
198     } elsif ($command eq 'delete_mailbox'){
199       warn "[fs_mailadmin_server] Processing delete_mailbox command for $user " if $Debug;
200       chop( my($account) = map { scalar(<$reader>) } ( 1 .. 1 ) );
201       warn "account $account \n" if $Debug;
202
203       my $error = '';
204
205       my @packages = eval { find_administrable_packages($user, $domain) };
206       warn "$@" if $@; 
207       $error ||= "$@" if $@; 
208
209       my @svc_acct = qsearchs('svc_acct', { 'svcnum' => $account }) unless $error;
210       if (scalar(@svc_acct) != 1) { $error ||= 'Nonexistant or duplicate service account for user.' };
211       if (! $error && check_administrator(\@packages, $svc_acct[0])){
212 # not sure about the next three lines... do we delete? or return error
213         foreach my $svc_forward (qsearch('svc_forward', { 'dstsvc' => $svc_acct[0]->getfield('svcnum') })) {
214           $error ||= $svc_forward->delete;
215         }
216         foreach my $svc_forward (qsearch('svc_forward', { 'srcsvc' => $svc_acct[0]->getfield('svcnum') })) {
217           $error ||= $svc_forward->delete;
218         }
219         $error ||= $svc_acct[0]->delete;
220       } else {
221         $error ||= "Illegal attempt to remove service";
222       }
223
224       
225       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
226       print $writer $error, "\n";
227       
228     } elsif ($command eq 'password_mailbox'){
229       warn "[fs_mailadmin_server] Processing password_mailbox command for $user " if $Debug;
230       chop( my($account, $_password) = map { scalar(<$reader>) } ( 1 .. 2 ) );
231       warn "account $account with password $_password \n" if $Debug;
232
233       my $error = '';
234
235       my @packages = eval { find_administrable_packages($user, $domain) };
236       warn "$@" if $@; 
237       $error ||= "$@" if $@; 
238
239       my @svc_acct = qsearchs('svc_acct', { 'svcnum' => $account }) unless $error;
240       if (scalar(@svc_acct) != 1) { $error ||= 'Nonexistant or duplicate service account.' };
241
242       if (! $error && check_administrator(\@packages, $svc_acct[0])){
243         my $new = new FS::svc_acct ({$svc_acct[0]->hash});
244         $new->setfield('_password' => $_password);
245         $error ||= $new->replace($svc_acct[0]);
246       } else {
247         $error ||= "Illegal attempt to change password";
248       }
249
250       
251       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
252       print $writer $error, "\n";
253       
254     } elsif ($command eq 'add_mailbox'){
255       warn "[fs_mailadmin_server] Processing add_mailbox command for $user " if $Debug;
256       chop( my($target_package, $account, $_password) = map { scalar(<$reader>) } ( 1 .. 3 ) );
257       warn "in package $target_package account $account with password $_password \n" if $Debug;
258
259       my $found_package;
260       my $domainsvc=0;
261       my $svcpart=2;    # this is 'email box'
262       my $svcpartsm=3;  # this is 'domain alias'
263       my $error = '';
264       my $found = 0;
265
266       my @packages = eval { find_administrable_packages($user, $domain) };
267       warn "$@" if $@; 
268       $error ||= "$@" if $@; 
269
270       foreach my $package (@packages) {
271         if ($package->getfield('pkgnum') eq $target_package) {
272           $found = 1;
273           $found_package=$package;
274           my @services = qsearch('cust_svc', { 'pkgnum' => $target_package });
275           foreach my $service (@services) {
276             if ($service->getfield('svcpart') eq '4'){
277               my @svc_domain=qsearchs('svc_domain', { 'svcnum' => $service->getfield('svcnum') });
278               if (scalar(@svc_domain) eq 1) {
279                 $domainsvc=$svc_domain[0]->getfield('svcnum');
280               }
281             }
282           }
283           last;
284         }
285       }
286       warn "User $user does not have administration rights to package $target_package\n" unless $found;
287       $error ||= "User $user does not have administration rights to package $target_package\n" unless $found;
288
289       my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$found_package->getfield('pkgpart')});
290
291       #list of services this pkgpart includes (although at the moment we only care
292       #  about $svcpart
293       my $pkg_svc;
294       my %pkg_svc = ();
295       foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $found_package->pkgpart }) ) {
296         $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
297       }
298
299       my @services = qsearch('cust_svc', {'pkgnum'  => $found_package->getfield('pkgnum'),
300                                           'svcpart' => $svcpart,
301                                          });
302
303       if (scalar(@services) >= $pkg_svc{$svcpart}) {
304         $error="Maximum allowed already reached.";
305       }
306       
307       my $svc_acct = new FS::svc_acct ( {
308         'pkgnum'    => $found_package->pkgnum,
309         'svcpart'   => $svcpart,
310         'username'  => $account,
311         'domsvc'    => $domainsvc,
312         '_password' => $_password,
313       } );
314
315       my $y = $svc_acct->setdefault; # arguably should be in new method
316       $error ||= $y unless ref($y);
317       #and just in case you were silly
318       $svc_acct->pkgnum($found_package->pkgnum);
319       $svc_acct->svcpart($svcpart);
320       $svc_acct->username($account);
321       $svc_acct->domsvc($domainsvc);
322       $svc_acct->_password($_password);
323
324       $error ||= $svc_acct->check;
325
326       if ( ! $error ) { #in this case, $cust_pkg should always
327                                      #be definied, but....
328         $error ||= $svc_acct->insert;
329         warn "WARNING: $error on pre-checked svc_acct record!" if $error;
330       }
331
332       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
333       print $writer $error, "\n";
334       
335     }elsif ($command eq 'list_forwards'){
336
337       warn "[fs_mailadmin_server] Processing list_forwards command for $user" if $Debug;
338       chop( my($svcnum) = map { scalar(<$reader>) } ( 1 .. 1 ) );
339       warn "service $svcnum \n" if $Debug;
340
341       my $error = '';
342
343       my @packages = eval {find_administrable_packages( $user, $domain )};
344       warn "$@" if $@; 
345
346       my @forwards;
347
348       foreach my $package (@packages) {
349 #        next unless ($pkgnum eq $package->getfield('pkgnum'));
350         my @services = qsearch('cust_svc', { 'pkgnum' => $package->getfield('pkgnum') });
351         foreach my $service (@services) {
352           if ($service->getfield('svcpart') eq '10'){
353             my $forward=qsearchs('svc_forward', { 'svcnum' => $service->getfield('svcnum') });
354             $forwards[$#forwards+1]=$forward if ($forward->getfield('srcsvc') == $svcnum);
355           }
356         }
357       }
358       
359       print $writer $data = join("\n",
360         ( scalar(@forwards) ),
361         map {
362           $_->svcnum,
363           ($_->dstsvc ? qsearchs('svc_acct', {'svcnum' => $_->dstsvc})->email : $_->dst),
364         } @forwards
365       ), "\n";
366       warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
367
368       
369     }elsif ($command eq 'list_pkg_forwards'){
370
371       warn "[fs_mailadmin_server] Processing list_pkg_forwards command for $user" if $Debug;
372       chop( my($pkgnum) = map { scalar(<$reader>) } ( 1 .. 1 ) );
373       warn "package $pkgnum \n" if $Debug;
374
375       my $error = '';
376
377       my @packages = eval {find_administrable_packages( $user, $domain )};
378       warn "$@" if $@; 
379
380       my @forwards;
381
382       foreach my $package (@packages) {
383         next unless ($pkgnum eq $package->getfield('pkgnum'));
384         my @services = qsearch('cust_svc', { 'pkgnum' => $package->getfield('pkgnum') });
385         foreach my $service (@services) {
386           if ($service->getfield('svcpart') eq '10'){
387             my $forward=qsearchs('svc_forward', { 'svcnum' => $service->getfield('svcnum') });
388             $forwards[$#forwards+1]=$forward;
389           }
390         }
391       }
392       
393       print $writer $data = join("\n",
394         ( scalar(@forwards) ),
395         map {
396           $_->svcnum,
397           $_->srcsvc,
398           ($_->dstsvc ? qsearchs('svc_acct', {'svcnum' => $_->dstsvc})->email : $_->dst),
399         } @forwards
400       ), "\n";
401       warn "[fs_mailadmin_server] $data\n" if $Debug > 2;
402
403       
404     } elsif ($command eq 'delete_forward'){
405       warn "[fs_mailadmin_server] Processing delete_forward command for $user " if $Debug;
406       chop( my($forward) = map { scalar(<$reader>) } ( 1 .. 1 ) );
407       warn "forward $forward \n" if $Debug;
408
409       my $error = '';
410
411       my @packages = eval { find_administrable_packages($user, $domain) };
412       warn "$@" if $@; 
413       $error ||= "$@" if $@; 
414
415       my @svc_forward = qsearchs('svc_forward', { 'svcnum' => $forward }) unless $error;
416       if (scalar(@svc_forward) != 1) { $error ||= 'Nonexistant or duplicate service account for user.' };
417       if (! $error && check_administrator(\@packages, $svc_forward[0])){
418 # not sure about the next three lines... do we delete? or return error
419         $error ||= $svc_forward[0]->delete;
420       } else {
421         $error ||= "Illegal attempt to remove service";
422       }
423
424       
425       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
426       print $writer $error, "\n";
427       
428     } elsif ($command eq 'add_forward'){
429       warn "[fs_mailadmin_server] Processing add_forward command for $user " if $Debug;
430       chop( my($target_package, $source, $dest) = map { scalar(<$reader>) } ( 1 .. 3 ) );
431       warn "in package $target_package source $source with destination $dest \n" if $Debug;
432
433       my $found_package;
434       my $domainsvc=0;
435       my $svcpart=10;   # this is 'forward service'
436       my $error = '';
437       my $found = 0;
438
439       my @packages = eval { find_administrable_packages($user, $domain) };
440       warn "$@" if $@; 
441       $error ||= "$@" if $@; 
442
443       foreach my $package (@packages) {
444         if ($package->getfield('pkgnum') eq $target_package) {
445           $found = 1;
446           $found_package=$package;
447           last;
448         }
449       }
450       warn "User $user does not have administration rights to package $target_package\n" unless $found;
451       $error ||= "User $user does not have administration rights to package $target_package\n" unless $found;
452
453       my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $source });
454       warn "Forwarding source $source does not exist.\n" unless $svc_acct;
455       $error ||= "Forwarding source $source does not exist.\n" unless $svc_acct;
456
457       my $cust_svc = qsearchs('cust_svc', { 'svcnum' => $source });
458       warn "Forwarding source $source not attached to any account.\n" unless $cust_svc;
459       $error ||= "Forwarding source $source not attached to any account.\n" unless $cust_svc;
460
461       if ( ! $error ) {
462         warn "Forwarding source $source is not in package $target_package\n"
463           unless ($cust_svc->getfield('pkgnum') == $target_package);
464         $error ||= "Forwarding source $source is not in package $target_package\n"
465           unless ($cust_svc->getfield('pkgnum') == $target_package);
466       }
467
468       my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$found_package->getfield('pkgpart')});
469
470       #list of services this pkgpart includes (although at the moment we only care
471       #  about $svcpart
472       my $pkg_svc;
473       my %pkg_svc = ();
474       foreach $pkg_svc ( qsearch('pkg_svc',{'pkgpart'=> $found_package->pkgpart }) ) {
475         $pkg_svc{$pkg_svc->svcpart} = $pkg_svc->quantity if $pkg_svc->quantity;
476       }
477
478       my @services = qsearch('cust_svc', {'pkgnum'  => $found_package->getfield('pkgnum'),
479                                           'svcpart' => $svcpart,
480                                          });
481
482       if (scalar(@services) >= $pkg_svc{$svcpart}) {
483         $error="Maximum allowed already reached.";
484       }
485       
486       my $svc_forward = new FS::svc_forward ( {
487         'pkgnum'    => $found_package->pkgnum,
488         'svcpart'   => $svcpart,
489         'srcsvc'  => $source,
490         'dstsvc'    => 0,
491         'dst' => $dest,
492       } );
493
494       my $y = $svc_forward->setdefault; # arguably should be in new method
495       $error ||= $y unless ref($y);
496       #and just in case you were silly
497       $svc_forward->pkgnum($found_package->pkgnum);
498       $svc_forward->svcpart($svcpart);
499       $svc_forward->srcsvc($source);
500       $svc_forward->dstsvc(0);
501       $svc_forward->dst($dest);
502
503       $error ||= $svc_forward->check;
504
505       if ( ! $error ) { #in this case, $cust_pkg should always
506                                      #be definied, but....
507         $error ||= $svc_forward->insert;
508         warn "WARNING: $error on pre-checked svc_forward record!" if $error;
509       }
510
511       warn "[fs_mailadmin_server] Sending results...\n" if $Debug;
512       print $writer $error, "\n";
513       
514     } else {
515       warn "[fs_mailadmin_server] Bad command: $command \n" if $Debug;
516       print $writer "Bad command \n";
517     }
518   }
519   close $writer;
520   close $reader;
521   warn "connection to $machine lost!  waiting 60 seconds...\n";
522   sleep 60;
523   warn "reconnecting...\n";
524 }
525
526 sub usage {
527   die "Usage:\n\n  fs_mailadmin_server user machine agentnum refnum\n";
528 }
529
530 #sub find_administrable_packages {
531 #      my $user = shift;
532 #
533 #      my $error = '';
534 #
535 #      my @svc_acct = qsearchs('svc_acct', { 'username' => $user });
536 #      if (scalar(@svc_acct) != 1) {
537 #        die "Nonexistant or duplicate service account for \"$user\"";
538 #      }
539 #
540 #      my @cust_svc = qsearchs('cust_svc', { 'svcnum' => $svc_acct[0]->getfield('svcnum') });
541 #      if (scalar(@cust_svc) != 1 ) {
542 #        die "Nonexistant or duplicate customer service for \"$user\"";
543 #      }
544 #
545 #      my @cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc[0]->getfield('pkgnum') });
546 #      if (scalar(@cust_pkg) != 1) {
547 #        die "Nonexistant or duplicate customer package for \"$user\"";
548 #      }
549 #
550 #      my @cust_main = qsearchs('cust_main', { 'custnum' => $cust_pkg[0]->getfield('custnum') });
551 #      if (scalar(@cust_main) != 1 ) {
552 #        die "Nonexistant or duplicate customer for \"$user\"";
553 #      }
554 #
555 #      my @packages = $cust_main[0]->ncancelled_pkgs;
556 #}
557
558 sub find_administrable_packages {
559       my $user = shift;
560       my $domain = shift;
561
562       my @packages;
563       my $error = '';
564
565       my @svc_domain = qsearchs('svc_domain', { 'domain'   => $domain });
566
567       if (scalar(@svc_domain) != 1) {
568         die "Nonexistant or duplicate service account for \"$domain\"";
569       }
570
571       my @svc_acct = qsearchs('svc_acct', { 'username' => $user,
572                                             'domsvc'   => $svc_domain[0]->svcnum });
573       if (scalar(@svc_acct) != 1) {
574         die "Nonexistant or duplicate service account for \"$user\"";
575       }
576
577       my @svc_acct_admin = qsearch('svc_acct_admin', {'adminsvc' => $svc_acct[0]->getfield('svcnum') });
578       die "Nonexistant or duplicate customer service for \"$user\"" unless scalar(@svc_acct_admin);
579
580       foreach my $svc_acct_admin (@svc_acct_admin) {
581         my @cust_svc = qsearchs('cust_svc', { 'svcnum' => $svc_acct_admin->getfield('svcnum') });
582         if (scalar(@cust_svc) != 1 ) {
583           die "Nonexistant or duplicate customer service for admin \"$svc_acct_admin->getfield('svcnum')\"";
584         }
585
586         my @cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc[0]->getfield('pkgnum') });
587         if (scalar(@cust_pkg) != 1) {
588           die "Nonexistant or duplicate customer package for admin \"$user\"";
589         }
590
591         push @packages, $cust_pkg[0] unless $cust_pkg[0]->getfield('cancel');
592
593       }
594       (@packages);
595 }
596
597 sub check_administrator {
598       my ($allowed_packages_aref, $svc_acct_ref) = @_;
599
600       my $error = '';
601       my $found = 0;
602
603       {
604         my @cust_svc = qsearchs('cust_svc', { 'svcnum' => $svc_acct_ref->getfield('svcnum') });
605         if (scalar(@cust_svc) != 1 ) {
606           warn "Nonexistant or duplicate customer service for \"$svc_acct_ref->getfield('username')\"";
607           last;
608         }
609
610         my @cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc[0]->getfield('pkgnum') });
611         if (scalar(@cust_pkg) != 1) {
612           warn "Nonexistant or duplicate customer package for \"$svc_acct_ref->getfield('username')\"";
613           last;
614         }
615
616         foreach my $package (@$allowed_packages_aref) {
617           if ($package->getfield('pkgnum') eq $cust_pkg[0]->getfield('pkgnum')) {
618             $found = 1;
619             last;
620           }
621         }
622       }
623
624       $found;
625 }
626
627 sub check_add {
628       my ($allowed_packages_aref, $target_package) = @_;
629
630       my $error = '';
631       my $found = 0;
632
633       foreach my $package (@$allowed_packages_aref) {
634         if ($package->getfield('pkgnum') eq $target_package) {
635           $found = 1;
636           last;
637         }
638       }
639
640       $found;
641 }
642