From owner-freebsd-ports Sun Apr 21 5:40:27 2002 Delivered-To: freebsd-ports@hub.freebsd.org Received: from freefall.freebsd.org (freefall.FreeBSD.org [216.136.204.21]) by hub.freebsd.org (Postfix) with ESMTP id 24D1C37B417 for ; Sun, 21 Apr 2002 05:40:02 -0700 (PDT) Received: (from gnats@localhost) by freefall.freebsd.org (8.11.6/8.11.6) id g3LCe2n32607; Sun, 21 Apr 2002 05:40:02 -0700 (PDT) (envelope-from gnats) Received: from relay2.agava.net.ru (ofc.agava.net [195.161.118.6]) by hub.freebsd.org (Postfix) with ESMTP id E571137B417 for ; Sun, 21 Apr 2002 05:35:51 -0700 (PDT) Received: from kapkan.domain (kapkan.domain [192.168.1.103]) by relay2.agava.net.ru (Postfix) with ESMTP id D754A66BC8 for ; Sun, 21 Apr 2002 16:35:49 +0400 (MSD) Received: from kapkan.domain (kappa@localhost [127.0.0.1]) by kapkan.domain (8.12.2/8.12.2) with ESMTP id g3LCbHta060536 for ; Sun, 21 Apr 2002 16:37:17 +0400 (MSD) (envelope-from kappa@kapkan.domain) Received: (from kappa@localhost) by kapkan.domain (8.12.2/8.12.2/Submit) id g3LCbHp5060535; Sun, 21 Apr 2002 16:37:17 +0400 (MSD) Message-Id: <200204211237.g3LCbHp5060535@kapkan.domain> Date: Sun, 21 Apr 2002 16:37:17 +0400 (MSD) From: Alex Kapranoff Reply-To: Alex Kapranoff To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Subject: ports/37312: new port net/p5-Net-Whois-Raw Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.org >Number: 37312 >Category: ports >Synopsis: new port net/p5-Net-Whois-Raw >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Sun Apr 21 05:40:01 PDT 2002 >Closed-Date: >Last-Modified: >Originator: Alex Kapranoff >Release: FreeBSD 4.5-STABLE i386 >Organization: AGAVA Software >Environment: System: FreeBSD kapkan.domain 4.5-STABLE FreeBSD 4.5-STABLE #1: Tue Apr 9 20:15:23 MSD 2002 root@kapkan.domain:/usr/src/sys/compile/KAPKAN i386 >Description: >How-To-Repeat: >Fix: # This is a shell archive. Save it in a file, remove anything before # this line, and then unpack it by entering "sh file". Note, it may # create directories; files and directories will be owned by you and # have default permissions. # # This archive contains: # # p5-Net-Whois-Raw/ # p5-Net-Whois-Raw/Makefile # p5-Net-Whois-Raw/distinfo # p5-Net-Whois-Raw/pkg-comment # p5-Net-Whois-Raw/pkg-descr # p5-Net-Whois-Raw/pkg-plist # p5-Net-Whois-Raw/files # p5-Net-Whois-Raw/files/patch-pwhois.PL # p5-Net-Whois-Raw/files/patch-Raw.pm # echo c - p5-Net-Whois-Raw/ mkdir -p p5-Net-Whois-Raw/ > /dev/null 2>&1 echo x - p5-Net-Whois-Raw/Makefile sed 's/^X//' >p5-Net-Whois-Raw/Makefile << 'END-of-p5-Net-Whois-Raw/Makefile' X# New ports collection makefile for: p5-Net-Whois-Raw X# Date created: March 25th 2002 X# Whom: Alex Kapranoff X# X# $FreeBSD$ X# X XPORTNAME= Net-Whois-Raw XPORTVERSION= 0.20 XCATEGORIES= net perl5 XMASTER_SITES= ${MASTER_SITE_PERL_CPAN} XMASTER_SITE_SUBDIR= Net XPKGNAMEPREFIX= p5- X XMAINTAINER= kappa@freebsd.org.ua X XPERL_CONFIGURE= yes XINSTALL_TARGET= pure_install X XMAN3= Net::Whois::Raw.3 XMAN1= pwhois.1 XMAN3PREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION} X X.include END-of-p5-Net-Whois-Raw/Makefile echo x - p5-Net-Whois-Raw/distinfo sed 's/^X//' >p5-Net-Whois-Raw/distinfo << 'END-of-p5-Net-Whois-Raw/distinfo' XMD5 (Net-Whois-Raw-0.20.tar.gz) = c4587920433b0f9b010e38c4790deb56 END-of-p5-Net-Whois-Raw/distinfo echo x - p5-Net-Whois-Raw/pkg-comment sed 's/^X//' >p5-Net-Whois-Raw/pkg-comment << 'END-of-p5-Net-Whois-Raw/pkg-comment' XVery simple Perl interface to query raw whois data. END-of-p5-Net-Whois-Raw/pkg-comment echo x - p5-Net-Whois-Raw/pkg-descr sed 's/^X//' >p5-Net-Whois-Raw/pkg-descr << 'END-of-p5-Net-Whois-Raw/pkg-descr' XNet::Whois::Raw - Perl extension for retrieving unparsed raw whois Xinformation. There is also a simple way of checking whether a domain Xis registered or not. X XUsage: X use Net::Whois::Raw; X X $s = whois('perl.com'); X $s = whois('freebsd.org'); X $s = whois('freebsd.org.ua'); X X $Net::Whois::Raw::CHECK_FAIL = 1; X X print "Hurry up!\n" if !whois('microsoft.com'); X X-- Alex Kapranoff END-of-p5-Net-Whois-Raw/pkg-descr echo x - p5-Net-Whois-Raw/pkg-plist sed 's/^X//' >p5-Net-Whois-Raw/pkg-plist << 'END-of-p5-Net-Whois-Raw/pkg-plist' Xbin/pwhois Xlib/perl5/site_perl/%%PERL_VER%%/Net/Whois/Raw.pm X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Net/Whois 2>/dev/null || true X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Net 2>/dev/null || true Xlib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/Whois/Raw/.packlist X@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/Whois/Raw X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net/Whois 2>/dev/null || true X@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Net 2>/dev/null || true END-of-p5-Net-Whois-Raw/pkg-plist echo c - p5-Net-Whois-Raw/files mkdir -p p5-Net-Whois-Raw/files > /dev/null 2>&1 echo x - p5-Net-Whois-Raw/files/patch-pwhois.PL sed 's/^X//' >p5-Net-Whois-Raw/files/patch-pwhois.PL << 'END-of-p5-Net-Whois-Raw/files/patch-pwhois.PL' X--- pwhois.PL.orig Fri Mar 22 01:35:53 2002 X+++ pwhois.PL Mon Mar 25 14:20:16 2002 X@@ -59,23 +59,27 @@ X X =head1 SYNOPSIS X X-pwhois perl.com X-pwhois gnu.org X-pwhois -s police.co.il X-pwhois -c there.is.no.tld.called.foobar X-pwhois yahoo.com whois.networksolutions.com X-pwhois -T 10 funet.fi X+ pwhois perl.com X+ pwhois gnu.org X+ pwhois -s police.co.il X+ pwhois -c there.is.no.tld.called.foobar X+ pwhois yahoo.com whois.networksolutions.com X+ pwhois -T 10 funet.fi X X etc etc..... X X =head1 DESCRIPTION X X Just invoke with a domain name, optionally with a whois server name. X-The -s switch attempts to strip the copyright message or disclaimer. X-The -c switch attempts to return an empty answer for failed searches. X-The -T switch takes a parameter that is used for the timeout for X+ X+The B<-s> switch attempts to strip the copyright message or disclaimer. X+ X+The B<-c> switch attempts to return an empty answer for failed searches. X+ X+The B<-T> switch takes a parameter that is used for the timeout for X connection attempts. X X+ X =head1 AUTHOR X X Ariel Brosh, B X END-of-p5-Net-Whois-Raw/files/patch-pwhois.PL echo x - p5-Net-Whois-Raw/files/patch-Raw.pm sed 's/^X//' >p5-Net-Whois-Raw/files/patch-Raw.pm << 'END-of-p5-Net-Whois-Raw/files/patch-Raw.pm' X--- Raw.pm.orig Fri Mar 22 01:36:28 2002 X+++ Raw.pm Sun Apr 21 16:29:50 2002 X@@ -23,6 +23,8 @@ X MIL whois.nic.mil X COOP whois.nic.coop X MUSEUM whois.museum X+ INFO whois.afilias.net X+ BIZ whois.neulevel.biz X AD whois.ripe.net X AL whois.ripe.net X AM whois.ripe.net X@@ -130,6 +132,8 @@ X # ZA apies.frd.ac.za X X %notfound = ( X+ 'whois.neulevel.biz.error' => '^Not found:', X+ 'whois.afilias.net.error' => '^NOT FOUND', X 'whois.nic.cc.error' => '^No match for', X 'whois.arin.net.error' => '^No match for', X 'whois.nic.br.error' => 'No match for', X@@ -180,7 +184,7 @@ X 'ns.litnet.lt.error' => 'No matches found', X 'whois.adamsnames.tc.error' => 'is not a domain controlled by', X 'whois.nic.la.error' => '^NO MATCH for', X- 'whois.networksolutions.com.error' => '^No match for', X+ 'whois.networksolutions.com.error' => '^NO MATCH:', X 'whois.thnic.net.error' => 'No entries found'); X X %strip = ( X@@ -421,6 +425,9 @@ X ] X ); X X+$OMIT_MSG = 0; X+$CHECK_FAIL = 0; X+ X sub whois { X my ($dom, $srv) = @_; X my $res; X@@ -480,12 +487,12 @@ X X sub finish { X my ($text, $srv) = @_; X- my $notfound = $notfound{lc($srv)}; X+ my $notfound = $notfound{lc("$srv.error")}; X my @strip = $strip{lc($srv)} ? @{$strip{lc($srv)}} : (); X return $text unless $CHECK_FAIL || $OMIT_MSG; X my @lines; X MAIN: foreach (split(/\n/, $text)) { X- return undef if $CHECK_FAIL && /$notfound/; X+ return undef if $CHECK_FAIL && defined ($notfound) && /$notfound/; X if ($OMIT_MSG) { X foreach my $re (@strip) { X next MAIN if (/$re/); END-of-p5-Net-Whois-Raw/files/patch-Raw.pm exit >Release-Note: >Audit-Trail: >Unformatted: To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message