| Newsgroups |
perl.cvs.perlfaq |
| Message-ID |
<[email protected]> |
cvsuser 02/08/28 20:32:07
Modified: bin check_urls.pl
Log:
* added a hash of URLs to skip (that we know we can't verify
but are still good, like groups.google.com
Revision Changes Path
1.3 +14 -5 perlfaq/bin/check_urls.pl
Index: check_urls.pl
===================================================================
RCS file: /cvs/public/perlfaq/bin/check_urls.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- check_urls.pl 8 Apr 2002 23:03:09 -0000 1.2
+++ check_urls.pl 29 Aug 2002 03:32:07 -0000 1.3
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id: check_urls.pl,v 1.2 2002/04/08 23:03:09 comdog Exp $
+# $Id: check_urls.pl,v 1.3 2002/08/29 03:32:07 comdog Exp $
use strict;
=head1 NAME
@@ -33,7 +33,7 @@
=head1 BUGS
-* none known (yet)
+* can't handle groups.google.com
=head1 SEE ALSO
@@ -52,6 +52,9 @@
my $DEBUG = 0;
my $VERBOSE = 1;
+my %Skip = map { $_, 1 } qw(
+ http://groups.google.com/groups?group=comp.lang.perl.misc
+ );
print "ARGV is [@ARGV]\n" if $DEBUG;
@@ -86,8 +89,14 @@
print "\n======$key\n" if $VERBOSE;
- foreach my $url ( @{$urls{$key}} )
+ LINK: foreach my $url ( @{$urls{$key}} )
{
+ if( exists $Skip{$url} and $VERBOSE )
+ {
+ print "---\t$url\n\t--->Skipping\n" if $VERBOSE;
+ next LINK;
+ }
+
my $code = $seen{$url} || HTTP::SimpleLinkChecker::check_link( $url );
if( $VERBOSE )