From ff35c08c280ed66f88a23bd6122475362c0f8076 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 15 Dec 2001 22:56:07 +0000 Subject: view svc_www.cgi from Dave Burgess , thanks --- httemplate/view/svc_www.cgi | 59 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 httemplate/view/svc_www.cgi (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi new file mode 100644 index 000000000..ff9d57b5f --- /dev/null +++ b/httemplate/view/svc_www.cgi @@ -0,0 +1,59 @@ +<% +# + +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; +$query =~ /^(\d+)$/; +$svcnum = $1; +$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'); +if ($pkgnum) { + $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); + $custnum = $cust_pkg->custnum; +} else { + $cust_pkg = ''; + $custnum = ''; +} +#eofalse + +$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", + "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ) + : ( "Cancel this (unaudited) website" => + "${p}misc/cancel-unaudited.cgi?$svcnum" ) + ), + "Main menu" => $p, +)), + "Service #$svcnum", + "
Website name: $www.", + '', +; +%> -- cgit v1.2.1 From 1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 30 Jan 2002 14:18:09 +0000 Subject: remove use Module; and $cgi = new CGI; &cgisuidsetup(); from all templates. should work better under Mason. --- httemplate/view/svc_www.cgi | 33 ++++++++------------------------- 1 file changed, 8 insertions(+), 25 deletions(-) (limited to 'httemplate/view/svc_www.cgi') 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 @@ + <% -# -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", -- cgit v1.2.1 From 22a35047ecdffff80110e06cc08fc84f9ddba9b0 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 13:21:31 +0000 Subject: removed from all files to fix any redirects, whew Mason handler.pl overrides CGI::redirect fixed strict; problems in edit/part_pkg.cgi & edit/process/part_pkg.cgi --- httemplate/view/svc_www.cgi | 1 - 1 file changed, 1 deletion(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index bc605be24..2fc8ac459 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -1,4 +1,3 @@ - <% my($query) = $cgi->keywords; -- cgit v1.2.1 From a4c96748eb6eab29a70f3a944c6520283a635c78 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 16:05:22 +0000 Subject: *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. --- httemplate/view/svc_www.cgi | 1 + 1 file changed, 1 insertion(+) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 2fc8ac459..bd8ae36a6 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -1,3 +1,4 @@ + <% my($query) = $cgi->keywords; -- cgit v1.2.1 From f255042296a645e7d90c19ee6740796250cfb9f3 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 11 Feb 2002 19:38:58 +0000 Subject: svc_www is working! also auto-create and add A records if necessary using apacheip config file. and show all domain_records on view/svc_domain.cgi page --- httemplate/view/svc_www.cgi | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index bd8ae36a6..a82921f1b 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -10,7 +10,7 @@ my $svc_www = qsearchs( 'svc_www', { 'svcnum' => $svcnum } ) #false laziness w/all svc_*.cgi my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, custnum); +my($cust_pkg, $custnum); if ($pkgnum) { $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); $custnum = $cust_pkg->custnum; @@ -24,6 +24,10 @@ my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) or die "svc_www: Unknown recnum". $svc_www->recnum; my $www = $domain_record->reczone; +unless ( $www =~ /\.$/ ) { + my $svc_domain = qsearchs('svc_domain', { svcnum=>$domain_record->svcnum } ); + $www .= '.'. $svc_domain->domain; +} print header('Website View', menubar( ( ( $custnum ) @@ -36,7 +40,7 @@ print header('Website View', menubar( "Main menu" => $p, )), "Service #$svcnum", - "
Website name: $www.", + qq!
Website name: $www!, '', ; %> -- cgit v1.2.1 From 8f42b751aebda2e7dce2c363bed6f1e15b411b1d Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 20 Feb 2002 01:03:10 +0000 Subject: use Net::SSH::ssh_cmd for all job queueing rather than local duplicated ssh subs queue daemon updates: retry & remove links work, bubble up error message to webinterface, link to svcnum & have job listings on view/svc_* pages, closes: Bug#280 s/option/optionname/ schema change, dumb mysql, closes: Bug#334 --- httemplate/view/svc_www.cgi | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index a82921f1b..70a7a1be4 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -38,9 +38,10 @@ print header('Website View', menubar( "${p}misc/cancel-unaudited.cgi?$svcnum" ) ), "Main menu" => $p, -)), - "Service #$svcnum", - qq!
Website name: $www!, - '', +)). + "Service #$svcnum". + qq!
Website name: $www!. + '
'. joblisting({'svcnum'=>$svcnum}, 1). + '' ; %> -- cgit v1.2.1 From 6e863af6c6c3ebda89f1da6ca9c3c52fb9b1a54a Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 23 Jun 2002 05:43:08 +0000 Subject: add link to edit and format nicely --- httemplate/view/svc_www.cgi | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 70a7a1be4..86f693201 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -39,8 +39,13 @@ print header('Website View', menubar( ), "Main menu" => $p, )). - "Service #$svcnum". - qq!
Website name: $www!. + qq!Edit this information
!. + ntable("#cccccc"). ''. ntable("#cccccc",2). + qq!Service number!. + qq!$svcnum!. + qq!Website name!. + qq!$www!. + ''. '
'. joblisting({'svcnum'=>$svcnum}, 1). '' ; -- cgit v1.2.1 From 765837b89aa3baa8466213111ec9484042fb9acb Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 25 Jun 2002 23:27:23 +0000 Subject: add link to controlling account --- httemplate/view/svc_www.cgi | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 86f693201..9fa9661b1 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -20,8 +20,13 @@ if ($pkgnum) { } #eofalse +my $usersvc = $svc_www->usersvc; +my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) + or die "svc_www: Unknown usersvc $usersvc"; +my $email = $svc_acct->email; + my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) - or die "svc_www: Unknown recnum". $svc_www->recnum; + or die "svc_www: Unknown recnum ". $svc_www->recnum; my $www = $domain_record->reczone; unless ( $www =~ /\.$/ ) { @@ -45,6 +50,8 @@ print header('Website View', menubar( qq!$svcnum!. qq!Website name!. qq!$www!. + qq!Account!. + qq!$email!. ''. '
'. joblisting({'svcnum'=>$svcnum}, 1). '' -- cgit v1.2.1 From 48f60f666bab22a3ca5196cf6cd573b8691e4aae Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 29 Mar 2003 04:53:44 +0000 Subject: correct web UI for svc_www services & no more @.domain in www_shellcommands export --- httemplate/view/svc_www.cgi | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 9fa9661b1..442614491 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -28,11 +28,7 @@ my $email = $svc_acct->email; my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) or die "svc_www: Unknown recnum ". $svc_www->recnum; -my $www = $domain_record->reczone; -unless ( $www =~ /\.$/ ) { - my $svc_domain = qsearchs('svc_domain', { svcnum=>$domain_record->svcnum } ); - $www .= '.'. $svc_domain->domain; -} +my $www = $domain_record->zone; print header('Website View', menubar( ( ( $custnum ) -- cgit v1.2.1 From 58d44fbe5eb9ab32e6d87063a4a3b22ddba9a828 Mon Sep 17 00:00:00 2001 From: khoff Date: Tue, 5 Aug 2003 00:20:51 +0000 Subject: Virtual field merge --- httemplate/view/svc_www.cgi | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 442614491..7a716b4b8 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -47,8 +47,15 @@ print header('Website View', menubar( qq!Website name!. qq!$www!. qq!Account!. - qq!$email!. - ''. + qq!$email!; + +foreach (sort { $a cmp $b } $svc_www->virtual_fields) { + print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), + "\n"; +} + + +print ''. '
'. joblisting({'svcnum'=>$svcnum}, 1). '' ; -- cgit v1.2.1 From e3f327b2af9e6a591bae41d315fda731ec7f5128 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 22 Mar 2004 11:05:58 +0000 Subject: remove everything that links to package view also, closes: Bug#569 --- httemplate/view/svc_www.cgi | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 7a716b4b8..2980f846b 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -32,8 +32,7 @@ my $www = $domain_record->zone; print header('Website View', menubar( ( ( $custnum ) - ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) : ( "Cancel this (unaudited) website" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) -- cgit v1.2.1 From 0327e2c7c79a11ec950a58e518f8f36cd0f85302 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 26 May 2005 19:16:59 +0000 Subject: make svc_www.usersvc optional --- httemplate/view/svc_www.cgi | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) (limited to 'httemplate/view/svc_www.cgi') diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 2980f846b..6c8cd6a0b 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -21,9 +21,13 @@ if ($pkgnum) { #eofalse my $usersvc = $svc_www->usersvc; -my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) - or die "svc_www: Unknown usersvc $usersvc"; -my $email = $svc_acct->email; +my $svc_acct = ''; +my $email = ''; +if ( $usersvc ) { + $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) + or die "svc_www: Unknown usersvc $usersvc"; + $email = $svc_acct->email; +} my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) or die "svc_www: Unknown recnum ". $svc_www->recnum; @@ -46,7 +50,15 @@ print header('Website View', menubar( qq!Website name!. qq!$www!. qq!Account!. - qq!$email!; + qq!!; + +if ( $usersvc ) { + print qq!$email!; +} else { + print '(none)'; +} + +print ''; foreach (sort { $a cmp $b } $svc_www->virtual_fields) { print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), -- cgit v1.2.1