From fc90882cf19b7c0d9876cd76ffc5a16222a655bf Mon Sep 17 00:00:00 2001 From: Foxfair Hu Date: Tue, 8 Jun 2004 03:27:21 +0000 Subject: Approved by: maintainer Upgrade net/p5-Net-Whois-Raw from 2.20 to 2.34, and add WWW in the description file. --- net/p5-Net-Whois-Raw/Makefile | 4 +-- net/p5-Net-Whois-Raw/distinfo | 4 +-- net/p5-Net-Whois-Raw/files/patch-Raw.pm | 54 ------------------------------ net/p5-Net-Whois-Raw/files/patch-pwhois.PL | 40 ---------------------- net/p5-Net-Whois-Raw/pkg-descr | 2 ++ 5 files changed, 6 insertions(+), 98 deletions(-) delete mode 100644 net/p5-Net-Whois-Raw/files/patch-Raw.pm delete mode 100644 net/p5-Net-Whois-Raw/files/patch-pwhois.PL (limited to 'net/p5-Net-Whois-Raw') diff --git a/net/p5-Net-Whois-Raw/Makefile b/net/p5-Net-Whois-Raw/Makefile index 598e3e3bdcef..566c49b72336 100644 --- a/net/p5-Net-Whois-Raw/Makefile +++ b/net/p5-Net-Whois-Raw/Makefile @@ -6,11 +6,12 @@ # PORTNAME= Net-Whois-Raw -PORTVERSION= 0.20 +PORTVERSION= 0.34 CATEGORIES= net perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Net PKGNAMEPREFIX= p5- +EXTRACT_SUFX= .tgz MAINTAINER= kappa@freebsd.org.ua COMMENT= Very simple Perl interface to query raw whois data @@ -20,6 +21,5 @@ INSTALL_TARGET= pure_install MAN3= Net::Whois::Raw.3 MAN1= pwhois.1 -MAN3PREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION} .include diff --git a/net/p5-Net-Whois-Raw/distinfo b/net/p5-Net-Whois-Raw/distinfo index 3bea35720643..883820ff61b3 100644 --- a/net/p5-Net-Whois-Raw/distinfo +++ b/net/p5-Net-Whois-Raw/distinfo @@ -1,2 +1,2 @@ -MD5 (Net-Whois-Raw-0.20.tar.gz) = c4587920433b0f9b010e38c4790deb56 -SIZE (Net-Whois-Raw-0.20.tar.gz) = 10221 +MD5 (Net-Whois-Raw-0.34.tgz) = 5fd8c7157d95024d27d48cf53587b7dd +SIZE (Net-Whois-Raw-0.34.tgz) = 12078 diff --git a/net/p5-Net-Whois-Raw/files/patch-Raw.pm b/net/p5-Net-Whois-Raw/files/patch-Raw.pm deleted file mode 100644 index 2f68263a553d..000000000000 --- a/net/p5-Net-Whois-Raw/files/patch-Raw.pm +++ /dev/null @@ -1,54 +0,0 @@ ---- Raw.pm.orig Fri Mar 22 01:36:28 2002 -+++ Raw.pm Sun Apr 21 16:29:50 2002 -@@ -23,6 +23,8 @@ - MIL whois.nic.mil - COOP whois.nic.coop - MUSEUM whois.museum -+ INFO whois.afilias.net -+ BIZ whois.neulevel.biz - AD whois.ripe.net - AL whois.ripe.net - AM whois.ripe.net -@@ -130,6 +132,8 @@ - # ZA apies.frd.ac.za - - %notfound = ( -+ 'whois.neulevel.biz.error' => '^Not found:', -+ 'whois.afilias.net.error' => '^NOT FOUND', - 'whois.nic.cc.error' => '^No match for', - 'whois.arin.net.error' => '^No match for', - 'whois.nic.br.error' => 'No match for', -@@ -180,7 +184,7 @@ - 'ns.litnet.lt.error' => 'No matches found', - 'whois.adamsnames.tc.error' => 'is not a domain controlled by', - 'whois.nic.la.error' => '^NO MATCH for', -- 'whois.networksolutions.com.error' => '^No match for', -+ 'whois.networksolutions.com.error' => '^NO MATCH:', - 'whois.thnic.net.error' => 'No entries found'); - - %strip = ( -@@ -421,6 +425,9 @@ - ] - ); - -+$OMIT_MSG = 0; -+$CHECK_FAIL = 0; -+ - sub whois { - my ($dom, $srv) = @_; - my $res; -@@ -480,12 +487,12 @@ - - sub finish { - my ($text, $srv) = @_; -- my $notfound = $notfound{lc($srv)}; -+ my $notfound = $notfound{lc("$srv.error")}; - my @strip = $strip{lc($srv)} ? @{$strip{lc($srv)}} : (); - return $text unless $CHECK_FAIL || $OMIT_MSG; - my @lines; - MAIN: foreach (split(/\n/, $text)) { -- return undef if $CHECK_FAIL && /$notfound/; -+ return undef if $CHECK_FAIL && defined ($notfound) && /$notfound/; - if ($OMIT_MSG) { - foreach my $re (@strip) { - next MAIN if (/$re/); diff --git a/net/p5-Net-Whois-Raw/files/patch-pwhois.PL b/net/p5-Net-Whois-Raw/files/patch-pwhois.PL deleted file mode 100644 index 28dab45fefa2..000000000000 --- a/net/p5-Net-Whois-Raw/files/patch-pwhois.PL +++ /dev/null @@ -1,40 +0,0 @@ ---- pwhois.PL.orig Fri Mar 22 01:35:53 2002 -+++ pwhois.PL Mon Mar 25 14:20:16 2002 -@@ -59,23 +59,27 @@ - - =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 -+ 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 -s switch attempts to strip the copyright message or disclaimer. --The -c switch attempts to return an empty answer for failed searches. --The -T switch takes a parameter that is used for the timeout for -+ -+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 - diff --git a/net/p5-Net-Whois-Raw/pkg-descr b/net/p5-Net-Whois-Raw/pkg-descr index c2c25508e744..fe372d490f1f 100644 --- a/net/p5-Net-Whois-Raw/pkg-descr +++ b/net/p5-Net-Whois-Raw/pkg-descr @@ -14,3 +14,5 @@ Usage: print "Hurry up!\n" if !whois('microsoft.com'); -- Alex Kapranoff + +WWW: http://search.cpan.org/~despair/Net-Whois-Raw-0.34/lib/Net/Whois/Raw.pm -- cgit v1.2.3