httemplate/misc/whois.cgi

   1 <% include("/elements/header.html","Whois $domain", menubar(
   2   ( $custnum
   3     ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
   4       )
   5     : ()
   6   ),
   7   "View this domain (#$svcnum)" => "${p}view/svc_domain.cgi?$svcnum",
   8 )) %>
   9
  10 <PRE><% $whois %></PRE>
  11
  12 <% include('/elements/footer.html') %>
  13
  14 <%init>
  15
  16 my $svcnum = $cgi->param('svcnum');
  17 my $custnum = $cgi->param('custnum');
  18 my $domain = $cgi->param('domain');
  19
  20 my $whois = eval { whois($domain) };
  21   if ( $@ ) {
  22     ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s;
  23   } else {
  24     $whois =~ s/^\n+//;
  25   }
  26
  27 </%init>