<% 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 ) { <% 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' ) { (delete) % } % if ( $bgcolor eq $bgcolor1 ) { % $bgcolor = $bgcolor2; % } else { % $bgcolor = $bgcolor1; % } % } % }

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') || $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;