freeside/httemplate/misc whois.cgi,NONE,1.1

[ivan]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory pouncequick:/tmp/cvs-serv28422/httemplate/misc

Added Files:
	whois.cgi 
Log Message:
add whois functionality internally instead of linking to geektools

--- NEW FILE: whois.cgi ---
<%
  my $svcnum = $cgi->param('svcnum');
  my $custnum = $cgi->param('custnum');
  my $domain = $cgi->param('domain');

%>
<%= header("Whois $domain", menubar(
  ( $custnum
    ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
      )
    : ()
  ),
  "View this domain (#$svcnum)" => "${p}view/svc_domain.cgi?$svcnum",
  "Main menu" => $p,
)) %>
<% my $whois = eval { whois($domain) };
   if ( $@ ) {
     ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s;
   } else {
     $whois =~ s/^\n+//;
   }
%>
<PRE><%= $whois %></PRE>
</BODY>
</HTML>