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