httemplate/view/svc_www.cgi

   1 <%
   2 # <!-- $Id: svc_www.cgi,v 1.1 2001-12-15 22:56:07 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $query $svcnum $svc_www $cust_svc $pkgnum
   6              $cust_pkg $custnum $p $domain_record );
   7              #$part_svc $p $svc_acct $email
   8 use CGI;
   9 use FS::UID qw(cgisuidsetup);
  10 use FS::CGI qw(header menubar popurl menubar);
  11 use FS::Record qw(qsearchs);
  12 use FS::svc_www;
  13 use FS::domain_record;
  14 use FS::cust_svc;
  15 #use FS::cust_pkg;
  16 #use FS::part_svc;
  17
  18 $cgi = new CGI;
  19 cgisuidsetup($cgi);
  20
  21 ($query) = $cgi->keywords;
  22 $query =~ /^(\d+)$/;
  23 $svcnum = $1;
  24 $svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } )
  25   or die "svc_www: Unknown svcnum $svcnum";
  26
  27 #false laziness w/all svc_*.cgi
  28 $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
  29 $pkgnum = $cust_svc->getfield('pkgnum');
  30 if ($pkgnum) {
  31   $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
  32   $custnum = $cust_pkg->custnum;
  33 } else {
  34   $cust_pkg = '';
  35   $custnum = '';
  36 }
  37 #eofalse
  38
  39 $domain_record = qsearchs( 'domain_record', { 'recnum' => $svc_www->recnum } )
  40   or die "svc_www: Unknown recnum". $svc_www->recnum;
  41
  42 my $www = $domain_record->reczone;
  43
  44 $p = popurl(2);
  45 print header('Website View', menubar(
  46   ( ( $custnum )
  47     ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
  48         "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  49       )
  50     : ( "Cancel this (unaudited) website" =>
  51           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  52   ),
  53   "Main menu" => $p,
  54 )),
  55       "Service #$svcnum",
  56       "<BR>Website name: <B>$www</B>.",
  57       '</BODY></HTML>',
  58 ;
  59 %>