Date: Tue, 4 Apr 2006 13:32:28 +0200 (CEST) From: Frank Altpeter <frank@altpeter.de> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/95302: p5-Net-XWhois denic-aware Message-ID: <200604041132.k34BWSst051916@pegasus.dyndns.info> Resent-Message-ID: <200604041140.k34BeJnU013053@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 95302
>Category: ports
>Synopsis: p5-Net-XWhois denic-aware
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: update
>Submitter-Id: current-users
>Arrival-Date: Tue Apr 04 11:40:19 GMT 2006
>Closed-Date:
>Last-Modified:
>Originator: Frank Altpeter
>Release: FreeBSD 6.1-PRERELEASE i386
>Organization:
>Environment:
System: FreeBSD pegasus.dyndns.info 6.1-PRERELEASE FreeBSD 6.1-PRERELEASE #6: Wed Mar 8 19:46:43 CET 2006 root@pegasus.dyndns.info:/usr/obj/usr/src/sys/kernconf.pegasus i386
>Description:
p5-Net-XWhois doesn't handle the (not so) new denic whois output correctly. Additionally,
it doesn't handle recursive queries correctly.
This patch should fix this.
>How-To-Repeat:
>Fix:
----------------------------------------- cut here ---------------------------
--- XWhois.orig.pm Tue Oct 5 17:36:33 2004
+++ XWhois.pm Fri Oct 8 19:13:14 2004
@@ -465,6 +465,7 @@
'whois.nic.ad.jp' => { 'S' => '/e' },
'whois.internic.net' => { 'P' => '=' },
'whois.networksolutions.com' => { 'P' => '=' },
+ 'whois.denic.de' => { 'P' => '-T dn ' },
);
sub register_parser {
@@ -571,8 +572,8 @@
}
#if there is already a Parser defined for this server, use it
- if ( $self->{ _PARSERS }->{ $self->{ Server }}) {
- $self->{ Parser } = $self->{ _PARSERS }->{ $self->{ Server }};
+ if ( $self->{ _PARSERS }->{ $self->{ _WHOIS_PARSER }->{ $self->{ Server } } }) {
+ $self->{ Parser } = $self->{ _PARSERS }->{ $self->{ _WHOIS_PARSER }->{ $self->{ Server } } };
}
#if we still don't have a Parser to use, guess based on the Domain (or IP)
@@ -648,7 +649,7 @@
$fw="whois.twnic.net" if ($self->{ Response }=~/Allocated to TWNIC/misg );
}
else { #original code
- @fwa = $self->{ Response } =~ m/\s+$self->{ Domain }\n.*?\n*?\s*?.*?Whois Server: (.*?)(?=\n)/isg;
+ @fwa = $self->{ Response } =~ m/$self->forwardwhois/isg;
$fw = shift @fwa;
return undef unless (defined($fw) && length($fw) > 0); # pattern not found
}
----------------------------------------- cut here ---------------------------
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200604041132.k34BWSst051916>