Hello community,
here is the log from the commit of package perl-Net-Whois-Raw for
openSUSE:Factory checked in at 2020-07-06 16:29:46
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new.3060 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-Whois-Raw"
Mon Jul 6 16:29:46 2020 rev:43 rq:818859 version:2.99029
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-Whois-Raw/perl-Net-Whois-Raw.changes
2020-05-20 18:46:36.413436602 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Net-Whois-Raw.new.3060/perl-Net-Whois-Raw.changes
2020-07-06 16:32:00.555662926 +0200
@@ -1,0 +2,10 @@
+Wed Jul 1 03:11:22 UTC 2020 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 2.99029
+ see /usr/share/doc/packages/perl-Net-Whois-Raw/Changes
+
+ 2.99029 Jun 26 2020 Alexander Nalobin
+ - Fix whois servers of some tlds
+ - Small refactor for get_server()
+
+-------------------------------------------------------------------
Old:
----
Net-Whois-Raw-2.99028.tar.gz
New:
----
Net-Whois-Raw-2.99029.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-Whois-Raw.spec ++++++
--- /var/tmp/diff_new_pack.VO7ZUm/_old 2020-07-06 16:32:02.715669562 +0200
+++ /var/tmp/diff_new_pack.VO7ZUm/_new 2020-07-06 16:32:02.719669574 +0200
@@ -17,7 +17,7 @@
Name: perl-Net-Whois-Raw
-Version: 2.99028
+Version: 2.99029
Release: 0
%define cpan_name Net-Whois-Raw
Summary: Get Whois information of domains and IP addresses
++++++ Net-Whois-Raw-2.99028.tar.gz -> Net-Whois-Raw-2.99029.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/Changes
new/Net-Whois-Raw-2.99029/Changes
--- old/Net-Whois-Raw-2.99028/Changes 2020-05-12 07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/Changes 2020-06-30 07:07:42.000000000 +0200
@@ -1,5 +1,9 @@
Revision history for Perl module Net::Whois::Raw.
+2.99029 Jun 26 2020 Alexander Nalobin
+ - Fix whois servers of some tlds
+ - Small refactor for get_server()
+
2.99028 May 9 2020 Eugeny Subachev
- Deleting duplicates from notfound and servers
- Fix whois server of xn--ses554g tld
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/META.json
new/Net-Whois-Raw-2.99029/META.json
--- old/Net-Whois-Raw-2.99028/META.json 2020-05-12 07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/META.json 2020-06-30 07:07:42.000000000 +0200
@@ -59,7 +59,7 @@
"web" : "https://github.com/regru/Net-Whois-Raw";
}
},
- "version" : "2.99028",
+ "version" : "2.99029",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.19"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/META.yml
new/Net-Whois-Raw-2.99029/META.yml
--- old/Net-Whois-Raw-2.99028/META.yml 2020-05-12 07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/META.yml 2020-06-30 07:07:42.000000000 +0200
@@ -36,5 +36,5 @@
resources:
bugtracker: https://github.com/regru/Net-Whois-Raw/issues
repository: git://github.com/regru/Net-Whois-Raw.git
-version: '2.99028'
+version: '2.99029'
x_serialization_backend: 'YAML::Tiny version 1.70'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/Makefile.PL
new/Net-Whois-Raw-2.99029/Makefile.PL
--- old/Net-Whois-Raw-2.99028/Makefile.PL 2020-05-12 07:04:53.000000000
+0200
+++ new/Net-Whois-Raw-2.99029/Makefile.PL 2020-06-30 07:07:42.000000000
+0200
@@ -42,7 +42,7 @@
"Test::More" => 0,
"Test::RequiresInternet" => 0
},
- "VERSION" => "2.99028",
+ "VERSION" => "2.99029",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/bin/pwhois
new/Net-Whois-Raw-2.99029/bin/pwhois
--- old/Net-Whois-Raw-2.99028/bin/pwhois 2020-05-12 07:04:53.000000000
+0200
+++ new/Net-Whois-Raw-2.99029/bin/pwhois 2020-06-30 07:07:42.000000000
+0200
@@ -241,7 +241,7 @@
=head1 VERSION
-version 2.99028
+version 2.99029
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/dist.ini
new/Net-Whois-Raw-2.99029/dist.ini
--- old/Net-Whois-Raw-2.99028/dist.ini 2020-05-12 07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/dist.ini 2020-06-30 07:07:42.000000000 +0200
@@ -4,7 +4,7 @@
copyright_holder = Alexander Nalobin
copyright_year = 2002-2020
-version = 2.99028
+version = 2.99029
[@Filter]
-bundle = @Basic
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw/Common.pm
new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw/Common.pm
--- old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw/Common.pm 2020-05-12
07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw/Common.pm 2020-06-30
07:07:42.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Common;
-$Net::Whois::Raw::Common::VERSION = '2.99028';
+$Net::Whois::Raw::Common::VERSION = '2.99029';
# ABSTRACT: Helper for Net::Whois::Raw.
use Encode;
@@ -165,7 +165,7 @@
# get whois-server for domain / tld
sub get_server {
- my ($dom, $is_ns, $tld) = @_;
+ my ( $dom, $is_ns, $tld ) = @_;
$tld ||= get_dom_tld( $dom );
$tld = uc $tld;
@@ -174,18 +174,12 @@
return 'www_whois';
}
- my $srv = '';
if ( $is_ns ) {
- $srv = $Net::Whois::Raw::Data::servers{ $tld . '.NS' } ||
- $Net::Whois::Raw::Data::servers{ 'NS' };
- }
- else {
- #my $cname = "$tld.whois-servers.net";
- my $cname = "whois.nic.$tld";
- $srv = $Net::Whois::Raw::Data::servers{ $tld } || $cname;
+ return $Net::Whois::Raw::Data::servers{ $tld . '.NS' }
+ || $Net::Whois::Raw::Data::servers{ 'NS' };
}
- return $srv;
+ return lc( $Net::Whois::Raw::Data::servers{ $tld } || "whois.nic.$tld" );
}
sub get_real_whois_query{
@@ -241,8 +235,6 @@
my @http_query_data;
# my ($url, %form);
- my $server = get_server( undef, undef, $tld );
-
if ($tld eq 'ru' || $tld eq 'su') {
my $data = {
url => "http://www.nic.ru/whois/?domain=$name.$tld";,
@@ -349,8 +341,6 @@
sub parse_www_content {
my ($resp, $tld, $url, $CHECK_EXCEED) = @_;
- my $server = get_server( undef, undef, $tld );
-
chomp $resp;
$resp =~ s/\r//g;
@@ -616,7 +606,7 @@
=head1 VERSION
-version 2.99028
+version 2.99029
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw/Data.pm
new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw/Data.pm
--- old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw/Data.pm 2020-05-12
07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw/Data.pm 2020-06-30
07:07:42.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw::Data;
-$Net::Whois::Raw::Data::VERSION = '2.99028';
+$Net::Whois::Raw::Data::VERSION = '2.99029';
# ABSTRACT: Config for Net::Whois::Raw.
use utf8;
@@ -406,6 +406,13 @@
UNO whois.nic.uno
XXX whois.nic.xxx
+ BOX whois.nic.box
+ EPSON whois.nic.epson
+ IINET whois.nic.iinet
+ KRD whois.nic.krd
+ MELBOURNE whois.nic.melbourne
+ SAXO whois.nic.saxo
+
BET whois.afilias.net
BLACK whois.afilias.net
BLUE whois.afilias.net
@@ -433,6 +440,7 @@
BOSTON whois.nic.boston
BUZZ whois.nic.buzz
CONSULTING whois.nic.consulting
+ CYOU whois.nic.cyou
DANCE whois.nic.dance
DEGREE whois.nic.degree
DEMOCRAT whois.nic.democrat
@@ -962,7 +970,6 @@
CLINIQUE whois.afilias-srs.net
CREDITUNION whois.afilias-srs.net
CRUISE whois.afilias-srs.net
- CYOU whois.afilias-srs.net
DABUR whois.afilias-srs.net
DELTA whois.afilias-srs.net
DISH whois.afilias-srs.net
@@ -1083,13 +1090,6 @@
YACHTS whois.afilias-srs.net
ZARA whois.afilias-srs.net
- BOX whois.aridnrs.net.au
- EPSON whois.aridnrs.net.au
- IINET whois.aridnrs.net.au
- KRD whois.aridnrs.net.au
- MELBOURNE whois.aridnrs.net.au
- SAXO whois.aridnrs.net.au
-
BOM whois.gtlds.nic.br
FINAL whois.gtlds.nic.br
GLOBO whois.gtlds.nic.br
@@ -2409,7 +2409,6 @@
'whois.aeda.net.ae' => 'No Data Found',
'whois.afilias-srs.net' => 'NOT FOUND',
'whois.ai' => '^Domain \S+ not registered',
- 'whois.aridnrs.net.au' => 'No Data Found',
'whois.bnnic.bn' => 'Domain Not Found',
'whois.gtlds.nic.br' => 'The queried object does not
exist: ',
'whois.ngtld.cn' => 'No matching record\.',
@@ -2931,6 +2930,13 @@
'whois.nic.you' => 'This domain name has not been
registered\.',
'whois.nic.zappos' => 'This domain name has not been
registered\.',
'whois.registry.in' => 'No Data Found',
+ 'whois.nic.cyou' => 'DOMAIN NOT FOUND',
+ 'whois.nic.box' => 'No Data Found',
+ 'whois.nic.epson' => 'No Data Found',
+ 'whois.nic.iinet' => 'No Data Found',
+ 'whois.nic.krd' => 'No Data Found',
+ 'whois.nic.melbourne' => 'No Data Found',
+ 'whois.nic.saxo' => 'No Data Found',
);
# Common whois stripping REs
@@ -4523,7 +4529,7 @@
=head1 VERSION
-version 2.99028
+version 2.99029
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw.pm
new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw.pm
--- old/Net-Whois-Raw-2.99028/lib/Net/Whois/Raw.pm 2020-05-12
07:04:53.000000000 +0200
+++ new/Net-Whois-Raw-2.99029/lib/Net/Whois/Raw.pm 2020-06-30
07:07:42.000000000 +0200
@@ -1,5 +1,5 @@
package Net::Whois::Raw;
-$Net::Whois::Raw::VERSION = '2.99028';
+$Net::Whois::Raw::VERSION = '2.99029';
# ABSTRACT: Get Whois information of domains and IP addresses.
require 5.008_001;
@@ -259,7 +259,6 @@
### get server for query
my $server4query = Net::Whois::Raw::Common::get_server($dom);
- $server4query = lc $server4query;
if ( Net::Whois::Raw::Common::is_ip6addr( $srv ) ) {
$srv = "[$srv]";
@@ -481,7 +480,7 @@
=head1 VERSION
-version 2.99028
+version 2.99029
=head1 SYNOPSIS
