This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Import dead URLs from my last analysis
[perl5.git] / Porting / checkURL.pl
index 90e7926..a82d01d 100755 (executable)
@@ -3,16 +3,16 @@ use strict;
 use warnings;
 use autodie;
 use feature qw(say);
-use File::Find::Rule;
-use File::Slurp;
-use File::Spec;
-use IO::Socket::SSL;
+require File::Find::Rule;
+require File::Slurp;
+require File::Spec;
+require IO::Socket::SSL;
 use List::Util qw(sum);
-use LWP::UserAgent;
-use Net::FTP;
-use Parallel::Fork::BossWorkerAsync;
-use Term::ProgressBar::Simple;
-use URI::Find::Simple qw( list_uris );
+require LWP::UserAgent;
+require Net::FTP;
+require Parallel::Fork::BossWorkerAsync;
+require Term::ProgressBar::Simple;
+require URI::Find::Simple;
 $| = 1;
 
 my %ignore;
@@ -46,15 +46,15 @@ foreach my $filename (@filenames) {
     next if $filename =~ /\.patch$/;
     next if $filename =~ 'cpan/Pod-Simple/t/perlfaqo?\.pod';
     next if $filename =~ /checkURL\.pl$/;
-    my $contents = read_file($filename);
-    my @uris     = list_uris($contents);
+    my $contents = File::Slurp::read_file($filename);
+    my @uris     = URI::Find::Simple::list_uris($contents);
     foreach my $uri (@uris) {
         next unless $uri =~ /^(http|ftp)/;
         next if $ignore{$uri};
 
         # no need to hit rt.perl.org
         next
-            if $uri =~ m{^https?://rt.perl.org/rt3/Ticket/Display.html?id=\d+$};
+            if $uri =~ m{^https?://rt.perl.org/(?:rt3/)?Ticket/Display.html?id=\d+$};
 
         # no need to hit rt.cpan.org
         next
@@ -229,6 +229,28 @@ http://aspn.activestate.com/ASPN/Mail/Message/perl6-internals/2746631
 http://my.smithmicro.com/mac/stuffit/
 http://www.wg.omron.co.jp/cgi-bin/j-e/jfriedl.html
 http://persephone.cps.unizar.es/general/gente/spd/gzip/gzip.html
+http://www.openzaurus.org/
+http://Casbah.org/
+http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/nmake15.exe
+http://www.pvhp.com/~pvhp/
+http://www.pvhp.com/%7Epvhp/
+http://www.pvhp.com/%7epvhp/
+http://www.leo.org
+http://www.madgoat.com
+http://www.mks.com/s390/gnu/
+http://www.research.att.com/sw/tools/uwin/
+http://www.tpj.com/
+http://safaribooksonline.com/
+http://use.perl.org/~autrijus/journal/25768
+http://www.s390.ibm.com/products/oe/bpxqp1.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01396.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01489.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01491.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01608.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg02144.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg02998.html
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1999-03/msg00520.html
+http://www.w3.org/Security/Faq/
 
 # these are URI extraction bugs
 http://www.perl.org/E
@@ -413,7 +435,7 @@ http://www.nara.gov/genealogy/soundex/soundex.html
 http://rfc.net/rfc3461.html
 ftp://ftp.cs.pdx.edu/pub/elvis/
 http://www.fh-wedel.de/elvis/
-http://lists.perl.org/showlist.cgi?name=perl-mvs
+http://lists.perl.org/list/perl-mvs.html
 http://www.cpan.org/ports/os2/
 http://github.com/dagolden/cpan-meta-spec
 http://github.com/dagolden/cpan-meta-spec/issues