X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fwhois.cgi;h=35d0eccc998ddde1df3bb45e48bf46be9c099b58;hb=c648976f0b7975f2328ebd7ba8c711fad0ca4195;hp=dd7851dc22e7268186cd789003f306f8cc5b254d;hpb=673b9a458d9138523026963df6fa3b4683e09bae;p=freeside.git

diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi
index dd7851dc2..35d0eccc9 100644
--- a/httemplate/misc/whois.cgi
+++ b/httemplate/misc/whois.cgi
@@ -1,25 +1,27 @@
-<%
-  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 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>
+
+<PRE><% $whois %></PRE>
+
+<% include('/elements/footer.html') %>
+
+<%init>
+
+my $svcnum = $cgi->param('svcnum');
+my $custnum = $cgi->param('custnum');
+my $domain = $cgi->param('domain');
+
+my $whois = eval { whois($domain) };
+  if ( $@ ) {
+    ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s;
+  } else {
+    $whois =~ s/^\n+//;
+  }
+
+</%init>