httemplate/view/svc_www.cgi

   1 <%
   2
   3 my($query) = $cgi->keywords;
   4 $query =~ /^(\d+)$/;
   5 my $svcnum = $1;
   6 my $svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } )
   7   or die "svc_www: Unknown svcnum $svcnum";
   8
   9 #false laziness w/all svc_*.cgi
  10 my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
  11 my $pkgnum = $cust_svc->getfield('pkgnum');
  12 my($cust_pkg, custnum);
  13 if ($pkgnum) {
  14   $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
  15   $custnum = $cust_pkg->custnum;
  16 } else {
  17   $cust_pkg = '';
  18   $custnum = '';
  19 }
  20 #eofalse
  21
  22 my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } )
  23   or die "svc_www: Unknown recnum". $svc_www->recnum;
  24
  25 my $www = $domain_record->reczone;
  26
  27 print header('Website View', menubar(
  28   ( ( $custnum )
  29     ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
  30         "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  31       )
  32     : ( "Cancel this (unaudited) website" =>
  33           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  34   ),
  35   "Main menu" => $p,
  36 )),
  37       "Service #$svcnum",
  38       "<BR>Website name: <B>$www</B>.",
  39       '</BODY></HTML>',
  40 ;
  41 %>