Permalink
Browse files

downloaded latest list, changed Build.PL to always ask to check for n…

…ew list
  • Loading branch information...
1 parent 96fa762 commit a38c362d2da4b665e99db7c30991afb3c24d51c8 Richard Simões committed Feb 20, 2013
Showing with 26 additions and 24 deletions.
  1. +14 −16 Build.PL
  2. +2 −0 Changes
  3. +0 −3 dist.ini
  4. +10 −5 effective_tld_names.dat
View
@@ -19,23 +19,21 @@ my $builder = Module::Build->new(
);
my $DAT = "effective_tld_names.dat";
-if ( -M $DAT > 30 ) {
- my $get_new_list = $builder->y_n(
- "Check for a new version of the Public Suffix List?", "N"
- );
- if ($get_new_list) {
- my $http = HTTP::Tiny->new( timeout => 6 );
- my $list_uri = "http://mxr.mozilla.org"
- . "/mozilla-central/source/netwerk/dns/$DAT?raw=1";
- my %options = (
- headers => {
- "If-Modified-Since" => "Wed, 22 Feb 2012 16:00:41 GMT"
- }
- );
- my $response = $http->get( $list_uri, \%options );
- if ( $response->{status} == 200 ) {
- IO::File->new($DAT, "w")->print( $response->{content} );
+my $get_new_list = $builder->y_n(
+ "Check for a new version of the Public Suffix List?", "N"
+);
+if ($get_new_list) {
+ my $http = HTTP::Tiny->new( timeout => 6 );
+ my $list_uri = "http://mxr.mozilla.org"
+ . "/mozilla-central/source/netwerk/dns/$DAT?raw=1";
+ my %options = (
+ headers => {
+ "If-Modified-Since" => "Mon, 18 Feb 2013 20:02:07 GMT"
}
+ );
+ my $response = $http->get( $list_uri, \%options );
+ if ( $response->{status} == 200 ) {
+ IO::File->new($DAT, "w")->print( $response->{content} );
}
}
View
@@ -1,6 +1,8 @@
{{$NEXT}}
- Changed to return undef (instead of croaking) if a passed domain name is
not well-formed.
+ - Changed build script to always ask if the latest list should be downloaded
+ (still defaults to "N").
- Updated bundled list to latest version (revision 3af9909a49e4).
v0.1.11 2013-01-16 17:05:57 America/Chicago
View
@@ -36,15 +36,12 @@ skip = ^(?:base|strict|warnings|if|utf8|charnames|open|re|subs|version|Carp|Expo
[ExtraTests]
-[MetaJSON]
-
[MinimumPerl]
[NextRelease]
[OurPkgVersion]
[Test::PodSpelling]
-stopwords = Simões
stopwords = uk
stopwords = Mozilla's
@@ -1071,13 +1071,14 @@ tozsde.hu
utazas.hu
video.hu
-// id : http://en.wikipedia.org/wiki/.id
-// see also: https://register.pandi.or.id/
+// id : https://register.pandi.or.id/
id
ac.id
+biz.id
co.id
go.id
mil.id
+my.id
net.id
or.id
sch.id
@@ -5903,16 +5904,20 @@ club.tw
組織.tw
商業.tw
-// tz : http://en.wikipedia.org/wiki/.tz
-// Submitted by registry <randy@psg.com> 2008-06-17
-// Updated from http://www.tznic.or.tz/index.php/domains.html 2010-10-25
+// tz : http://www.tznic.or.tz/index.php/domains
+// Confirmed by registry <manager@tznic.or.tz> 2013-01-22
ac.tz
co.tz
go.tz
+hotel.tz
+info.tz
+me.tz
mil.tz
+mobi.tz
ne.tz
or.tz
sc.tz
+tv.tz
// ua : https://hostmaster.ua/policy/?ua
// Submitted by registry <dk@cctld.ua> 2012-04-27

0 comments on commit a38c362

Please sign in to comment.