From faba205c6f9943df8af154f5c893640eb6cd00b5 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 5 Apr 2004 09:09:15 +0000 Subject: [PATCH] add whois functionality internally instead of linking to geektools --- htetc/global.asa | 2 ++ htetc/handler.pl | 2 ++ httemplate/docs/install.html | 2 +- httemplate/docs/upgrade-1.4.2.html | 1 + httemplate/view/svc_domain.cgi | 2 +- 5 files changed, 7 insertions(+), 2 deletions(-) diff --git a/htetc/global.asa b/htetc/global.asa index 29b3fe199..446845bb8 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -10,6 +10,8 @@ use Tie::IxHash; use HTML::Entities; use IO::Handle; use IO::File; +use Net::Whois::Raw qw(whois); +use Business::CreditCard; use String::Approx qw(amatch); use HTML::Widgets::SelectLayers 0.03; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); diff --git a/htetc/handler.pl b/htetc/handler.pl index 1ea87e744..67719b8fe 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -71,6 +71,8 @@ sub handler use HTML::Entities; use IO::Handle; use IO::File; + use Net::Whois::Raw qw(whois); + use Business::CreditCard; use String::Approx qw(amatch); use HTML::Widgets::SelectLayers 0.03; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); diff --git a/httemplate/docs/install.html b/httemplate/docs/install.html index 7fcc4a1a2..99b40db04 100644 --- a/httemplate/docs/install.html +++ b/httemplate/docs/install.html @@ -30,7 +30,7 @@ Before installing, you need:
  • HTML-Parser
  • libnet
  • Locale-Codes -
  • Net-Whois +
  • Net-Whois-Raw
  • libwww-perl
  • Business-CreditCard diff --git a/httemplate/docs/upgrade-1.4.2.html b/httemplate/docs/upgrade-1.4.2.html index b8c5fcf7e..eb40df8b3 100644 --- a/httemplate/docs/upgrade-1.4.2.html +++ b/httemplate/docs/upgrade-1.4.2.html @@ -14,6 +14,7 @@
  • Install Cache::Cache.
  • Install Net::SSH 0.08.
  • Install Crypt::PasswdMD5 +
  • Install Net::Whois::Raw
  • CGI.pm minimum version 2.47 is required. You will probably need to install a current CGI.pm from CPAN if you are using Perl 5.005 or earlier.
  • If using Apache::ASP, add PerlSetVar RequestBinaryRead Off to your Apache configuration and make sure you are using Apache::ASP minimum version 2.55.
  • Run make aspdocs or make masondocs. diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index e4b16d998..1dbe16d23 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -47,7 +47,7 @@ Service #<%= $svcnum %>
    Domain name: <%= $domain %>
    Catch all email (change): <%= $email ? "$email" : "(none)" %> -

    View whois information. +

    View whois information.