httemplate/misc/whois.cgi

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