% % %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", ) : ( "Delete this (unaudited) domain" => "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?' )" ) ), "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 % foreach (qw( A NS CNAME MX PTR TXT) ) { <%$_%> % }

or

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

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