<% 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; %> <%= header('Domain View', menubar( ( ( $pkgnum || $custnum ) ? ( "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 %>
Catch all email (change): <%= $email ? "$email" : "(none)" %>

View whois information.

<% my @records; if ( @records = $svc_domain->domain_record ) { %> <%= ntable("",2) %> ZoneTypeData <% 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' ) { %> (delete) <% } %> <% } %> <% } %>
IN


or

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


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