X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fwhois.cgi;h=533b2d7a8df3090559d8317439f50872b9015e29;hb=c33e009d50f9af054a5a0195eca5df31c4fb9539;hp=d3d9649fde973f055bd52f41ce04dacfa4ae9288;hpb=9509e5bfb7f9331303153cac24d7bfecbe2ea9f1;p=freeside.git diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi index d3d9649fd..533b2d7a8 100644 --- a/httemplate/misc/whois.cgi +++ b/httemplate/misc/whois.cgi @@ -1,27 +1,33 @@ -% -% my $svcnum = $cgi->param('svcnum'); -% my $custnum = $cgi->param('custnum'); -% my $domain = $cgi->param('domain'); -% -% - <% include("/elements/header.html","Whois $domain", menubar( ( $custnum - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ? ( "View this customer (#$display_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+//; -% } -%
<% $whois %>-