summaryrefslogtreecommitdiff
path: root/httemplate/misc/whois.cgi
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2008-03-16 19:58:34 +0000
committercvs2git <cvs2git>2008-03-16 19:58:34 +0000
commiteb061f5119325e666f0dff40d4089e5c1df58e17 (patch)
treed55e8fef5aca62eb13bbc8ad20dbdf941c3bd266 /httemplate/misc/whois.cgi
parent3a17b276638200475d54201fa62566b7440e819a (diff)
This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6
Diffstat (limited to 'httemplate/misc/whois.cgi')
-rw-r--r--httemplate/misc/whois.cgi27
1 files changed, 0 insertions, 27 deletions
diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi
deleted file mode 100644
index 35d0eccc9..000000000
--- a/httemplate/misc/whois.cgi
+++ /dev/null
@@ -1,27 +0,0 @@
-<% 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",
-)) %>
-
-<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>