From c1bb4ddb71147d0571bd301a6d8c452fdf0e1bc9 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 31 Jan 2006 04:26:54 +0000 Subject: move header() to include(/elements/header.html) so it can be changed in one place, thanks to Scott Edwards --- httemplate/view/svc_domain.cgi | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'httemplate/view/svc_domain.cgi') diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 428f3e9bf..f39663094 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -32,7 +32,7 @@ my $domain = $svc_domain->domain; %> -<%= header('Domain View', menubar( +<%= include("/elements/header.html",'Domain View', menubar( ( ( $pkgnum || $custnum ) ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) -- cgit v1.2.1 From 3ce7691203a7737406bf2d4442f7fd84b81f847e Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 23 Aug 2006 22:25:39 +0000 Subject: Will things ever be the same again? It's the final masonize --- httemplate/view/svc_domain.cgi | 134 ++++++++++++++++++++++------------------- 1 file changed, 71 insertions(+), 63 deletions(-) (limited to 'httemplate/view/svc_domain.cgi') diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index f39663094..44390bf8b 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -1,38 +1,39 @@ -<% +% +% +%my($query) = $cgi->keywords; +%$query =~ /^(\d+)$/; +%my $svcnum = $1; +%my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum}); +%die "Unknown svcnum" unless $svc_domain; +% +%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->getfield('custnum'); +%} else { +% $cust_pkg = ''; +% $custnum = ''; +%} +% +%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); +%die "Unknown svcpart" unless $part_svc; +% +%my $email = ''; +%if ($svc_domain->catchall) { +% my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); +% die "Unknown svcpart" unless $svc_acct; +% $email = $svc_acct->email; +%} +% +%my $domain = $svc_domain->domain; +% +% -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum}); -die "Unknown svcnum" unless $svc_domain; -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->getfield('custnum'); -} else { - $cust_pkg = ''; - $custnum = ''; -} - -my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -die "Unknown svcpart" unless $part_svc; - -my $email = ''; -if ($svc_domain->catchall) { - my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); - die "Unknown svcpart" unless $svc_acct; - $email = $svc_acct->email; -} - -my $domain = $svc_domain->domain; - -%> - -<%= include("/elements/header.html",'Domain View', menubar( +<% include("/elements/header.html",'Domain View', menubar( ( ( $pkgnum || $custnum ) ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) @@ -42,12 +43,12 @@ my $domain = $svc_domain->domain; "Main menu" => $p, )) %> -Service #<%= $svcnum %> -
Service: <%= $part_svc->svc %> -
Domain name: <%= $domain %> -
Catch all email (change): -<%= $email ? "$email" : "(none)" %> -

View whois information. +Service #<% $svcnum %> +
Service: <% $part_svc->svc %> +
Domain name: <% $domain %> +
Catch all email (change): +<% $email ? "$email" : "(none)" %> +

View whois information.

+% my @records; if ( @records = $svc_domain->domain_record ) { -<% my @records; if ( @records = $svc_domain->domain_record ) { %> - <%= ntable("",2) %> + <% ntable("",2) %> ZoneTypeData +% foreach my $domain_record ( @records ) { +% my $type = $domain_record->rectype eq '_mstr' +% ? "(slave)" +% : $domain_record->recaf. ' '. $domain_record->rectype; +% - <% foreach my $domain_record ( @records ) { - my $type = $domain_record->rectype eq '_mstr' - ? "(slave)" - : $domain_record->recaf. ' '. $domain_record->rectype; - %> - <%= $domain_record->reczone %> - <%= $type %> - <%= $domain_record->recdata %> + <% $domain_record->reczone %> + <% $type %> + <% $domain_record->recdata %> +% unless ( $domain_record->rectype eq 'SOA' ) { + + (delete) +% } - <% unless ( $domain_record->rectype eq 'SOA' ) { %> - (delete) - <% } %> - <% } %> +% } + -<% } %> +% } +
-
- + + IN


or

-
- + + +% if ( @records ) { + Delete all records and +% } -<% if ( @records ) { %> Delete all records and <% } %> Slave from nameserver IP - +
-

<%= joblisting({'svcnum'=>$svcnum}, 1) %> +

<% joblisting({'svcnum'=>$svcnum}, 1) %> -- cgit v1.2.1 From 80206c4958e70b809ff1205a0d8322b5ca2d7fa8 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 28 Jan 2007 02:21:12 +0000 Subject: pretty up domain zone viewing a little --- httemplate/view/svc_domain.cgi | 35 +++++++++++++++++++++++++++-------- 1 file changed, 27 insertions(+), 8 deletions(-) (limited to 'httemplate/view/svc_domain.cgi') diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 44390bf8b..ff336f394 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -59,26 +59,45 @@ Service #<% $svcnum %> return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?"); } + % my @records; if ( @records = $svc_domain->domain_record ) { - <% ntable("",2) %> - ZoneTypeData + <% include('/elements/table-grid.html') %> + +% my $bgcolor1 = '#eeeeee'; +% my $bgcolor2 = '#ffffff'; +% my $bgcolor = $bgcolor2; + + + Zone + Type + Data + + % foreach my $domain_record ( @records ) { % my $type = $domain_record->rectype eq '_mstr' % ? "(slave)" % : $domain_record->recaf. ' '. $domain_record->rectype; -% - <% $domain_record->reczone %> - <% $type %> - <% $domain_record->recdata %> -% unless ( $domain_record->rectype eq 'SOA' ) { + + <% $domain_record->reczone %> + <% $type %> + <% $domain_record->recdata %> +% unless ( $domain_record->rectype eq 'SOA' ) { (delete) % } + + + + +% if ( $bgcolor eq $bgcolor1 ) { +% $bgcolor = $bgcolor2; +% } else { +% $bgcolor = $bgcolor1; +% } - % } -- cgit v1.2.1 From 17856ff5c299e4db21da28116f2666655c03f2c7 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 5 Feb 2007 12:51:05 +0000 Subject: C is for Cookie^WControl --- httemplate/view/svc_domain.cgi | 82 +++++++++++++++++++++++------------------- 1 file changed, 46 insertions(+), 36 deletions(-) (limited to 'httemplate/view/svc_domain.cgi') diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index ff336f394..7fdce37df 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -1,38 +1,3 @@ - -% -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum}); -%die "Unknown svcnum" unless $svc_domain; -% -%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->getfield('custnum'); -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -% -%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -%die "Unknown svcpart" unless $part_svc; -% -%my $email = ''; -%if ($svc_domain->catchall) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); -% die "Unknown svcpart" unless $svc_acct; -% $email = $svc_acct->email; -%} -% -%my $domain = $svc_domain->domain; -% -% - - <% include("/elements/header.html",'Domain View', menubar( ( ( $pkgnum || $custnum ) ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", @@ -132,4 +97,49 @@ Slave from nameserver IP

<% joblisting({'svcnum'=>$svcnum}, 1) %> - + +<% include('/elements/footer.html') %> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('View customer services') + || $FS::CurrentUser::CurrentUser->access_right('View customer'); #XXX remove me + +my($query) = $cgi->keywords; +$query =~ /^(\d+)$/; +my $svcnum = $1; +my $svc_domain = qsearchs({ + 'select' => 'svc_domain.*', + 'table' => 'svc_domain', + 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. + ' LEFT JOIN cust_pkg USING ( pkgnum ) '. + ' LEFT JOIN cust_main USING ( custnum ) ', + 'hashref' => {'svcnum'=>$svcnum}, + 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, +}); +die "Unknown svcnum" unless $svc_domain; + +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->getfield('custnum'); +} else { + $cust_pkg = ''; + $custnum = ''; +} + +my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); +die "Unknown svcpart" unless $part_svc; + +my $email = ''; +if ($svc_domain->catchall) { + my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); + die "Unknown svcpart" unless $svc_acct; + $email = $svc_acct->email; +} + +my $domain = $svc_domain->domain; + + -- cgit v1.2.1