diff options
author | cvs2git <cvs2git> | 2004-04-05 09:08:40 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2004-04-05 09:08:40 +0000 |
commit | f7f141cc60e8e14810ae7011eac87d98c2096292 (patch) | |
tree | 82d013ad74ec47e379656f44ea855cbc05577ead /httemplate | |
parent | f4b936e6d82535da65591dce9227d48f8af4d217 (diff) | |
parent | a5651d5945c790b0d3fee0cd5082269a21adc6ee (diff) |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_1_4_BRANCH'.
Diffstat (limited to 'httemplate')
-rw-r--r-- | httemplate/misc/whois.cgi | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi new file mode 100644 index 000000000..dd7851dc2 --- /dev/null +++ b/httemplate/misc/whois.cgi @@ -0,0 +1,25 @@ +<% + my $svcnum = $cgi->param('svcnum'); + my $custnum = $cgi->param('custnum'); + my $domain = $cgi->param('domain'); + +%> +<%= header("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> |