blob: d3d9649fde973f055bd52f41ce04dacfa4ae9288 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
%
% 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",
)
: ()
),
"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>
|