Hello community,
here is the log from the commit of package perl-Net-Whois-Raw for
openSUSE:Factory checked in at 2016-10-23 12:53:03
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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
2016-09-05 21:22:00.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new/perl-Net-Whois-Raw.changes
2016-10-23 12:53:08.000000000 +0200
@@ -1,0 +2,12 @@
+Tue Oct 18 05:51:34 UTC 2016 - co...@suse.com
+
+- updated to 2.99002
+ see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+ 2.99002 Oct 17 2016 Alexander Nalobin, Vadim Likhota, Anton Chuvashev
+ - get rid of unused DBI dependency
+ - whois.iana.org for tld only query
+ - new tlds .RADIO.AM, .RADIO.FM, .SHOP, .SHOPPING, .GAMES
+ - new tld .HELP
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-Raw-2.99001.tar.gz
New:
----
Net-Whois-Raw-2.99002.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.5dMHfr/_old 2016-10-23 12:53:09.000000000 +0200
+++ /var/tmp/diff_new_pack.5dMHfr/_new 2016-10-23 12:53:09.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Net-Whois-Raw
-Version: 2.99001
+Version: 2.99002
Release: 0
%define cpan_name Net-Whois-Raw
Summary: Get Whois information of domains and IP addresses
@@ -30,7 +30,6 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(DBI)
BuildRequires: perl(HTTP::Headers)
BuildRequires: perl(HTTP::Request)
BuildRequires: perl(IO::Socket::IP)
++++++ Net-Whois-Raw-2.99001.tar.gz -> Net-Whois-Raw-2.99002.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/Changes
new/Net-Whois-Raw-2.99002/Changes
--- old/Net-Whois-Raw-2.99001/Changes 2016-08-22 10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/Changes 2016-10-17 20:02:59.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl module Net::Whois::Raw.
+2.99002 Oct 17 2016 Alexander Nalobin, Vadim Likhota, Anton Chuvashev
+ - get rid of unused DBI dependency
+ - whois.iana.org for tld only query
+ - new tlds .RADIO.AM, .RADIO.FM, .SHOP, .SHOPPING, .GAMES
+ - new tld .HELP
+
2.99001 Aug 01 2016 Vadim Likhota
- new tlds .PROMO, .ART, .FORUM
- fix whois for .JOBS, .LA, .MOBI
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/META.yml
new/Net-Whois-Raw-2.99002/META.yml
--- old/Net-Whois-Raw-2.99001/META.yml 2016-08-22 10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/META.yml 2016-10-17 20:02:59.000000000 +0200
@@ -3,7 +3,6 @@
author:
- 'Alexander Nalobin <alexan...@nalobin.ru>'
build_requires:
- DBI: '0'
File::Temp: '0'
Socket: '0'
Test::More: '0'
@@ -37,4 +36,4 @@
resources:
bugtracker: https://github.com/regru/Net-Whois-Raw/issues
repository: git://github.com/regru/Net-Whois-Raw.git
-version: '2.99001'
+version: '2.99002'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/Makefile.PL
new/Net-Whois-Raw-2.99002/Makefile.PL
--- old/Net-Whois-Raw-2.99001/Makefile.PL 2016-08-22 10:52:38.000000000
+0200
+++ new/Net-Whois-Raw-2.99002/Makefile.PL 2016-10-17 20:02:59.000000000
+0200
@@ -38,13 +38,12 @@
"warnings" => 0
},
"TEST_REQUIRES" => {
- "DBI" => 0,
"File::Temp" => 0,
"Socket" => 0,
"Test::More" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "2.99001",
+ "VERSION" => "2.99002",
"test" => {
"TESTS" => "t/*.t"
}
@@ -53,7 +52,6 @@
my %FallbackPrereqs = (
"Carp" => 0,
- "DBI" => 0,
"Data::Dumper" => 0,
"Encode" => 0,
"File::Temp" => 0,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/bin/pwhois
new/Net-Whois-Raw-2.99002/bin/pwhois
--- old/Net-Whois-Raw-2.99001/bin/pwhois 2016-08-22 10:52:38.000000000
+0200
+++ new/Net-Whois-Raw-2.99002/bin/pwhois 2016-10-17 20:02:59.000000000
+0200
@@ -93,7 +93,8 @@
my ($result, $result_server);
my $which_whois =
$return_first ? 'QRY_FIRST' :
- $return_all ? 'QRY_ALL' : 'QRY_LAST';
+ $return_all ? 'QRY_ALL' :
+ $return_last ? 'QRY_LAST' : '' ;
($result, $result_server) =
Net::Whois::Raw::get_whois( $dom, $server, $which_whois );
@@ -215,6 +216,9 @@
$dom =~ /(.+?)\.([^.]+)$/;
my ($name, $tld) = ($1, $2);
+ # query with tld only
+ return 1 unless $name;
+
return 0 if $name =~ /^-/;
return 0 if $name =~ /-$/;
return 0 if $name =~ /^..--/ && $dom !~ /^xn--/;
@@ -237,7 +241,7 @@
=head1 VERSION
-version 2.99001
+version 2.99002
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/dist.ini
new/Net-Whois-Raw-2.99002/dist.ini
--- old/Net-Whois-Raw-2.99001/dist.ini 2016-08-22 10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/dist.ini 2016-10-17 20:02:59.000000000 +0200
@@ -4,13 +4,14 @@
copyright_holder = Alexander Nalobin
copyright_year = 2002-2016
-version = 2.99001
+version = 2.99002
[@Filter]
-bundle = @Basic
-remove = Readme
[AutoPrereqs]
skip = Win32API::Registry
+skip = DBI
[Prereqs]
File::Temp = 0
[ExecDir]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw/Common.pm
new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw/Common.pm 2016-08-22
10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw/Common.pm 2016-10-17
20:02:59.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Common;
-$Net::Whois::Raw::Common::VERSION = '2.99001';
+$Net::Whois::Raw::Common::VERSION = '2.99002';
# ABSTRACT: Helper for Net::Whois::Raw.
use Encode;
@@ -620,7 +620,7 @@
=head1 VERSION
-version 2.99001
+version 2.99002
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw/Data.pm
new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw/Data.pm 2016-08-22
10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw/Data.pm 2016-10-17
20:02:59.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Data;
-$Net::Whois::Raw::Data::VERSION = '2.99001';
+$Net::Whois::Raw::Data::VERSION = '2.99002';
# ABSTRACT: Config for Net::Whois::Raw.
use utf8;
@@ -148,7 +148,7 @@
PRO whois.nic.pro
TEL whois-tel.neustar.biz
TRAVEL whois.nic.travel
-
+
ACADEMY whois.donuts.co
ACCOUNTANTS whois.donuts.co
AGENCY whois.donuts.co
@@ -258,6 +258,7 @@
SCHULE whois.donuts.co
SERVICES whois.donuts.co
SHOES whois.donuts.co
+ SHOPPING whois.donuts.co
SINGLES whois.donuts.co
SOLAR whois.donuts.co
SOLUTIONS whois.donuts.co
@@ -295,8 +296,10 @@
CAR whois.uniregistry.net
CARS whois.uniregistry.net
CHRISTMAS whois.uniregistry.net
+ GAME whois.uniregistry.net
GIFT whois.uniregistry.net
GUITARS whois.uniregistry.net
+ HELP whois.uniregistry.net
HIPHOP whois.uniregistry.net
JUEGOS whois.uniregistry.net
LINK whois.uniregistry.net
@@ -323,6 +326,7 @@
MOSCOW whois.nic.moscow
ONE whois.nic.one
OOO whois.nic.ooo
+ SHOP whois.nic.shop
SRL whois.nic.srl
STUDY whois.nic.study
TATAR whois.nic.tatar
@@ -395,6 +399,7 @@
YOGA whois-dub.mm-registry.com
FAMILY whois.rightside.co
+ GAMES whois.rightside.co
LIVE whois.rightside.co
STUDIO whois.rightside.co
@@ -498,6 +503,7 @@
SM whois.ripe.net
SO whois.nic.so
ST whois.nic.st
+ SX whois.sx
TC whois.adamsnames.tc
TF whois.nic.tf
TH whois.nic.uk
@@ -735,6 +741,8 @@
MEX.COM whois.centralnic.com
NO.COM whois.centralnic.com
QC.COM whois.centralnic.com
+ RADIO.AM whois.centralnic.com
+ RADIO.FM whois.centralnic.com
RU.COM whois.centralnic.com
SA.COM whois.centralnic.com
SE.COM whois.centralnic.com
@@ -781,8 +789,18 @@
BIZ.NS whois.biz
NAME.NS whois.nic.name
VIP whois.nic.vip
- GAME whois.nic.game
PROMO whois.nic.promo
+
+ NOTLD whois.iana.org
+);
+
+
+our %default_last_tlds = qw(
+ COM whois.crsnic.net
+ NET whois.crsnic.net
+ CC whois.nic.cc
+ TV whois.nic.tv
+ JOBS whois.nic.jobs
);
@@ -2698,7 +2716,7 @@
=head1 VERSION
-version 2.99001
+version 2.99002
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw.pm
new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.99001/lib/Net/Whois/Raw.pm 2016-08-22
10:52:38.000000000 +0200
+++ new/Net-Whois-Raw-2.99002/lib/Net/Whois/Raw.pm 2016-10-17
20:02:59.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw;
-$Net::Whois::Raw::VERSION = '2.99001';
+$Net::Whois::Raw::VERSION = '2.99002';
# ABSTRACT: Get Whois information of domains and IP addresses.
require 5.008_001;
@@ -60,7 +60,10 @@
sub whois {
my ($dom, $server, $which_whois) = @_;
- $which_whois ||= 'QRY_LAST';
+ unless ( $which_whois ) {
+ my ( undef, $tld ) = Net::Whois::Raw::Common::split_domain( $dom );
+ $which_whois = $Net::Whois::Raw::Data::default_last_tlds{ uc $tld } ?
'QRY_LAST' : 'QRY_FIRST' ;
+ }
my $res = Net::Whois::Raw::Common::get_from_cache( "$dom-$which_whois",
$CACHE_DIR, $CACHE_TIME );
@@ -93,7 +96,11 @@
# obtain whois
sub get_whois {
my ($dom, $srv, $which_whois) = @_;
- $which_whois ||= 'QRY_LAST';
+
+ unless ( $which_whois ) {
+ my ( undef, $tld ) = Net::Whois::Raw::Common::split_domain( $dom );
+ $which_whois = $Net::Whois::Raw::Data::default_last_tlds{ uc $tld } ?
'QRY_LAST' : 'QRY_FIRST' ;
+ }
my $whois = get_all_whois( $dom, $srv, $which_whois eq 'QRY_FIRST' )
or return undef;
@@ -171,12 +178,16 @@
my $lines = whois_query( $dom, $srv, $is_ns );
my $whois = join("", @{$lines});
- my ($newsrv, $registrar);
+ my ($newsrv, $registrar, $wsrv);
foreach (@{$lines}) {
- $registrar ||= /Registrar/ || /Registered through/;
+ $registrar ||= /Registrar/ || /Registered through/;
+
+ if ( !$norecurse && !$wsrv && /(?:Whois|WHOIS)
Server:\s*([A-Za-z0-9\-_\.]+)/ ) {
+ $wsrv = lc $1;
+ }
- if ( $registrar && !$norecurse && /Whois
Server:\s*([A-Za-z0-9\-_\.]+)/ ) {
- $newsrv = lc $1;
+ if ( $registrar && !$norecurse && $wsrv && !$newsrv ) {
+ $newsrv = $wsrv;
}
elsif ($whois =~ /To single out one record, look it up with
\"xxx\",/s) {
return recursive_whois( "=$dom", $srv, $was_srv );
@@ -187,14 +198,14 @@
}
elsif (/Contact information can be found in the (\S+)\s+database/) {
$newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $1 };
- }
+ }
elsif ((/OrgID:\s+(\w+)/ || /descr:\s+(\w+)/) &&
Net::Whois::Raw::Common::is_ipaddr($dom)) {
my $val = $1;
if($val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/) {
$newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $val };
last;
}
- }
+ }
elsif (/^\s+Maintainer:\s+RIPE\b/ &&
Net::Whois::Raw::Common::is_ipaddr($dom)) {
$newsrv = $Net::Whois::Raw::Data::servers{RIPE};
}
@@ -472,7 +483,7 @@
=head1 VERSION
-version 2.99001
+version 2.99002
=head1 SYNOPSIS
