diff options
Diffstat (limited to 'httemplate/view/svc_www.cgi')
| -rw-r--r-- | httemplate/view/svc_www.cgi | 33 |
1 files changed, 8 insertions, 25 deletions
diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index ff9d57b5f..bc605be24 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -1,32 +1,16 @@ +<!-- $Id: svc_www.cgi,v 1.2 2002-01-30 14:18:09 ivan Exp $ --> <% -# <!-- $Id: svc_www.cgi,v 1.1 2001-12-15 22:56:07 ivan Exp $ --> -use strict; -use vars qw( $cgi $query $svcnum $svc_www $cust_svc $pkgnum - $cust_pkg $custnum $p $domain_record ); - #$part_svc $p $svc_acct $email -use CGI; -use FS::UID qw(cgisuidsetup); -use FS::CGI qw(header menubar popurl menubar); -use FS::Record qw(qsearchs); -use FS::svc_www; -use FS::domain_record; -use FS::cust_svc; -#use FS::cust_pkg; -#use FS::part_svc; - -$cgi = new CGI; -cgisuidsetup($cgi); - -($query) = $cgi->keywords; +my($query) = $cgi->keywords; $query =~ /^(\d+)$/; -$svcnum = $1; -$svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } ) +my $svcnum = $1; +my $svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } ) or die "svc_www: Unknown svcnum $svcnum"; #false laziness w/all svc_*.cgi -$cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -$pkgnum = $cust_svc->getfield('pkgnum'); +my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); +my $pkgnum = $cust_svc->getfield('pkgnum'); +my($cust_pkg, custnum); if ($pkgnum) { $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); $custnum = $cust_pkg->custnum; @@ -36,12 +20,11 @@ if ($pkgnum) { } #eofalse -$domain_record = qsearchs( 'domain_record', { 'recnum' => $svc_www->recnum } ) +my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) or die "svc_www: Unknown recnum". $svc_www->recnum; my $www = $domain_record->reczone; -$p = popurl(2); print header('Website View', menubar( ( ( $custnum ) ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", |