- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:47:20 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 299:19cecf821d2a
user: ville
date: Thu Feb 26 19:16:04 2009 +0000
files: bin/checklink
description:
Don't output informational messages in quiet mode (rt.cpan.org #43372).
diff -r cf11e384c26a -r 19cecf821d2a bin/checklink
--- a/bin/checklink Thu Feb 19 21:05:38 2009 +0000
+++ b/bin/checklink Thu Feb 26 19:16:04 2009 +0000
@@ -5,7 +5,7 @@
# (c) 1999-2009 World Wide Web Consortium
# based on Renaud Bruyeron's checklink.pl
#
-# $Id: checklink,v 4.150 2009-02-19 21:05:38 ville Exp $
+# $Id: checklink,v 4.151 2009-02-26 19:16:04 ville Exp $
#
# This program is licensed under the W3C(r) Software License:
# http://www.w3.org/Consortium/Legal/copyright-software
@@ -277,7 +277,7 @@
$PROGRAM = 'W3C-checklink';
$VERSION = '4.4';
$REVISION = sprintf('version %s (c) 1999-2009 W3C', $VERSION);
- my ($cvsver) = q$Revision: 4.150 $ =~ /(\d+[\d\.]*\.\d+)/;
+ my ($cvsver) = q$Revision: 4.151 $ =~ /(\d+[\d\.]*\.\d+)/;
$AGENT = sprintf('%s/%s [%s] %s',
$PROGRAM, $VERSION, $cvsver,
(W3C::UserAgent::USE_ROBOT_UA
@@ -1062,7 +1062,7 @@
$broken{$u}{fragments}{$fragment} += 2;
}
}
- } else {
+ } elsif (!($Opts{Quiet} && &informational($results{$u}{location}{code}))) {
# Couldn't find the document
$broken{$u}{location} = 1;
# All the fragments associated are hence broken
@@ -1911,6 +1911,14 @@
return "(N/A)";
}
+# returns true if the given code is informational
+sub informational ($)
+{
+ my $rc = shift;
+ return $rc == RC_ROBOTS_TXT() || $rc == RC_IP_DISALLOWED() ||
+ $rc == RC_PROTOCOL_DISALLOWED();
+}
+
sub anchors_summary (\%\%)
{
my ($anchors, $errors) = @_;
@@ -2399,8 +2407,7 @@
my $r = HTTP::Response->new($code);
if ($r->is_success()) {
$icon_type = 'error'; # if is success but reported, it's because of broken frags => error
- } elsif ($code == RC_ROBOTS_TXT() || $code == RC_IP_DISALLOWED() ||
- $code == RC_PROTOCOL_DISALLOWED()) {
+ } elsif (&informational($code)) {
$icon_type = 'info';
} elsif ($code == 300) {
$icon_type = 'info';
Received on Thursday, 5 August 2010 14:47:34 UTC