--- /dev/null
+Copyright 2003-2003 Walery Studennikov
+Copyright 2003-2003 Corris Randall
+Copyright 2003-2003 Gabor Szabo
+Copyright 2000-2002 Ariel Brosh
+
+This package is free software. You may redistribute it or modify it under
+the same terms as Perl itself.
--- /dev/null
+Revision history for Perl extension Net::Whois::Raw.
+
+0.01 Jul 05 12:35:47 2000
+ - original version; created by h2xs 1.19
+
+0.02 - 0.22 ???
+ - ???
+
+0.23 Mar 25 09:23:37 PST 2003
+ - only exports &whois by default, the other variables are exportable still.
+ - incorporated new whois servers ( thanks Toni Mueller <support@oeko.net> )
+ - now tests the main tlds
+ - added some more regexen to strip out disclaimers and such ( for $OMIT_MSG > 2 ).
+ - moved %servers to %Net::Whois::Raw::Data::servers
+
+0.24 Nov 18 2003 Walery Studennikov <despair@cpan.org>
+ - fixed whois server for .org domains and add new whois servers
+ for multilingual domains
+ - fixed recursive whois requests for .org domains
+ - new fail-check and strip patterns added
+ - more verbose error messages
+ - added support for third level domains
+ - some bugfixes
+
+0.25 Nov 21 2003 Walery Studennikov <despair@cpan.org>
+ - fixed multilingual domains whois via whois.melbourneit.com server
+ - whois_config function for setting config variables
+ (if setting imported variables $OMIT_MSG, $CHECK_FAIL etc.
+ doesn't work for some reason, for example because of
+ namespace problems in mod_perl scripts)
+
+0.26 Jan 09 2004 Walery Studennikov <despair@cpan.org>
+ - added recursive whois requests for .cc domains
+ - fixed recursive whois requests for whois.crsnic.net
+
+0.27 Feb 10 2004 Alex Kapranoff <alex@kapranoff.ru>
+ - patch to check availability of .info and .biz domains
+
+0.28 Feb 20 2004 Alex Kapranoff <alex@kapranoff.ru>
+ - fixed documentation for pwhois.PL
+
+0.29 Feb 24 2004 Walery Studennikov <despair@cpan.org>
+ - fixed extra rules which strips the copyright message or disclaimer
+ - removed pwhois.PL. "pwhois" is shipped now instead.
+ - data structures in Net/Whois/Raw/Data.pm reformatted
+ - new strip patterns for whois.crsnic.net
+
+
+0.30 Mar 15 2004 Walery Studennikov <despair@cpan.org>
+ - added strip rules for whois.dns.be
+
+0.31 Mar 19 2004 Walery Studennikov <despair@cpan.org>
+ - more robust recursive whois queries
--- /dev/null
+Changes
+MANIFEST
+Makefile.PL
+lib/Net/Whois/Raw.pm
+lib/Net/Whois/Raw/Data.pm
+t/01.t
+pwhois
+README
+COPYRIGHT
+META.yml Module meta-data (added by MakeMaker)
--- /dev/null
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Net-Whois-Raw
+version: 0.29
+version_from: lib/Net/Whois/Raw.pm
+installdirs: site
+requires:
+ IO::Socket: 1
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
--- /dev/null
+#!/usr/bin/perl -w
+
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+
+sub MY::postamble {
+ package MY;
+ shift->SUPER::postamble . <<'MAKE';
+dist : README
+
+README : lib/Net/Whois/Raw.pm
+ @$(PERL) -MPod::Text -e "pod2text('$<');" > $@
+
+MAKE
+}
+
+WriteMakefile(
+ 'NAME' => 'Net::Whois::Raw',
+ 'VERSION_FROM' => 'lib/Net/Whois/Raw.pm', # finds $VERSION
+ 'PREREQ_PM' => {'IO::Socket' => 1.0},
+ 'EXE_FILES' => ['pwhois'],
+ 'dist' => {'COMPRESS' => 'gzip --best --force'},
+);
--- /dev/null
+NAME
+ Net::Whois::Raw - Perl extension for unparsed raw whois information
+
+SYNOPSIS
+ use Net::Whois::Raw qw( whois );
+
+ $s = whois('perl.com');
+ $s = whois('funet.fi');
+ $s = whois('yahoo.co.uk');
+
+ ### if you do "use Net::Whois::Raw qw( whois $OMIT_MSG $CHECK_FAIL
+ ### $CACHE_DIR $CACHE_TIME $USE_CNAMES $TIMEOUT );
+ ### you can use these:
+
+ $OMIT_MSG = 1; # This will attempt to strip several known copyright
+ messages and disclaimers sorted by servers.
+ Default is to give the whole response.
+
+ $OMIT_MSG = 2; # This will try some additional stripping rules
+ if none are known for the spcific server.
+
+ $CHECK_FAIL = 1; # This will return undef if the response matches
+ one of the known patterns for a failed search,
+ sorted by servers.
+ Default is to give the textual response.
+
+ $CHECK_FAIL = 2; # This will match against several more rules
+ if none are known for the specific server.
+
+ $CACHE_DIR = "/var/spool/pwhois/"; # Whois information will be
+ cached in this directory. Default is no cache.
+
+ $CACHE_TIME = 24; # Cache files will be cleared after not accessed
+ for a specific number of hours. Documents will not be
+ cleared if they keep get requested for, independent
+ of disk space. Default is not to clear the cache.
+
+ $USE_CNAMES = 1; # Use whois-servers.net to get the whois server
+ name when possible. Default is to use the
+ hardcoded defaults.
+
+ $TIMEOUT = 10; # Cancel the request if connection is not made within
+ a specific number of seconds.
+
+ Note: as of version 0.21, extra data will be loaded only if the
+ OMIT_MSG or CHECK_FAIL flags were used, in order to reduce memory usage.
+
+DESCRIPTION
+ Net::Whois::Raw queries NetworkSolutions and follows the Registrar:
+ answer for ORG, EDU, COM and NET domains. For other TLDs it uses the
+ whois-servers.net namespace. ($TLD.whois-servers.net).
+
+ Setting the variables $OMIT_MSG and $CHECK_FAIL will match the results
+ against a set of known patterns. The first flag will try to omit the
+ copyright message/disclaimer, the second will attempt to determine if
+ the search failed and return undef in such a case.
+
+ IMPORTANT: these checks merely use pattern matching; they will work on
+ several servers but certainly not on all of them.
+
+ (This features were contributed by Walery Studennikov despair@sama.ru)
+
+AUTHOR
+ Original author Ariel Brosh, schop@cpan.org, Inspired by jwhois.pl
+ available on the net.
+
+ Since Ariel has passed away in September 2002:
+
+ Past maintainers Gabor Szabo, gabor@perl.org.il, Corris Randall
+ corris@cpan.org
+
+ Current Maintainer: Walery Studennikov despair@cpan.org
+
+CREDITS
+ Fixed regular expression to match hyphens. (Peter Chow,
+ peter@interq.or.jp)
+
+ Added support for Tonga TLD. (.to) (Peter Chow, peter@interq.or.jp)
+
+ Added support for reverse lookup of IP addresses via the ARIN registry.
+ (Alex Withers awithers@gonzaga.edu)
+
+ This will work now for RIPE addresses as well, according to a
+ redirection from ARIN. (Philip Hands phil@uk.alcove.com, Trevor Peirce
+ trev@digitalcon.ca)
+
+ Added the pattern matching switches, (Walery Studennikov
+ despair@sama.ru)
+
+ Modified pattern matching, added cache. (Tony L. Svanstrom
+ tony@svanstrom.org)
+
+CHANGES
+ See file "Changes" in the distribution
+
+CLARIFICATION
+ As NetworkSolutions got most of the domains of InterNic as legacy, we
+ start by querying their server, as this way one whois query would be
+ sufficient for many domains. Starting at whois.internic.net or
+ whois.crsnic.net will result in always two requests in any case.
+
+NOTE
+ Some users complained that the die statements in the module make their
+ CGI scripts crash. Please consult the entries on eval and die on
+ perlfunc about exception handling in Perl.
+
+COPYRIGHT
+ Copyright 2000-2002 Ariel Brosh. Copyright 2003-2003 Gabor Szabo.
+ Copyright 2003-2003 Corris Randall. Copyright 2003-2003 Walery
+ Studennikov.
+
+ This package is free software. You may redistribute it or modify it
+ under the same terms as Perl itself.
+
+ I apologize for any misunderstandings caused by the lack of a clear
+ licence in previous versions.
+
+COMMERCIAL SUPPORT
+ Not available anymore.
+
+LEGAL
+ Notice that registrars forbid querying their whois servers as a part of
+ a search engine, or querying for a lot of domains by script. Also,
+ omitting the copyright information (that was requested by users of this
+ module) is forbidden by the registrars.
+
+SEE ALSO
+ perl(1), Net::Whois, whois.
+
--- /dev/null
+package Net::Whois::Raw;
+
+require Net::Whois::Raw::Data;
+
+use strict;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $OMIT_MSG $CHECK_FAIL
+ %notfound %strip $CACHE_DIR $CACHE_TIME $USE_CNAMES
+ $TIMEOUT);
+use IO::Socket;
+
+require Exporter;
+
+@ISA = qw(Exporter);
+
+@EXPORT = qw( whois whois_config ); ### It's bad manners to export lots.
+@EXPORT_OK = qw( $OMIT_MSG $CHECK_FAIL $CACHE_DIR $CACHE_TIME $USE_CNAMES $TIMEOUT);
+
+$VERSION = '0.31';
+
+($OMIT_MSG, $CHECK_FAIL, $CACHE_DIR, $CACHE_TIME, $USE_CNAMES, $TIMEOUT) = (0) x 6;
+
+sub whois {
+ my ($dom, $srv) = @_;
+ my $res;
+ unless ($srv) {
+ ($res, $srv) = query($dom);
+ } else {
+ $res = _whois($dom, uc($srv));
+ }
+ finish($res, $srv);
+}
+
+sub whois_config {
+ my ($par) = @_;
+ my @parnames = qw(OMIT_MSG CHECK_FAIL CACHE_DIR CACHE_TIME USE_CNAMES TIMEOUT);
+ foreach my $parname (@parnames) {
+ if (exists($par->{$parname})) {
+ eval('$'.$parname.'='.int($par->{$parname}));
+ }
+ }
+}
+
+sub query {
+ my $dom = shift;
+ my $tld;
+ if ($dom =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
+ $tld = "IP";
+ } else {
+ my @alltlds = keys %Net::Whois::Raw::Data::servers;
+ @alltlds = sort { dlen($b) <=> dlen($a) } @alltlds;
+ foreach my $awailtld (@alltlds) {
+ $awailtld = lc $awailtld;
+ if ($dom =~ /(.+?)\.($awailtld)$/) {
+ $tld = uc $2;
+ last;
+ }
+ }
+ unless ($tld) {
+ my @tokens = split(/\./, $dom);
+ $tld = uc($tokens[-1]);
+ }
+ }
+
+
+ $dom =~ s/.NS$//i;
+ my $cname = "$tld.whois-servers.net";
+ my $srv = $Net::Whois::Raw::Data::servers{$tld} || $cname;
+ $srv = $cname if $USE_CNAMES && gethostbyname($cname);
+ my $flag = (
+ $srv eq 'whois.crsnic.net' ||
+ $srv eq 'whois.publicinterestregistry.net' ||
+ $srv eq 'whois.nic.cc' ||
+ $tld eq 'ARPA'
+ );
+ my $res = do_whois($dom, uc($srv), $flag, [], $tld);
+ wantarray ? ($res, $srv) : $res;
+}
+
+sub do_whois {
+ my ($dom) = @_; # receives 4 parameters, do NOT shift
+ return _whois(@_) unless $CACHE_DIR;
+ mkdir $CACHE_DIR, 0644;
+ if (-f "$CACHE_DIR/$dom") {
+ if (open(I, "$CACHE_DIR/$dom")) {
+ my $res = join("", <I>);
+ close(I);
+ return $res;
+ }
+ }
+ my $res = _whois(@_);
+ return $res unless $res;
+ return $res unless open(O, ">$CACHE_DIR/$dom");
+ print O $res;
+ close(O);
+
+
+ return $res unless $CACHE_TIME;
+
+ my $now = time;
+ foreach (glob("$CACHE_DIR/*.*")) {
+ my $atime = (stat($_))[8];
+ my $elapsed = $now - $atime;
+ unlink $_ if ($elapsed / 3600 > $CACHE_TIME);
+ }
+ $res;
+}
+
+sub finish {
+ my ($text, $srv) = @_;
+ return $text unless $CHECK_FAIL || $OMIT_MSG;
+ *notfound = \%Net::Whois::Raw::Data::notfound;
+ *strip = \%Net::Whois::Raw::Data::strip;
+
+ my $notfound = $notfound{lc($srv)};
+ my @strip = $strip{lc($srv)} ? @{$strip{lc($srv)}} : ();
+ my @lines;
+ MAIN: foreach (split(/\n/, $text)) {
+ return undef if $CHECK_FAIL && $notfound && /$notfound/;
+ if ($OMIT_MSG) {
+ foreach my $re (@strip) {
+ next MAIN if (/$re/);
+ }
+ }
+ push(@lines, $_);
+ }
+ local ($_) = join("\n", @lines, "");
+
+ if ($CHECK_FAIL > 1) {
+ return undef unless check_existance($_);
+ }
+
+ if ($OMIT_MSG > 1) {
+ s/The Data.+(policy|connection)\.\n//is;
+ s/% NOTE:.+prohibited\.//is;
+ s/Disclaimer:.+\*\*\*\n?//is;
+ s/NeuLevel,.+A DOMAIN NAME\.//is;
+ s/For information about.+page=spec//is;
+ s/NOTICE: Access to.+this policy.//is;
+ s/The previous information.+completeness\.//s;
+ s/NOTICE AND TERMS OF USE:.*modify these terms at any time\.//s;
+ s/TERMS OF USE:.*?modify these terms at any time\.//s;
+ s/NOTICE:.*expiration for this registration\.//s;
+
+ s/By submitting a WHOIS query.+?DOMAIN AVAILABILITY.\n?//s;
+ s/Registration and WHOIS.+?its accuracy.\n?//s;
+ s/Disclaimer:.+?\*\*\*\n?//s;
+ s/The .COOP Registration .+ Information\.//s;
+ s/Whois Server Version \d+\.\d+.//is;
+ s/NeuStar,.+www.whois.us\.//is;
+ s/\n?Domain names in the \.com, .+ detailed information.\n?//s;
+ s/\n?The Registry database .+?Registrars\.\n//s;
+ s/\n?>>> Last update of .+? <<<\n?//;
+ s/% .+?\n//gs;
+ }
+ $_;
+}
+
+sub _whois {
+ my ($dom, $srv, $flag, $ary, $tld) = @_;
+ my $state;
+
+ my $sock;
+ eval {
+ local $SIG{'ALRM'} = sub { die "Connection timeout to $srv" };
+ alarm $TIMEOUT if $TIMEOUT;
+ $sock = new IO::Socket::INET("$srv:43") || die "$srv: $!";
+ };
+ alarm 0;
+ die $@ if $@;
+ my $israce = $dom =~ /ra--/ || $dom =~ /bq--/;
+ my $whoisquery = $dom;
+ if ($srv eq 'WHOIS.MELBOURNEIT.COM' && $israce) {
+ $whoisquery .= ' race';
+ }
+ #warn "$srv: $whoisquery ($OMIT_MSG, $CHECK_FAIL, $CACHE_DIR, $CACHE_TIME, $USE_CNAMES, $TIMEOUT)\n";
+ print $sock "$whoisquery\r\n";
+ my @lines = <$sock>;
+ close($sock);
+ my $answer = join '', @lines;
+ if ($flag) {
+ foreach (@lines) {
+ $state ||= (/Registrar:/);
+ if ( $state && /Whois Server:\s*([A-Za-z0-9\-_\.]+)/ ) {
+ my $newsrv = uc("$1");
+ next if (($newsrv) eq uc($srv));
+ return undef if (grep {$_ eq $newsrv} @$ary);
+ my $whois = eval { _whois($dom, $newsrv, $flag, [@$ary, $srv]) };
+ if ($@ && !$whois || $whois && !check_existance($whois)) {
+ return $answer;
+ }
+ return $whois;
+ }
+ if (/^\s+Maintainer:\s+RIPE\b/ && $tld eq 'ARPA') {
+ my $newsrv = uc($Net::Whois::Raw::Data::servers{'RIPE'});
+ next if ($newsrv eq $srv);
+ return undef if (grep {$_ eq $newsrv} @$ary);
+ my $whois = eval { _whois($dom, $newsrv, $flag, [@$ary, $srv]) };
+ if ($@ && !$whois) {
+ return $answer;
+ }
+ return $whois;
+ }
+ }
+ }
+ my $whois = join("", @lines);
+
+ if ($whois =~ /To single out one record, look it up with \"xxx\",/s) {
+ my $newsrv = uc('whois.networksolutions.com');
+ return _whois($dom, $newsrv, $flag, [@{$ary||[]}, $srv]);
+ }
+
+ return $whois;
+}
+
+sub dlen {
+ my ($str) = @_;
+ my $dotcount = $str =~ tr/././;
+ return length($str) * (1 + $dotcount);
+}
+
+
+sub check_existance {
+ $_ = $_[0];
+
+ return undef if
+ /is unavailable/is ||
+ /No entries found for the selected source/is ||
+ /Not found:/s ||
+ /No match\./s ||
+ /is available/is ||
+ /Not found/is &&
+ !/ your query returns "NOT FOUND"/ &&
+ !/Domain not found locally/ ||
+ /No match for/is ||
+ /No Objects Found/s ||
+ /No domain records were found/s ||
+ /No such domain/s ||
+ /No entries found in the /s ||
+ /Unable to find any information for your query/s ||
+ /is not registered and may be available for registration/s;
+ return 1;
+}
+
+
+# Preloaded methods go here.
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+# Below is the stub of documentation for your module. You better edit it!
+
+=head1 NAME
+
+Net::Whois::Raw - Perl extension for unparsed raw whois information
+
+=head1 SYNOPSIS
+
+ use Net::Whois::Raw qw( whois );
+
+ $s = whois('perl.com');
+ $s = whois('funet.fi');
+ $s = whois('yahoo.co.uk');
+
+ ### if you do "use Net::Whois::Raw qw( whois $OMIT_MSG $CHECK_FAIL
+ ### $CACHE_DIR $CACHE_TIME $USE_CNAMES $TIMEOUT );
+ ### you can use these:
+
+ $OMIT_MSG = 1; # This will attempt to strip several known copyright
+ messages and disclaimers sorted by servers.
+ Default is to give the whole response.
+
+ $OMIT_MSG = 2; # This will try some additional stripping rules
+ if none are known for the spcific server.
+
+ $CHECK_FAIL = 1; # This will return undef if the response matches
+ one of the known patterns for a failed search,
+ sorted by servers.
+ Default is to give the textual response.
+
+ $CHECK_FAIL = 2; # This will match against several more rules
+ if none are known for the specific server.
+
+ $CACHE_DIR = "/var/spool/pwhois/"; # Whois information will be
+ cached in this directory. Default is no cache.
+
+ $CACHE_TIME = 24; # Cache files will be cleared after not accessed
+ for a specific number of hours. Documents will not be
+ cleared if they keep get requested for, independent
+ of disk space. Default is not to clear the cache.
+
+ $USE_CNAMES = 1; # Use whois-servers.net to get the whois server
+ name when possible. Default is to use the
+ hardcoded defaults.
+
+
+ $TIMEOUT = 10; # Cancel the request if connection is not made within
+ a specific number of seconds.
+
+ Note: as of version 0.21, extra data will be loaded only if the
+ OMIT_MSG or CHECK_FAIL flags were used, in order to reduce memory usage.
+
+=head1 DESCRIPTION
+
+Net::Whois::Raw queries NetworkSolutions and follows the Registrar: answer
+for ORG, EDU, COM and NET domains.
+For other TLDs it uses the whois-servers.net namespace.
+(B<$TLD>.whois-servers.net).
+
+Setting the variables $OMIT_MSG and $CHECK_FAIL will match the results
+against a set of known patterns. The first flag will try to omit the
+copyright message/disclaimer, the second will attempt to determine if
+the search failed and return undef in such a case.
+
+B<IMPORTANT>: these checks merely use pattern matching; they will work
+on several servers but certainly not on all of them.
+
+(This features were contributed by Walery Studennikov B<despair@sama.ru>)
+
+=head1 AUTHOR
+
+Original author Ariel Brosh, B<schop@cpan.org>,
+Inspired by jwhois.pl available on the net.
+
+Since Ariel has passed away in September 2002:
+
+Past maintainers Gabor Szabo, B<gabor@perl.org.il>,
+Corris Randall B<corris@cpan.org>
+
+Current Maintainer: Walery Studennikov B<despair@cpan.org>
+
+=head1 CREDITS
+
+Fixed regular expression to match hyphens. (Peter Chow,
+B<peter@interq.or.jp>)
+
+Added support for Tonga TLD. (.to) (Peter Chow, B<peter@interq.or.jp>)
+
+Added support for reverse lookup of IP addresses via the ARIN registry. (Alex Withers B<awithers@gonzaga.edu>)
+
+This will work now for RIPE addresses as well, according to a redirection from ARIN. (Philip Hands B<phil@uk.alcove.com>, Trevor Peirce B<trev@digitalcon.ca>)
+
+Added the pattern matching switches, (Walery Studennikov B<despair@sama.ru>)
+
+Modified pattern matching, added cache. (Tony L. Svanstrom B<tony@svanstrom.org>)
+
+=head1 CHANGES
+
+See file "Changes" in the distribution
+
+
+=head1 CLARIFICATION
+
+As NetworkSolutions got most of the domains of InterNic as legacy, we
+start by querying their server, as this way one whois query would be
+sufficient for many domains. Starting at whois.internic.net or
+whois.crsnic.net will result in always two requests in any case.
+
+=head1 NOTE
+
+Some users complained that the B<die> statements in the module make their
+CGI scripts crash. Please consult the entries on B<eval> and
+B<die> on L<perlfunc> about exception handling in Perl.
+
+=head1 COPYRIGHT
+
+Copyright 2000-2002 Ariel Brosh.
+Copyright 2003-2003 Gabor Szabo.
+Copyright 2003-2003 Corris Randall.
+Copyright 2003-2003 Walery Studennikov.
+
+This package is free software. You may redistribute it or modify it under
+the same terms as Perl itself.
+
+I apologize for any misunderstandings caused by the lack of a clear
+licence in previous versions.
+
+=head1 COMMERCIAL SUPPORT
+
+Not available anymore.
+
+=head1 LEGAL
+
+Notice that registrars forbid querying their whois servers as a part of
+a search engine, or querying for a lot of domains by script.
+Also, omitting the copyright information (that was requested by users of this
+module) is forbidden by the registrars.
+
+=head1 SEE ALSO
+
+L<perl(1)>, L<Net::Whois>, L<whois>.
+
+=cut
--- /dev/null
+package Net::Whois::Raw::Data;
+
+use strict;
+use vars qw(%notfound %strip);
+
+our %servers = qw(
+ COM whois.crsnic.net
+ NET whois.crsnic.net
+ EDU whois.educause.net
+ ORG whois.publicinterestregistry.net
+ ARPA whois.arin.net
+ RIPE whois.ripe.net
+ MIL whois.nic.mil
+ COOP whois.nic.coop
+ MUSEUM whois.museum
+
+ BIZ whois.neulevel.biz
+ INFO whois.afilias.net
+ NAME whois.nic.name
+ GOV whois.nic.gov
+ AERO whois.information.aero
+ NS whois.internic.net
+ IP whois.ripe.net
+
+ AD whois.ripe.net
+ AL whois.ripe.net
+ AM whois.ripe.net
+ AS whois.gdns.net
+ AT whois.nic.at
+ AU box2.aunic.net
+ AZ whois.ripe.net
+ BA whois.ripe.net
+ BE whois.dns.be
+ BG whois.ripe.net
+ BR whois.nic.br
+ BY whois.ripe.net
+ CA eider.cira.ca
+ CC whois.nic.cc
+ CH domex.switch.ch
+ CK whois.ck-nic.org.ck
+ CL nic.cl
+ CN log.cnnic.net.cn
+ CX whois.nic.cx
+ CY whois.ripe.net
+ CZ dc1.eunet.cz
+ DE whois.denic.de
+ DK whois.dk-hostmaster.dk
+ DO ns.nic.do
+ DZ whois.ripe.net
+ EE whois.ripe.net
+ EG whois.ripe.net
+ ES whois.ripe.net
+ FI whois.ripe.net
+ FO whois.ripe.net
+ FR winter.nic.fr
+ GA whois.ripe.net
+ GB whois.ripe.net
+ GE whois.ripe.net
+ GL whois.ripe.net
+ GM whois.ripe.net
+ GR whois.ripe.net
+ GS whois.adamsnames.tc
+ HK whois.hkdnr.net.hk
+ HR whois.ripe.net
+ HU whois.nic.hu
+ ID muara.idnic.net.id
+ IE whois.domainregistry.ie
+ IL whois.isoc.org.il
+ IN whois.ncst.ernet.in
+ IS horus.isnic.is
+ IT whois.nic.it
+ JO whois.ripe.net
+ JP whois.nic.ad.jp
+ KG whois.domain.kg
+ KH whois.nic.net.kh
+ KR whois.krnic.net
+ LA whois.nic.la
+ LI domex.switch.ch
+ LK arisen.nic.lk
+ LT ns.litnet.lt
+ LU whois.dns.lu
+ LV whois.ripe.net
+ MA whois.ripe.net
+ MC whois.ripe.net
+ MD whois.ripe.net
+ MM whois.nic.mm
+ MS whois.adamsnames.tc
+ MT whois.ripe.net
+ MX whois.nic.mx
+ NL gw.domain-registry.nl
+ NO ask.norid.no
+ NU whois.worldnames.net
+ NZ akl-iis.domainz.net.nz
+ PL nazgul.nask.waw.pl
+ PT whois.ripe.net
+ RO whois.rotld.ro
+ RU whois.ripn.net
+ SE ear.nic-se.se
+ SG qs.nic.net.sg
+ SH whois.nic.sh
+ SI whois.arnes.si
+ SK whois.ripe.net
+ SM whois.ripe.net
+ ST whois.nic.st
+ SU whois.ripn.net
+ TC whois.adamsnames.tc
+ TF whois.adamsnames.tc
+ TH whois.thnic.net
+ TJ whois.nic.tj
+ TN whois.ripe.net
+ TO whois.tonic.to
+ TR whois.ripe.net
+ TW whois.twnic.net
+ UA whois.net.ua
+ UK whois.nic.uk
+ US whois.nic.us
+ VA whois.ripe.net
+ VG whois.adamsnames.tc
+ WS whois.worldsite.ws
+ YU whois.ripe.net
+ ZA apies.frd.ac.za
+
+ RA--AQ5D4PA whois.i-dns.net
+ RA--AQ6TKQQ whois.i-dns.net
+ RA--AQ7EAMY whois.i-dns.net
+ XN--P1AG ru.whois.i-dns.net
+ XN--P1AG ru.whois.i-dns.net
+ XN--J1AEF whois.i-dns.net
+ XN--E1APQ whois.i-dns.net
+ XN--C1AVG whois.i-dns.net
+
+ NET.RU whois.ripn.net
+ ORG.RU whois.ripn.net
+ PP.RU whois.ripn.net
+ SPB.RU whois.relcom.ru
+ MSK.RU whois.relcom.ru
+ RU.NET whois.relcom.ru
+);
+
+# These do not seem to work
+# CN log.cnnic.net.cn
+# DK whois.dk-hostmaster.dk
+# US whois.isi.edu
+# These serve only several subdomains
+# ZA apies.frd.ac.za
+
+
+%notfound = (
+ 'whois.nic.cc' => '^No match for',
+ 'whois.arin.net' => '^No match for',
+ 'whois.nic.br' => 'No match for',
+ 'ear.nic-se.se' => 'No data found',
+ 'whois.nic.sh' => '^No match for',
+ 'whois.nic.mx' => '^Nombre del Dominio:',
+ 'whois.domainregistry.ie' => 'There was no match',
+ 'domex.switch.ch' => '^We do not have an entry in our database matching your',
+ 'whois.dns.lu' => 'No entries found',
+ 'whois.worldsite.ws' => 'No match for',
+ 'whois.nic.it' => '^No entries found',
+ 'whois.nic.coop' => 'No Objects Found',
+ 'whois.nic.at' => 'nothing found',
+ 'ask.norid.no' => 'no matches',
+ 'whois.nic.uk' => '^\\s*No match for',
+ 'whois.nic.ad.jp' => 'No match',
+ 'whois.arnes.si' => 'No entries found',
+ 'whois.tonic.to' => 'No match for',
+ 'whois.hkdnr.net.hk' => '^No Match for',
+ 'whois.worldnames.net' => 'NO MATCH for domain',
+ 'whois.rotld.ro' => 'No entries found',
+ 'whois.nic.st' => '^No entries found',
+ 'whois.isoc.org.il' => 'No data was found',
+ 'eider.cira.ca' => 'Status:\\s*UNAV',
+ 'whois.nic.tj' => '^No match for',
+ 'aardvark.dns.be' => 'No such domain',
+ 'nazgul.nask.waw.pl' => '^Domain name .* does not exists',
+ 'whois.ncst.ernet.in' => '^No matches',
+ 'whois.krnic.net' => 'Above domain name is not registered',
+ 'whois.museum' => '^No information for',
+ 'whois.net.ua' => 'No entries found',
+ 'apies.frd.ac.za' => 'No information is available',
+ 'gw.domain-registry.nl' => 'invalid query',
+ 'whois.denic.de' => 'No entries found',
+ 'whois.nic.mil' => '^No match for',
+ 'horus.isnic.is' => 'No entries found',
+ 'winter.nic.fr' => 'No entries found',
+ 'whois.ripe.net' => 'No entries found',
+ 'whois.ripn.net' => 'No entries found',
+ 'qs.nic.net.sg' => 'NO entry found',
+ 'whois.twnic.net' => '^NO MATCH: This domain is',
+ 'nic.cl' => 'Invalid domain name',
+ 'whois.gdns.net' => '^Domain Not Found',
+ 'box2.aunic.net' => 'No entries found',
+ 'whois.nic.cx' => '^No match for',
+ 'dc1.eunet.cz' => 'No data found',
+ 'akl-iis.domainz.net.nz' => 'domain_name_status: 00 Not Listed',
+ 'ns.litnet.lt' => 'No matches found',
+ 'whois.adamsnames.tc' => 'is not a domain controlled by',
+ 'whois.nic.la' => '^NO MATCH for',
+ 'whois.networksolutions.com' => '(?i)no match',
+ 'whois.thnic.net' => 'No entries found',
+ 'whois.neulevel.biz' => '^Not found:',
+ 'whois.afilias.net' => '^NOT FOUND',
+);
+
+%strip = (
+ 'whois.crsnic.net' => [
+ '^TERMS OF USE:',
+ '^database through',
+ '^automated except',
+ '^modify existing',
+ '^Services\' \(\"VeriSign\"\)',
+ '^information purposes only',
+ '^about or related to a',
+ '^guarantee its accuracy\.',
+ '^by the following terms',
+ '^for lawful purposes and',
+ '^to: (1) allow, enable,',
+ '^unsolicited, commercial',
+ '^or facsimile; or \(2\)',
+ '^that apply to VeriSign',
+ '^repackaging, dissemination',
+ '^prohibited without the',
+ '^use electronic processes',
+ '^query the Whois database',
+ '^domain names or modify',
+ '^to restrict your access',
+ '^operational stability\.',
+ '^Whois database for',
+ '^reserves the right',
+
+ '^NOTICE AND TERMS OF USE:',
+ '^Data in Network Solutions',
+ '^purposes only, and to assist',
+ '^to a domain name registration',
+ '^By submitting a WHOIS query,',
+ '^You agree that you may use',
+ '^circumstances will you use',
+ '^the transmission of mass',
+ '^via e-mail, telephone, or',
+ '^electronic processes that',
+ '^compilation, repackaging,',
+ '^high-volume, automated,',
+ '^database. Network Solutions',
+ '^database in its sole discretion,',
+ '^querying of the WHOIS database',
+ '^Network Solutions reserves the',
+
+ '^NOTICE: The expiration date',
+ '^registrar\'s sponsorship of',
+ '^currently set to expire\.',
+ '^date of the domain name',
+ '^registrar. Users may',
+ '^view the registrar\'s',
+ '^to: \(1\) allow, enable,',
+ '^The Registry database',
+ '^Registrars\.',
+ '^Domain not found locally,',
+ '^Local WHOIS DB must be out',
+
+ '^Whois Server Version',
+ '^Domain names in the .com',
+ '^with many different',
+ '^for detailed information\.',
+
+ '^>>> Last update of whois database',
+ '^$',
+ ],
+ 'whois.tonic.to' => [
+ '^Tonic whoisd',
+ ],
+ 'whois.net.ua' => [
+ '^%',
+ ],
+ 'whois.nic.cx' => [
+ '^ Registrar: Christmas Island',
+ '^ Whois Server: whois.nic.cx',
+ ],
+ 'gw.domain-registry.nl' => [
+ 'Rights restricted by copyright',
+ 'http://www.domain-registry.nl',
+ ],
+ 'whois.denic.de' => [
+ '^%',
+ ],
+ 'whois.gdns.net' => [
+ '^\\w+ Whois Server',
+ '^Access to .* WHOIS information is provided to',
+ '^determining the contents of a domain name',
+ '^registrar database. The data in',
+ '^informational purposes only, and',
+ '^Compilation, repackaging, dissemination,',
+ '^in its entirety, or a substantial portion',
+ 'prior written permission. By',
+ '^by this policy. All rights reserved.',
+ ],
+ 'whois.isoc.org.il' => [
+ '^%',
+ ],
+ 'whois.dns.lu' => [
+ '^%',
+ ],
+ 'whois.worldnames.net' => [
+ '^----------------------------------',
+ '^.\\w+ Domain .* Whois service',
+ '^Copyright by .* Domain LTD',
+ '^----------------------------------',
+ '^Database last updated',
+ ],
+ 'whois.nic.sh' => [
+ '^NIC Whois Server',
+ ],
+ 'whois.nic.coop' => [
+ '^%',
+ '^ The .COOP Registration',
+ '^ Please use the',
+ ],
+ 'domex.switch.ch' => [
+ '^whois: This information is subject',
+ '^See http',
+ ],
+ 'whois.twnic.net' => [
+ '^Registrar:',
+ '^URL: http://rs.twnic.net.tw',
+ ],
+ 'nic.cl' => [
+ '^cl.cl:',
+ '^Más información: http://www.nic.cl/',
+ ],
+ 'whois.nic.mx' => [
+ '^------------------',
+ '^La información que ha',
+ '^relacionados con la',
+ '^DNS administrado por el NIC-México.',
+ '^Queda absolutamente prohibido',
+ '^envío de e-mail no solicitado',
+ '^productos y servicios',
+ '^del NIC-México.',
+ '^La base de datos generada',
+ '^protegida por las leyes de',
+ '^internacionales sobre la materia.',
+ ],
+ 'whois.domainregistry.ie' => [
+ '^%',
+ ],
+ 'ns.litnet.lt' => [
+ '^%',
+ ],
+ 'dc1.eunet.cz' => [
+ '^%',
+ ],
+ 'whois.ripn.net' => [
+ '^%',
+ ],
+ 'whois.nic.uk' => [
+ '^The .* Registration Host contains information',
+ '^registrations in the .*co.uk',
+ 'and .*\\.uk second-level domains.',
+ ],
+ 'whois.nic.br' => [
+ '^%',
+ ],
+ 'whois.krnic.net' => [
+ '^Korea Internet Information Service',
+ '^20\\d\\d³â 7¿ù 2ÀϺÎÅÍ´Â °³¼±µÈ Whois',
+ '^.com, .net, .org',
+ ],
+ 'whois.arnes.si' => [
+ '^\\*',
+ ],
+ 'nazgul.nask.waw.pl' => [
+ '^%',
+ ],
+ 'whois.nic.la' => [
+ '^ WHOIS server',
+ '^ The Data in the',
+ 'for information purposes,',
+ '^ and to assist persons in obtaining',
+ '^ domain name registration record. Sterling Holdings, Limited,',
+ '^ does not guarantee its accuracy.',
+ '^ you will use this Data only for lawful',
+ '^ circumstances will you use this Data',
+ '^ \\(1\\) allow, enable, or otherwise s',
+ '^ unsolicited, commercial advertising',
+ '^ \\(spam\\); or',
+ '^ that apply to Sterling Holdings',
+ '^ Sterling Holdings .* reserves the right to modify',
+ '^ terms at any time. By submitting this',
+ '^ policy.',
+ ],
+ 'horus.isnic.is' => [
+ '^%',
+ ],
+ 'whois.rotld.ro' => [
+ '^%',
+ ],
+ 'whois.nic.st' => [
+ '^The data in the .* database is provided',
+ '^The .* Registry does not guarantee',
+ '^The data in the .* database is protected',
+ '^By submitting a .* query, you agree that you will',
+ '^The Domain Council of .* reserves the right',
+ ],
+ 'ask.norid.no' => [
+ '^%',
+ ],
+ 'whois.hkdnr.net.hk' => [
+ '^Whois server',
+ '^Domain names in the',
+ '^and .* can now be registered',
+ '^Go to http://www.hkdnr.net.hk',
+ '^---------',
+ '^The Registry contains ONLY',
+ '^.* and .*\\.HK domains.',
+ ],
+ 'whois.arin.net' => [
+ '^The ARIN Registration Services Host contains',
+ '^Network Information:.*Networks',
+ '^Please use the whois server at',
+ '^Information and .* for .* Information.',
+ ],
+ 'qs.nic.net.sg' => [
+ '^\\*',
+ ],
+ 'akl-iis.domainz.net.nz' => [
+ '^%',
+ ],
+ 'whois.nic.hu' => [
+ '^%',
+ ],
+ 'whois.worldsite.ws' => [
+ '^Welcome to the .* Whois Server',
+ '^Use of this service for any',
+ '^than determining the',
+ '^in the .* to be registered',
+ '^prohibited.',
+ ],
+ 'whois.ripe.net' => [
+ '^%',
+ ],
+ 'whois.nic.cc' => [
+ '^This information is',
+ '^The Data in eNIC',
+ '^Corporation for information',
+ '^in obtaining information',
+ '^registration record',
+ '^accuracy. By submitting',
+ '^will use this Data only',
+ '^no circumstances will',
+ '^or otherwise support',
+ '^commercial advertising',
+ '^or \\(2\\) enable high volume',
+ '^apply to eNIC Corporation',
+ '^reserves the right to',
+ '^submitting this query,',
+ ],
+ 'whois.nic.mil' => [
+ '^To single out one record',
+ '^handle, shown in parenthesis',
+ '^Please be advised that this whois',
+ '^All INTERNET Domain, IP Network Number,',
+ '^the Internet Registry, RS.INTERNIC.NET.',
+ ],
+ 'box2.aunic.net' => [
+ '^%',
+ ],
+ 'whois.nic.ad.jp' => [
+ '^[',
+ ],
+ 'winter.nic.fr' => [
+ '^Tous droits reserves par copyright.',
+ '^Voir http://www.nic.fr',
+ '^Rights restricted by copyright.',
+ '^See http://www.nic.fr/outils',
+ ],
+ 'ear.nic-se.se' => [
+ '^#',
+ ],
+ 'whois.networksolutions.com' => [
+ '^The Data in',
+ '^Solutions for information',
+ '^information about or',
+ '^Network Solutions does not guarantee',
+ '^WHOIS query, you agree that',
+ '^purposes and that, under no circumstances',
+ '^\\(1\\) allow, enable, or',
+ '^unsolicited, commercial advertising',
+ '^\\(spam\\); or',
+ '^that apply to Network',
+ '^reserves the right',
+ '^this query, you',
+ ],
+ 'aardvark.dns.be' => [
+ '^%',
+ ],
+ 'whois.dns.be' => [
+ '^%-',
+ ],
+ 'whois.nic.tj' => [
+ '^This Whois server looks up only',
+ '^Please see http://nic.tj for more',
+ '^Tajikistan, and the Public Registrar Network.',
+ ],
+ 'whois.nic.at' => [
+ '^%',
+ ],
+);
+
+
+1;
--- /dev/null
+#!/usr/bin/perl -w
+
+use Net::Whois::Raw qw( whois $OMIT_MSG $CHECK_FAIL $TIMEOUT $CACHE_DIR );
+use Getopt::Std;
+use strict;
+use vars qw($opt_s $opt_c $opt_S $opt_C $opt_t $opt_T $opt_h);
+
+getopts("scSCtT:h");
+
+if ($opt_h) {
+ print <<EOM;
+ $0 [ -s | -S ] [ -c | -C ] [ -t <timeout> ] [ -T] <domain> [ <server> ]
+
+The -s switch attempts to strip the copyright message or disclaimer.
+The -S switch will attempt some exra rules for it.
+The -c switch attempts to return an empty answer for failed searches.
+The -C switch will attempt some exra rules for it.
+The -T switch takes a parameter that is used for the timeout for
+connection attempts.
+The -t switch enables caching.
+EOM
+ exit;
+}
+
+
+$OMIT_MSG = $CHECK_FAIL = 0;
+
+$OMIT_MSG = 1 if $opt_s;
+$OMIT_MSG = 2 if $opt_S;
+$CHECK_FAIL = 1 if $opt_c;
+$CHECK_FAIL = 2 if $opt_C;
+$TIMEOUT = $opt_T;
+
+$CACHE_DIR = undef;
+if ($opt_t) {
+ if ($^O =~ /Win/) {
+ $CACHE_DIR = $ENV{'TEMP'} || "C:\\temp";
+ } else {
+ $CACHE_DIR = $ENV{'TEMP'} || "/tmp";
+ my @ent = getpwuid($>);
+ if (@ent) {
+ foreach ("/tmp/$ent[0]", "$ent[7]/.pwhois") {
+ mkdir $_, 0644;
+ if (open(O, ">$_/__$$-$$.tmp")) {
+ close(O);
+ unlink "$_/__$$-$$.tmp";
+ $CACHE_DIR = $_;
+ last;
+ }
+ }
+ }
+ }
+}
+
+my $dom = $ARGV[0] || die "Usage: $0 domain";
+
+my $server = $ARGV[1];
+
+eval {
+ my $result = whois($dom, $server);
+ if ($result) {
+ print $result;
+ } else {
+ print STDERR "Failed.\n";
+ }
+};
+if ($@) {
+ my $err = $@;
+ $err =~ s/\s+at \S+ line \d+\.$//;
+ print "\nWhois information could not be fetched:\n$err\n";
+ exit -1;
+}
+
+__END__
+
+=head1 NAME
+
+pwhois - Perl written whois client
+
+=head1 SYNOPSIS
+
+ pwhois perl.com
+ pwhois gnu.org
+ pwhois -s police.co.il
+ pwhois -c there.is.no.tld.called.foobar
+ pwhois yahoo.com whois.networksolutions.com
+ pwhois -T 10 funet.fi
+
+etc etc.....
+
+=head1 DESCRIPTION
+
+Just invoke with a domain name, optionally with a whois server name.
+The B<-s> switch attempts to strip the copyright message or disclaimer.
+The B<-c> switch attempts to return an empty answer for failed searches.
+The B<-T> switch takes a parameter that is used for the timeout for
+connection attempts.
+
+=head1 AUTHOR
+
+Ariel Brosh, B<schop@cpan.org>
+
+=head1 SEE ALSO
+
+L<Net::Whois::Raw>.
+
--- /dev/null
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl test.pl'
+
+use strict;
+
+use Test::More tests => 5;
+BEGIN { use_ok('Net::Whois::Raw',qw( whois )) };
+
+my @domains = qw(
+ yahoo.com
+ freshmeat.net
+ freebsd.org
+ ucsb.edu
+);
+
+print "The following tests requires internet connection...\n";
+
+foreach my $domain ( @domains ) {
+ my $txt = whois( $domain );
+ ok($txt =~ /$domain/i, "$domain resolved");
+}
+
projects / freeside.git / commitdiff