3 my $conf = new FS::Conf;
5 my($query)=$cgi->keywords;
6 $query ||= ''; #to avoid use of unitialized value errors
7 my(@svc_forward,$sortby);
8 if ( $query eq 'svcnum' ) {
10 @svc_forward=qsearch('svc_forward',{});
12 eidiot('unimplemented');
15 if ( scalar(@svc_forward) == 1 ) {
16 print $cgi->redirect(popurl(2). "view/svc_forward.cgi?". $svc_forward[0]->svcnum);
18 } elsif ( scalar(@svc_forward) == 0 ) {
22 eidiot "No matching forwards found!\n";
27 my $total = scalar(@svc_forward);
28 print header("Mail forward Search Results",''), <<END;
30 $total matching mail forwards found
31 <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
33 <TH>Service #<BR><FONT SIZE=-1>(click to view forward)</FONT></TH>
34 <TH>Mail to<BR><FONT SIZE=-1>(click to view account)</FONT></TH>
35 <TH>Forwards to<BR><FONT SIZE=-1>(click to view account)</FONT></TH>
39 foreach my $svc_forward (
40 sort $sortby (@svc_forward)
42 my $svcnum = $svc_forward->svcnum;
44 my $src = $svc_forward->src;
45 $src = "<I>(anything)</I>$src" if $src =~ /^@/;
46 if ( $svc_forward->srcsvc_acct ) {
47 $src = qq!<A HREF="${p}view/svc_acct.cgi?!. $svc_forward->srcsvc. '">'.
48 $svc_forward->srcsvc_acct->email. '</A>';
51 my $dst = $svc_forward->dst;
52 if ( $svc_forward->dstsvc_acct ) {
53 $dst = qq!<A HREF="${p}view/svc_acct.cgi?!. $svc_forward->dstsvc. '">'.
54 $svc_forward->dstsvc_acct->email. '</A>';
59 <TD><A HREF="${p}view/svc_forward.cgi?$svcnum">$svcnum</A></TD>
76 $a->getfield('svcnum') <=> $b->getfield('svcnum');