Will things ever be the same again?

[freeside.git] / httemplate / misc / whois.cgi

diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi
index dd7851d..d3d9649 100644 (file)
--- a/httemplate/misc/whois.cgi
+++ b/httemplate/misc/whois.cgi
@@ -1,10 +1,11 @@
-<%
-  my $svcnum = $cgi->param('svcnum');
-  my $custnum = $cgi->param('custnum');
-  my $domain = $cgi->param('domain');
+%
+%  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",
       )
@@ -13,13 +14,14 @@
   "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>
+% 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>