summaryrefslogtreecommitdiff
path: root/httemplate/misc/whois.cgi
diff options
context:
space:
mode:
authorivan <ivan>2008-01-13 21:14:19 +0000
committerivan <ivan>2008-01-13 21:14:19 +0000
commitf49f11d4c3c4ba9480cc5c9acfaa606a5ba73ad1 (patch)
tree2104b5d1a05433756d3b91ee436cfaa8c24ab464 /httemplate/misc/whois.cgi
parent2d53d2ebdce80d0f0dc7f75ccf506a06c2f852f9 (diff)
ACLs
Diffstat (limited to 'httemplate/misc/whois.cgi')
-rw-r--r--httemplate/misc/whois.cgi34
1 files changed, 17 insertions, 17 deletions
diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi
index d3d9649fd..35d0eccc9 100644
--- a/httemplate/misc/whois.cgi
+++ b/httemplate/misc/whois.cgi
@@ -1,10 +1,3 @@
-%
-% 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",
@@ -12,16 +5,23 @@
: ()
),
"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>
+
+<% 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>