httemplate/view/svc_domain.cgi

   1 <%
   2 # <!-- $Id: svc_domain.cgi,v 1.5 2001-10-30 14:54:07 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $query $svcnum $svc_domain $domain $cust_svc $pkgnum
   6              $cust_pkg $custnum $part_svc $p $svc_acct $email);
   7 use CGI;
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::CGI qw(header menubar popurl menubar);
  10 use FS::Record qw(qsearchs);
  11 use FS::svc_domain;
  12 use FS::cust_svc;
  13 use FS::cust_pkg;
  14 use FS::part_svc;
  15
  16 $cgi = new CGI;
  17 cgisuidsetup($cgi);
  18
  19 ($query) = $cgi->keywords;
  20 $query =~ /^(\d+)$/;
  21 $svcnum = $1;
  22 $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
  23 die "Unknown svcnum" unless $svc_domain;
  24
  25 $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  26 $pkgnum = $cust_svc->getfield('pkgnum');
  27 if ($pkgnum) {
  28   $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  29   $custnum=$cust_pkg->getfield('custnum');
  30 } else {
  31   $cust_pkg = '';
  32   $custnum = '';
  33 }
  34
  35 $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
  36 die "Unknown svcpart" unless $part_svc;
  37
  38 if ($svc_domain->catchall) {
  39   $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
  40   die "Unknown svcpart" unless $svc_acct;
  41   $email = $svc_acct->email;
  42 }
  43
  44 $domain = $svc_domain->domain;
  45
  46 $p = popurl(2);
  47 print header('Domain View', menubar(
  48   ( ( $pkgnum || $custnum )
  49     ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
  50         "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  51       )
  52     : ( "Cancel this (unaudited) account" =>
  53           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  54   ),
  55   "Main menu" => $p,
  56 )),
  57       "Service #$svcnum",
  58       "<BR>Service: <B>", $part_svc->svc, "</B>",
  59       "<BR>Domain name: <B>$domain</B>.",
  60       qq!<BR>Catch all email <A HREF="${p}misc/catchall.cgi?$svcnum">(change)</A>:!,
  61       $email ? "<B>$email</B>." : "<I>(none)<I>",
  62       qq!<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=$domain;targetnic=auto">View whois information.</A>!,
  63       '</BODY></HTML>',
  64 ;
  65 %>