htdocs/search/svc_domain.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # $Id: svc_domain.cgi,v 1.3 1998-12-23 03:06:50 ivan Exp $
   4 #
   5 # Usage: post form to:
   6 #        http://server.name/path/svc_domain.cgi
   7 #
   8 # Note: Should be run setuid freeside as user nobody.
   9 #
  10 # ivan@voicenet.com 97-mar-5
  11 #
  12 # rewrite ivan@sisd.com 98-mar-14
  13 #
  14 # Changes to allow page to work at a relative position in server
  15 #       bmccane@maxbaud.net     98-apr-3
  16 #
  17 # display total, use FS::CGI now does browsing too ivan@sisd.com 98-jul-17
  18 #
  19 # $Log: svc_domain.cgi,v $
  20 # Revision 1.3  1998-12-23 03:06:50  ivan
  21 # $cgi->keywords instead of $cgi->query_string
  22 #
  23 # Revision 1.2  1998/12/17 09:41:12  ivan
  24 # s/CGI::(Base|Request)/CGI.pm/;
  25 #
  26
  27 use strict;
  28 use CGI;
  29 use CGI::Carp qw(fatalsToBrowser);
  30 use FS::UID qw(cgisuidsetup);
  31 use FS::Record qw(qsearch qsearchs);
  32 use FS::CGI qw(header idiot popurl);
  33
  34 my($cgi)=new CGI;
  35 &cgisuidsetup($cgi);
  36
  37 my(@svc_domain);
  38 my($sortby);
  39
  40 my($query)=$cgi->keywords;
  41 if ( $query eq 'svcnum' ) {
  42   $sortby=\*svcnum_sort;
  43   @svc_domain=qsearch('svc_domain',{});
  44 } elsif ( $query eq 'domain' ) {
  45   $sortby=\*domain_sort;
  46   @svc_domain=qsearch('svc_domain',{});
  47 } elsif ( $query eq 'UN_svcnum' ) {
  48   $sortby=\*svcnum_sort;
  49   @svc_domain = grep qsearchs('cust_svc',{
  50       'svcnum' => $_->svcnum,
  51       'pkgnum' => '',
  52     }), qsearch('svc_domain',{});
  53 } elsif ( $query eq 'UN_domain' ) {
  54   $sortby=\*domain_sort;
  55   @svc_domain = grep qsearchs('cust_svc',{
  56       'svcnum' => $_->svcnum,
  57       'pkgnum' => '',
  58     }), qsearch('svc_domain',{});
  59 } else {
  60   $cgi->param('domain') =~ /^([\w\-\.]+)$/;
  61   my($domain)=$1;
  62   push @svc_domain, qsearchs('svc_domain',{'domain'=>$domain});
  63 }
  64
  65 if ( scalar(@svc_domain) == 1 ) {
  66   print $cgi->redirect(popurl(2). "view/svc_domain.cgi?". $svc_domain[0]->svcnum);
  67   exit;
  68 } elsif ( scalar(@svc_domain) == 0 ) {
  69   idiot "No matching domains found!\n";
  70   exit;
  71 } else {
  72   CGI::Base::SendHeaders(); # one guess
  73
  74   my($total)=scalar(@svc_domain);
  75   CGI::Base::SendHeaders(); # one guess
  76   print header("Domain Search Results",''), <<END;
  77
  78     $total matching domains found
  79     <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
  80       <TR>
  81         <TH>Service #</TH>
  82         <TH>Domain</TH>
  83         <TH></TH>
  84       </TR>
  85 END
  86
  87   my(%saw,$svc_domain);
  88   my $p = popurl(2);
  89   foreach $svc_domain (
  90     sort $sortby grep(!$saw{$_->svcnum}++, @svc_domain)
  91   ) {
  92     my($svcnum,$domain)=(
  93       $svc_domain->svcnum,
  94       $svc_domain->domain,
  95     );
  96     my($malias);
  97     if ( qsearch('svc_acct_sm',{'domsvc'=>$svcnum}) ) {
  98       $malias=(
  99         qq|<FORM ACTION="svc_acct_sm.cgi" METHOD="post">|.
 100           qq|<INPUT TYPE="hidden" NAME="domuser" VALUE="">|.
 101           qq|<INPUT TYPE="hidden" NAME="domain" VALUE="$domain">|.
 102           qq|<INPUT TYPE="submit" VALUE="(mail aliases)">|.
 103           qq|</FORM>|
 104       );
 105     } else {
 106       $malias='';
 107     }
 108     print <<END;
 109     <TR>
 110       <TD><A HREF="${p}view/svc_domain.cgi?$svcnum"><FONT SIZE=-1>$svcnum</FONT></A></TD>
 111       <TD><FONT SIZE=-1>$domain</FONT></TD>
 112       <TD><FONT SIZE=-1>$malias</FONT></TD>
 113     </TR>
 114 END
 115   }
 116
 117   print <<END;
 118     </TABLE>
 119     </CENTER>
 120   </BODY>
 121 </HTML>
 122 END
 123
 124 }
 125
 126 sub svcnum_sort {
 127   $a->getfield('svcnum') <=> $b->getfield('svcnum');
 128 }
 129
 130 sub domain_sort {
 131   $a->getfield('domain') cmp $b->getfield('doimain');
 132 }
 133
 134