X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_domain.cgi;h=a58d75ed6638d56917b956dedf3b9af7afe7e9ab;hb=f9938915b0df2609f41c24d761d607595d5d0a34;hp=28214f04efd530c4bd59c94698982ae5de938253;hpb=23186f0338ec248d930c85db08cc997bca42525b;p=freeside.git diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 28214f04e..a58d75ed6 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -1,10 +1,138 @@ - -<% +<% include("/elements/header.html",'Domain View', menubar( + ( ( $pkgnum || $custnum ) + ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ) + : ( "Delete this (unaudited) domain" => + "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?' )" ) + ) +)) %> + +Service #<% $svcnum %> +Service: <% $part_svc->svc %> +Domain name: <% $domain %> +Catch all email +% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) { + Catch all email(change): +} else { + Catch all email: +% } + +<% $email ? "$email" : "(none)" %> +View whois information. + + + +% my @records; if ( @records = $svc_domain->domain_record ) { + + <% 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' +% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') +% ) { +% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; + (delete) +% } + + + + +% if ( $bgcolor eq $bgcolor1 ) { +% $bgcolor = $bgcolor2; +% } else { +% $bgcolor = $bgcolor1; +% } + +% } + + +% } + +% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) { + + + + + IN + +% foreach (qw( A NS CNAME MX PTR TXT) ) { + <%$_%> +% } + + + + + + + or + + + + +% if ( @records ) { + Delete all records and +% } + 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'); my($query) = $cgi->keywords; $query =~ /^(\d+)$/; my $svcnum = $1; -my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum}); +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}); @@ -30,52 +158,4 @@ if ($svc_domain->catchall) { my $domain = $svc_domain->domain; -print header('Domain View', menubar( - ( ( $pkgnum || $custnum ) - ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) domain" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), - "Main menu" => $p, -)), - "Service #$svcnum", - "Service: ", $part_svc->svc, "", - "Domain name: $domain.", - qq!Catch all email (change):!, - $email ? "$email." : "(none)", - qq!View whois information.!, - '', - '', - ntable("",2), - 'ZoneTypeData', -; - - -foreach my $domain_record ( $svc_domain->domain_record ) { - print ''. $domain_record->reczone. ''. - ''. $domain_record->recaf. ' '. $domain_record->rectype. ''. - ''. $domain_record->recdata; - print qq! (delete)! - unless $domain_record->rectype eq 'SOA'; - print ''; -} -print ''. - qq!!. - qq!!. - ' '. - 'IN '. - ''. - join('', map qq!$_!, qw(A NS CNAME MX) ). - ''. - ' '. - ''. joblisting({'svcnum'=>$svcnum}, 1). - '