httemplate/search/svc_domain.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4
   5 my($query)=$cgi->keywords;
   6 $query ||= ''; #to avoid use of unitialized value errors
   7 my(@svc_domain,$sortby);
   8 if ( $query eq 'svcnum' ) {
   9   $sortby=\*svcnum_sort;
  10   @svc_domain=qsearch('svc_domain',{});
  11 } elsif ( $query eq 'domain' ) {
  12   $sortby=\*domain_sort;
  13   @svc_domain=qsearch('svc_domain',{});
  14 } elsif ( $query eq 'UN_svcnum' ) {
  15   $sortby=\*svcnum_sort;
  16   @svc_domain = grep qsearchs('cust_svc',{
  17       'svcnum' => $_->svcnum,
  18       'pkgnum' => '',
  19     }), qsearch('svc_domain',{});
  20 } elsif ( $query eq 'UN_domain' ) {
  21   $sortby=\*domain_sort;
  22   @svc_domain = grep qsearchs('cust_svc',{
  23       'svcnum' => $_->svcnum,
  24       'pkgnum' => '',
  25     }), qsearch('svc_domain',{});
  26 } else {
  27   $cgi->param('domain') =~ /^([\w\-\.]+)$/;
  28   my($domain)=$1;
  29   #push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
  30   @svc_domain = qsearchs('svc_domain',{'domain'=>$domain});
  31 }
  32
  33 if ( scalar(@svc_domain) == 1 ) {
  34   print $cgi->redirect(popurl(2). "view/svc_domain.cgi?". $svc_domain[0]->svcnum);
  35   #exit;
  36 } elsif ( scalar(@svc_domain) == 0 ) {
  37 %>
  38 <!-- mason kludge -->
  39 <%
  40   eidiot "No matching domains found!\n";
  41 } else {
  42 %>
  43 <!-- mason kludge -->
  44 <%
  45   my($total)=scalar(@svc_domain);
  46   print header("Domain Search Results",''), <<END;
  47
  48     $total matching domains found
  49     <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
  50       <TR>
  51         <TH>Service #</TH>
  52         <TH>Domain</TH>
  53 <!--        <TH>Mail to<BR><FONT SIZE=-1>(click to view account)</FONT></TH>
  54         <TH>Forwards to<BR><FONT SIZE=-1>(click to view account)</FONT></TH>
  55 -->
  56       </TR>
  57 END
  58
  59 #  my(%saw);                 # if we've multiple domains with the same
  60                              # svcnum, then we've a corrupt database
  61
  62   foreach my $svc_domain (
  63 #    sort $sortby grep(!$saw{$_->svcnum}++, @svc_domain)
  64     sort $sortby (@svc_domain)
  65   ) {
  66     my($svcnum,$domain)=(
  67       $svc_domain->svcnum,
  68       $svc_domain->domain,
  69     );
  70
  71     #don't display all accounts here
  72     my $rowspan = 1;
  73
  74     #my @svc_acct=qsearch('svc_acct',{'domsvc' => $svcnum});
  75     #my $rowspan = 0;
  76     #
  77     #my $n1 = '';
  78     #my($svc_acct, @rows);
  79     #foreach $svc_acct (
  80     #  sort {$b->getfield('username') cmp $a->getfield('username')} (@svc_acct)
  81     #) {
  82     #
  83     #  my (@forwards) = ();
  84     #
  85     #  my($svcnum,$username)=(
  86     #    $svc_acct->svcnum,
  87     #    $svc_acct->username,
  88     #  );
  89     #
  90     #  my @svc_forward = qsearch( 'svc_forward', { 'srcsvc' => $svcnum } );
  91     #  my $svc_forward;
  92     #  foreach $svc_forward (@svc_forward) {
  93     #    my($dstsvc,$dst) = (
  94     #      $svc_forward->dstsvc,
  95     #      $svc_forward->dst,
  96     #    );
  97     #    if ($dstsvc) {
  98     #      my $dst_svc_acct=qsearchs( 'svc_acct', { 'svcnum' => $dstsvc } );
  99     #      my $destination=$dst_svc_acct->email;
 100     #      push @forwards, qq!<TD><A HREF="!, popurl(2),
 101     #            qq!view/svc_acct.cgi?$dstsvc">$destination</A>!,
 102     #            qq!</TD></TR>!
 103     #      ;
 104     #    }else{
 105     #      push @forwards, qq!<TD>$dst</TD></TR>!
 106     #      ;
 107     #    }
 108     #  }
 109     #
 110     #  push @rows, qq!$n1<TD ROWSPAN=!, (scalar(@svc_forward) || 1),
 111     #        qq!><A HREF="!. popurl(2). qq!view/svc_acct.cgi?$svcnum">!,
 112     #  #print '', ( ($domuser eq '*') ? "<I>(anything)</I>" : $domuser );
 113     #        ( ($username eq '*') ? "<I>(anything)</I>" : $username ),
 114     #        qq!\@$domain</A> </TD>!,
 115     #  ;
 116     #
 117     #  push @rows, @forwards;
 118     #
 119     #  $rowspan += (scalar(@svc_forward) || 1);
 120     #  $n1 = "</TR><TR>";
 121     #}
 122     ##end of false laziness
 123     #
 124     #
 125
 126     print <<END;
 127     <TR>
 128       <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_domain.cgi?$svcnum">$svcnum</A></TD>
 129       <TD ROWSPAN=$rowspan><A HREF="${p}view/svc_domain.cgi?$svcnum">$domain</A></TD>
 130 END
 131
 132     #print @rows;
 133     print "</TR>";
 134
 135   }
 136
 137   print <<END;
 138     </TABLE>
 139   </BODY>
 140 </HTML>
 141 END
 142
 143 }
 144
 145 sub svcnum_sort {
 146   $a->getfield('svcnum') <=> $b->getfield('svcnum');
 147 }
 148
 149 sub domain_sort {
 150   $a->getfield('domain') cmp $b->getfield('domain');
 151 }
 152
 153
 154 %>