diff options
| author | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
| commit | 3ce7691203a7737406bf2d4442f7fd84b81f847e (patch) | |
| tree | 90658b097da96772224f04771888ac6ca1a940aa /httemplate/misc/whois.cgi | |
| parent | 15e561850b61b10a92a46d8f3e316d53d4970087 (diff) | |
Will things ever be the same again?
It's the final masonize
Diffstat (limited to 'httemplate/misc/whois.cgi')
| -rw-r--r-- | httemplate/misc/whois.cgi | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi index 919add42a..d3d9649fd 100644 --- 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'); +% +% -%> -<%= include("/elements/header.html","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> |