2 % my $svcnum = $cgi->param('svcnum');
3 % my $custnum = $cgi->param('custnum');
4 % my $domain = $cgi->param('domain');
8 <% include("/elements/header.html","Whois $domain", menubar(
10 ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
14 "View this domain (#$svcnum)" => "${p}view/svc_domain.cgi?$svcnum",
17 % my $whois = eval { whois($domain) };
19 % ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s;
25 <PRE><% $whois %></PRE>