diff options
Diffstat (limited to 'httemplate/view/svc_domain.cgi')
-rwxr-xr-x | httemplate/view/svc_domain.cgi | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index f30211098..f086cda1a 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -46,6 +46,17 @@ print header('Domain View', menubar( qq!<BR>Catch all email <A HREF="${p}misc/catchall.cgi?$svcnum">(change)</A>:!, $email ? "<B>$email</B>." : "<I>(none)<I>", qq!<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=$domain;targetnic=auto">View whois information.</A>!, - '</BODY></HTML>', + '<BR><BR>', ntable("",2), + '<tr><th>Zone</th><th>Type</th><th>Data</th></tr>', ; + +foreach my $domain_record ( qsearch('domain_record', { svcnum => $svcnum } ) ) { + print '<tr><td>'. $domain_record->reczone. '</td>'. + '<td>'. $domain_record->recaf. ' '. $domain_record->rectype. '</td>'. + '<td>'. $domain_record->recdata. '</td></tr>'; +} +print '</table>'; + +print '</BODY></HTML>'; + %> |