<% include("/elements/header.html","Whois $domain", menubar( ( $custnum ? ( "View this customer (#$display_custnum)" => "${p}view/cust_main.cgi?$custnum", ) : () ), "View this domain (#$svcnum)" => "${p}view/svc_domain.cgi?$svcnum", )) %>
<% $whois %>
<% include('/elements/footer.html') %> <%init> my $svcnum = $cgi->param('svcnum'); my $custnum = $cgi->param('custnum'); my $domain = $cgi->param('domain'); my $display_custnum; if ( $custnum ) { my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); $display_custnum = $cust_main->display_custnum; } my $whois = eval { whois($domain) }; if ( $@ ) { ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s; } else { $whois =~ s/^\n+//; }