#$FS::domain_record::noserial_hack = 1;
use vars qw($defaultdomain);
-$defaultdomain = 'surferz.net';
+$defaultdomain = '295.ca';
-use vars qw($svcpart $forward_svcpart);
-$svcpart = 2;
-$forward_svcpart = 4;
+use vars qw(@svcpart $forward_svcpart);
+@svcpart = qw( 2 4 );
+$forward_svcpart = 7;
use vars qw($spooldir);
$spooldir = "/usr/local/etc/freeside/export.". datasrc. "/sendmail";
my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } );
my $domsvc = $svc_domain ? $svc_domain->svcnum : '';
- my @svc_acct = grep { $_->cust_svc->svcpart == $svcpart }
+ my @svc_acct = grep { my $svc_acct = $_;
+ grep { $svc_acct->cust_svc->svcpart == $_ } @svcpart
+ }
qsearch('svc_acct', {
'username' => $username,
'domsvc' => $domsvc,