X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fcatchall.cgi;h=240f34d0e017a85814adeac4ceb37d7db699ec4e;hb=a218049cc9560b1bfc98f5803fba18f9f804e11b;hp=8881746d18cf54fd1eff8f75c3f1c2ed3026849f;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git diff --git a/httemplate/misc/catchall.cgi b/httemplate/misc/catchall.cgi index 8881746d1..240f34d0e 100755 --- a/httemplate/misc/catchall.cgi +++ b/httemplate/misc/catchall.cgi @@ -1,134 +1,118 @@ - -% -% -%my $conf = new FS::Conf; -% -%my($svc_domain, $svcnum, $pkgnum, $svcpart, $part_svc); -%if ( $cgi->param('error') ) { -% $svc_domain = new FS::svc_domain ( { -% map { $_, scalar($cgi->param($_)) } fields('svc_domain') -% } ); -% $svcnum = $svc_domain->svcnum; -% $pkgnum = $cgi->param('pkgnum'); -% $svcpart = $cgi->param('svcpart'); -% $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); -% die "No part_svc entry!" unless $part_svc; -%} else { -% my($query) = $cgi->keywords; -% if ( $query =~ /^(\d+)$/ ) { #editing -% $svcnum=$1; -% $svc_domain=qsearchs('svc_domain',{'svcnum'=>$svcnum}) -% or die "Unknown (svc_domain) svcnum!"; -% -% my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum}) -% or die "Unknown (cust_svc) svcnum!"; -% -% $pkgnum=$cust_svc->pkgnum; -% $svcpart=$cust_svc->svcpart; -% -% $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); -% die "No part_svc entry!" unless $part_svc; -% -% } else { -% -% die "Invalid (svc_domain) svcnum!"; -% -% } -%} -% -%my %email; -%if ($pkgnum) { -% -% #find all possible user svcnums (and emails) -% -% #starting with that currently attached -% if ($svc_domain->catchall) { -% my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svc_domain->catchall}); -% $email{$svc_domain->catchall} = $svc_acct->email; -% } -% -% #and including the rest for this customer -% my($u_part_svc,@u_acct_svcparts); -% foreach $u_part_svc ( qsearch('part_svc',{'svcdb'=>'svc_acct'}) ) { -% push @u_acct_svcparts,$u_part_svc->getfield('svcpart'); -% } -% -% my($cust_pkg)=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% my($custnum)=$cust_pkg->getfield('custnum'); -% my($i_cust_pkg); -% foreach $i_cust_pkg ( qsearch('cust_pkg',{'custnum'=>$custnum}) ) { -% my($cust_pkgnum)=$i_cust_pkg->getfield('pkgnum'); -% my($acct_svcpart); -% foreach $acct_svcpart (@u_acct_svcparts) { #now find the corresponding -% #record(s) in cust_svc ( for this -% #pkgnum ! ) -% my($i_cust_svc); -% foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) { -% my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$i_cust_svc->getfield('svcnum')}); -% $email{$svc_acct->getfield('svcnum')}=$svc_acct->email; -% } -% } -% } -% -%} else { -% -% my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$svc_domain->catchall}); -% $email{$svc_domain->catchall} = $svc_acct->email; -%} -% -%# add an absence of a catchall -%$email{''} = "(none)"; -% -%my $p1 = popurl(1); -%print header("Domain Catchall Edit", ''); -% -%print qq!Error: !, $cgi->param('error'), -% "" -% if $cgi->param('error'); -% -%print qq!