X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fwhois.cgi;h=533b2d7a8df3090559d8317439f50872b9015e29;hp=dd7851dc22e7268186cd789003f306f8cc5b254d;hb=cee66872f5c67825cae5a0f86da3fb0657c4ebae;hpb=a5651d5945c790b0d3fee0cd5082269a21adc6ee diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi index dd7851dc2..533b2d7a8 100644 --- a/httemplate/misc/whois.cgi +++ b/httemplate/misc/whois.cgi @@ -1,25 +1,33 @@ -<% - my $svcnum = $cgi->param('svcnum'); - my $custnum = $cgi->param('custnum'); - my $domain = $cgi->param('domain'); - -%> -<%= header("Whois $domain", menubar( +<% 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 %>
- - + +
<% $whois %>
+ +<% include('/elements/footer.html') %> + +<%init> + +my $svcnum = $cgi->param('svcnum'); +my $custnum = $cgi->param('custnum'); +my $domain = $cgi->param('domain'); + +my $display_custnum; +if ( $custnum ) { + my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); + $display_custnum = $cust_main->display_custnum; +} + +my $whois = eval { whois($domain) }; + if ( $@ ) { + ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s; + } else { + $whois =~ s/^\n+//; + } + +