<% my $conf = new FS::Conf; my($query)=$cgi->keywords; $query ||= ''; #to avoid use of unitialized value errors my(@svc_forward,$sortby); if ( $query eq 'svcnum' ) { $sortby=\*svcnum_sort; @svc_forward=qsearch('svc_forward',{}); } else { eidiot('unimplemented'); } if ( scalar(@svc_forward) == 1 ) { print $cgi->redirect(popurl(2). "view/svc_forward.cgi?". $svc_forward[0]->svcnum); #exit; } elsif ( scalar(@svc_forward) == 0 ) { %> <% eidiot "No matching forwards found!\n"; } else { %> <% my $total = scalar(@svc_forward); print header("Mail forward Search Results",''), < Service #
(click to view forward) Mail to
(click to view account) Forwards to
(click to view account) END foreach my $svc_forward ( sort $sortby (@svc_forward) ) { my $svcnum = $svc_forward->svcnum; my $src = $svc_forward->src; $src = "(anything)$src" if $src =~ /^@/; if ( $svc_forward->srcsvc_acct ) { $src = qq!'. $svc_forward->srcsvc_acct->email. ''; } my $dst = $svc_forward->dst; if ( $svc_forward->dstsvc_acct ) { $dst = qq!'. $svc_forward->dstsvc_acct->email. ''; } print < $svcnum $src $dst END } print < END } sub svcnum_sort { $a->getfield('svcnum') <=> $b->getfield('svcnum'); } %>