Date: Sun, 21 Apr 2002 16:37:17 +0400 (MSD) From: Alex Kapranoff <kappa@agava.com> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/37312: new port net/p5-Net-Whois-Raw Message-ID: <200204211237.g3LCbHp5060535@kapkan.domain>
next in thread | raw e-mail | index | archive | help
>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 <kappa@freebsd.org.ua>
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 <bsd.port.mk>
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 <kappa@freebsd.org.ua>
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<schop@cpan.org>
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
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200204211237.g3LCbHp5060535>