Hello community,
here is the log from the commit of package perl-Net-Whois-Raw for
openSUSE:Factory checked in at 2015-04-18 10:39:09
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-Whois-Raw"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes
2014-07-26 09:42:12.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes
2015-04-18 10:39:10.000000000 +0200
@@ -1,0 +2,6 @@
+Tue Apr 14 21:20:34 UTC 2015 - [email protected]
+
+- updated to 2.84
+ see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-Raw-2.76.tar.gz
New:
----
Net-Whois-Raw-2.84.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.Nzl7wZ/_old 2015-04-18 10:39:11.000000000 +0200
+++ /var/tmp/diff_new_pack.Nzl7wZ/_new 2015-04-18 10:39:11.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Net-Whois-Raw
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,14 +17,14 @@
Name: perl-Net-Whois-Raw
-Version: 2.76
+Version: 2.84
Release: 0
%define cpan_name Net-Whois-Raw
Summary: Get Whois information for domains
License: GPL-1.0+ or Artistic-1.0
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Net-Whois-Raw/
-Source:
http://www.cpan.org/authors/id/N/NA/NALOBIN/%{cpan_name}-%{version}.tar.gz
+Source0:
http://www.cpan.org/authors/id/N/NA/NALOBIN/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
++++++ Net-Whois-Raw-2.76.tar.gz -> Net-Whois-Raw-2.84.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/Build.PL
new/Net-Whois-Raw-2.84/Build.PL
--- old/Net-Whois-Raw-2.76/Build.PL 2014-07-07 08:32:02.000000000 +0200
+++ new/Net-Whois-Raw-2.84/Build.PL 2014-12-30 10:16:56.000000000 +0100
@@ -26,6 +26,11 @@
requires => $requires,
script_files => 'pwhois',
dist_abstract => 'Get Whois information for domains',
+ meta_merge => {
+ resources => {
+ repository => 'https://github.com/regru/Net-Whois-Raw'
+ }
+ },
);
$build->create_build_script;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/Changes
new/Net-Whois-Raw-2.84/Changes
--- old/Net-Whois-Raw-2.76/Changes 2014-07-07 08:34:50.000000000 +0200
+++ new/Net-Whois-Raw-2.84/Changes 2015-03-27 09:08:18.000000000 +0100
@@ -569,7 +569,7 @@
- new tlds of donuts.co
2.69 May 27 2014 Dmitriy Seluzhitskiy
- - change whois for .���
+ - change whois for .орг
2.70 Jun 02 2014 Alexander Nalobin
- RT#96078 Fixed LANG handling in pwhois script
@@ -591,3 +591,30 @@
2.76 Jul 2 2014 Alexander Nalobin
- hide internet dependent tests
+
+2.77 Jul 17 2014 Dmitriy Seluzhitskiy
+ - new tld .WIEN
+
+2.78 Oct 07 2014 Alexander Nalobin
+ - new tld .МОСКВА ( XN--80ADXHKS )
+
+2.79 Oct 18 2014 Dmitriy Shamatrin
+ - Added possibility to specify list of ips for selected whois servers
+ - Refactored logic for @SRC_IPS
+
+2.80 Dec 03 2014 Alexander Nalivayko
+ - new tld .OOO
+
+2.81 Jan 21 2015 Igor Zhuk
+ - new tld .MOSCOW
+
+2.82 Jan 23 2015 Alexander Nalobin
+ - whois.jprs.jp whois server's encoding is UTF-8
+
+2.83 Mar 24 2015 Alexander Nalobin
+ - Fix getting whois of ARIN IP addresses
+ - Fix .sh и .pro "not found" patterns
+
+2.84 Mar 27 2015 Alexander Nalobin
+ - new tld .TATAR
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/META.json
new/Net-Whois-Raw-2.84/META.json
--- old/Net-Whois-Raw-2.76/META.json 2014-07-07 08:37:29.000000000 +0200
+++ new/Net-Whois-Raw-2.84/META.json 2015-03-27 09:10:24.000000000 +0100
@@ -4,7 +4,7 @@
"unknown"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter
version 2.133380",
+ "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter
version 2.143240",
"license" : [
"unknown"
],
@@ -46,5 +46,12 @@
}
},
"release_status" : "stable",
- "version" : "2.76"
+ "resources" : {
+ "repository" : {
+ "type" : "git",
+ "url" : "https://github.com/regru/Net-Whois-Raw.git";,
+ "web" : "https://github.com/regru/Net-Whois-Raw";
+ }
+ },
+ "version" : "2.84"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/META.yml
new/Net-Whois-Raw-2.84/META.yml
--- old/Net-Whois-Raw-2.76/META.yml 2014-07-07 08:37:29.000000000 +0200
+++ new/Net-Whois-Raw-2.84/META.yml 2015-03-27 09:10:24.000000000 +0100
@@ -3,29 +3,31 @@
author:
- unknown
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version
2.133380'
+generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version
2.143240'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Net-Whois-Raw
no_index:
directory:
- t
- inc
requires:
- Encode: 0
- File::Temp: 0
- Getopt::Long: 2
- HTTP::Headers: 0
- HTTP::Request: 0
- LWP::UserAgent: 0
- Net::IDN::Punycode: 1
- Regexp::IPv6: 0
- Test::More: 0
- URI::URL: 0
-version: 2.76
+ Encode: '0'
+ File::Temp: '0'
+ Getopt::Long: '2'
+ HTTP::Headers: '0'
+ HTTP::Request: '0'
+ LWP::UserAgent: '0'
+ Net::IDN::Punycode: '1'
+ Regexp::IPv6: '0'
+ Test::More: '0'
+ URI::URL: '0'
+resources:
+ repository: https://github.com/regru/Net-Whois-Raw.git
+version: '2.84'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/Makefile.PL
new/Net-Whois-Raw-2.84/Makefile.PL
--- old/Net-Whois-Raw-2.76/Makefile.PL 2014-07-07 08:31:03.000000000 +0200
+++ new/Net-Whois-Raw-2.84/Makefile.PL 2014-12-30 10:17:40.000000000 +0100
@@ -25,4 +25,14 @@
INSTALLDIRS => 'site',
EXE_FILES => [ 'pwhois' ],
PL_FILES => {},
+ META_MERGE => {
+ 'meta-spec' => { version => 2 },
+ resources => {
+ repository => {
+ type => 'git',
+ url => 'https://github.com/regru/Net-Whois-Raw.git',
+ web => 'https://github.com/regru/Net-Whois-Raw',
+ },
+ },
+ },
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw/Common.pm
new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw/Common.pm 2014-03-13
12:03:52.000000000 +0100
+++ new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw/Common.pm 2015-03-24
16:21:06.000000000 +0100
@@ -189,16 +189,15 @@
}
sub get_real_whois_query{
- my ($whoisquery, $srv, $is_ns) = @_;
+ my ( $whoisquery, $srv, $is_ns ) = @_;
- $srv = $is_ns ? $srv . '.ns' : $srv;
+ $srv .= '.ns' if $is_ns;
- if ($srv eq 'whois.crsnic.net' && domain_level($whoisquery) == 2) {
- $whoisquery = "domain $whoisquery";
+ if ( $srv eq 'whois.crsnic.net' && domain_level( $whoisquery ) == 2 ) {
+ return "domain $whoisquery";
}
elsif ( $Net::Whois::Raw::Data::query_prefix{ $srv } ) {
- $whoisquery = $Net::Whois::Raw::Data::query_prefix{ $srv }
- . $whoisquery;
+ return $Net::Whois::Raw::Data::query_prefix{ $srv } . $whoisquery;
}
return $whoisquery;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw/Data.pm
new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw/Data.pm 2014-07-01
09:19:13.000000000 +0200
+++ new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw/Data.pm 2015-03-27
09:06:50.000000000 +0100
@@ -20,6 +20,7 @@
XN--80ASWG whois.site.rs.corenic.net
XN--80ASEHDB whois.online.rs.corenic.net
+ XN--80ADXHKS whois.nic.xn--80adxhks
COM.RU whois.nic.ru
NET.RU whois.nic.ru
@@ -309,6 +310,7 @@
CLUB whois.nic.club
LUXURY whois.nic.luxury
+ WIEN whois.nic.wien
ACTOR whois.unitedtld.com
AIRFORCE whois.unitedtld.com
@@ -360,6 +362,7 @@
WEDDING whois-dub.mm-registry.com
WORK whois-dub.mm-registry.com
YOGA whois-dub.mm-registry.com
+ OOO whois-dub.mm-registry.com
TV whois.nic.tv
WS whois.worldsite.ws
@@ -698,6 +701,8 @@
SO whois.nic.so
BZ whois2.afilias-grs.net
XXX whois.nic.xxx
+ MOSCOW whois.nic.moscow
+ TATAR whois.nic.tatar
);
@@ -732,7 +737,6 @@
'whois.lg.ua' => 'koi8-u',
'whois.od.ua' => 'koi8-u',
'whois.in.ua' => 'koi8-u',
- 'whois.jprs.jp' => 'iso-2022-jp',
'whois.nic.or.kr' => 'euc-kr',
'whois.domain.kg' => 'cp-1251',
);
@@ -778,7 +782,7 @@
'ccwhois.verisign-grs.com' => '^No match for',
'jobswhois.verisign-grs.com' => '^No match for',
'tvwhois.verisign-grs.com' => '^No match for',
- 'whois.registrypro.pro' => '^No match',
+ 'whois.registrypro.pro' => '^NOT FOUND',
'whois.worldsite.ws' => 'No match for',
'whois.nic.travel' => 'Not found: \S+',
'whois.donuts.co' => 'Domain not found',
@@ -791,6 +795,7 @@
'whois.nic.club' => '^Not found:',
'whois.unitedtld.com' => 'Domain not found',
'whois.nic.luxury' => 'No Data Found',
+ 'whois.nic.wien' => 'No match',
'whois.publicinterestregistry.net' => 'NOT FOUND',
'whois-dub.mm-registry.com' => 'Status: Not Registered',
@@ -872,7 +877,7 @@
'whois.nic.sb' => 'Status: Not Registered',
'whois.iis.se' => '^\S+ not found',
'whois.nic.net.sg' => '^Domain Not Found',
- 'whois.nic.sh' => '^Domain \S+ - Available',
+ 'whois.nic.sh' => '^Domain \S+ is available',
'whois.arnes.si' => 'No entries found',
'whois.nic.st' => '^No entries found',
'whois.adamsnames.tc' => '^\S+ is not registered',
@@ -957,6 +962,9 @@
'whois.online.rs.corenic.net' => 'no matching objects found',
'whois.site.rs.corenic.net' => 'no matching objects found',
+ 'whois.nic.xn--80adxhks' => 'No entries found for the selected
source',
+ 'whois.nic.moscow' => 'No entries found for the selected
source',
+ 'whois.nic.tatar' => 'No entries found for the selected
source',
);
# Common whois stripping REs
@@ -986,6 +994,9 @@
'whois.nic.berlin' => [
'^%',
],
+ 'whois.nic.wien' => [
+ '^%',
+ ],
'whois-dub.mm-registry.com' => [
'^[^A-Z]',
@@ -2470,12 +2481,10 @@
'^the right to modify these terms at any time. By submitting this
query,',
'^you agree to abide by this policy.',
],
- 'whois.online.rs.corenic.net' => [
- '^%',
- ],
- 'whois.site.rs.corenic.net' => [
- '^%',
- ],
+ 'whois.online.rs.corenic.net' => [ '^%' ],
+ 'whois.site.rs.corenic.net' => [ '^%' ],
+ 'whois.nic.xn--80adxhks' => [ '^%' ],
+ 'whois.nic.moscow' => [ '^%' ],
);
our %exceed = (
@@ -2525,6 +2534,8 @@
'whois.pir.org.ns' => 'HO ',
'whois.biz.ns' => 'nameserver ',
'whois.nsiregistry.net.ns' => 'nameserver = ',
+
+ 'whois.arin.net' => 'n + ',
);
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw.pm
new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.76/lib/Net/Whois/Raw.pm 2014-07-07 08:35:10.000000000
+0200
+++ new/Net-Whois-Raw-2.84/lib/Net/Whois/Raw.pm 2015-03-27 09:07:40.000000000
+0100
@@ -14,7 +14,7 @@
our @EXPORT = qw( whois get_whois );
-our $VERSION = '2.76';
+our $VERSION = '2.84';
our ($OMIT_MSG, $CHECK_FAIL, $CHECK_EXCEED, $CACHE_DIR, $TIMEOUT, $DEBUG) =
(0) x 7;
@@ -25,6 +25,9 @@
our (%notfound, %strip, @SRC_IPS, %POSTPROCESS);
+# internal variable, used for save whois_server->ip relations
+my $_IPS = {};
+
our $class = __PACKAGE__;
my $last_cache_clear_time;
@@ -242,6 +245,14 @@
# Prepare for query
my (@sockparams, $sock);
+ my (undef, $tld) = Net::Whois::Raw::Common::split_domain($dom);
+
+ $tld = uc $tld;
+ my $rotate_reference = undef;
+
+ ### get server for query
+ my $server4query = Net::Whois::Raw::Common::get_server($dom);
+ $server4query = lc $server4query;
my $srv_and_port = $srv =~ /\:\d+$/ ? $srv : "$srv:43";
if ($class->can ('whois_query_sockparams')) {
@@ -251,15 +262,23 @@
elsif ($class->can ('whois_query_socket')) {
$sock = $class->whois_query_socket ($dom, $srv);
}
+ elsif (my $ips_arrayref = get_ips_for_query($server4query)) {
+ $rotate_reference = $ips_arrayref;
+ }
elsif (scalar(@SRC_IPS)) {
- my $src_ip = $SRC_IPS[0];
- push @SRC_IPS, shift @SRC_IPS; # rotate ips
- @sockparams = (PeerAddr => $srv_and_port, LocalAddr => $src_ip);
+ $rotate_reference = \@SRC_IPS;
}
else {
@sockparams = $srv_and_port;
}
+
+ if ($rotate_reference) {
+ my $src_ip = $rotate_reference->[0];
+ push @$rotate_reference, shift @$rotate_reference; # rotate ips
+ @sockparams = (PeerAddr => $srv_and_port, LocalAddr => $src_ip);
+ }
+
print "QUERY: $whoisquery; SRV: $srv, ".
"OMIT_MSG: $OMIT_MSG, CHECK_FAIL: $CHECK_FAIL, CACHE_DIR:
$CACHE_DIR, ".
"CACHE_TIME: $CACHE_TIME, TIMEOUT: $TIMEOUT\n" if $DEBUG >= 2;
@@ -414,6 +433,28 @@
*{"$callpkg\::$_"} = \&{"$mypkg\::$_"} foreach ((@EXPORT, @_));
}
+
+sub set_ips_for_server {
+ my ($server, $ips) = @_;
+
+ croak "Missing params" if (!$ips || !$server);
+
+ $server = lc $server;
+ $_IPS->{$server} = $ips;
+}
+
+
+sub get_ips_for_query {
+ my ($server) = @_;
+
+ $server = lc $server;
+ if ($_IPS->{$server}) {
+ return $_IPS->{$server};
+ }
+ return undef;
+}
+
+
1;
__END__
@@ -584,6 +625,13 @@
return LWP::UserAgent->new();
};
+
+=item set_ips_for_server('whois.ripn.net', ['127.0.0.1']);
+
+You can specify IPs list which will be used for queries to desired whois
server.
+It can be useful if you have few interfaces, but you need to access whois
server
+from specified ips.
+
=back
=head1 AUTHOR
@@ -594,7 +642,7 @@
Since Ariel has passed away in September 2002:
Past maintainers Gabor Szabo B<[email protected]>,
-Corris Randall B<[email protected]>,
+Corris Randall B<[email protected]>,
Walery Studennikov B<[email protected]>
Current Maintainer: Alexander Nalobin B<[email protected]>
