W3C home > Mailing lists > Public > www-validator-cvs@w3.org > August 2010

link-checker commit: Make --quiet more quiet (Brian St. Pierre, Debian #390788, rt.cpan.org #15053).

From: Mercurial notifier <nobody@w3.org>
Date: Thu, 05 Aug 2010 14:47:05 +0000
To: link-checker updates <www-validator-cvs@w3.org>
Message-Id: <E1Oh1ir-0005nH-Pi@blinky.w3.org>
changeset:   147:5e46f378a1e5
user:        ville
date:        Tue Oct 03 19:00:57 2006 +0000
files:       bin/checklink
description:
Make --quiet more quiet (Brian St. Pierre, Debian #390788, rt.cpan.org #15053).


diff -r 7118c4015989 -r 5e46f378a1e5 bin/checklink
--- a/bin/checklink	Thu Sep 21 15:49:57 2006 +0000
+++ b/bin/checklink	Tue Oct 03 19:00:57 2006 +0000
@@ -5,7 +5,7 @@
 # (c) 1999-2006 World Wide Web Consortium
 # based on Renaud Bruyeron's checklink.pl
 #
-# $Id: checklink,v 4.36 2006-06-15 17:57:27 ville Exp $
+# $Id: checklink,v 4.37 2006-10-03 19:00:57 ville Exp $
 #
 # This program is licensed under the W3C(r) Software License:
 #       http://www.w3.org/Consortium/Legal/copyright-software
@@ -128,7 +128,7 @@
   $PROGRAM     = 'W3C-checklink';
   $VERSION     = '4.2.1';
   $REVISION    = sprintf('version %s (c) 1999-2006 W3C', $VERSION);
-  my ($cvsver) = q$Revision: 4.36 $ =~ /(\d+[\d\.]*\.\d+)/;
+  my ($cvsver) = q$Revision: 4.37 $ =~ /(\d+[\d\.]*\.\d+)/;
   $AGENT       = sprintf('%s/%s [%s] %s',
                          $PROGRAM, $VERSION, $cvsver, LWP::RobotUA->_agent());
 
@@ -675,7 +675,8 @@
   my $result_anchor = 'results'.$doc_count;
 
   printf("\nProcessing\t%s\n\n",
-         $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri);
+         $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri)
+    unless $Opts{Quiet};
 
   if ($Opts{HTML}) {
     print("</h2>\n");
@@ -717,11 +718,11 @@
 EOF
   }
 
-  if ($Opts{Summary_Only}) {
-    if ($Opts{HTML}) { print '<p>'}
+  if ($Opts{Summary_Only} && !$Opts{Quiet}) {
+    print '<p>' if $Opts{HTML};
     print 'This may take some time';
-    if ($Opts{HTML}) { print '... (<a href="'.$Cfg{Doc_URI}.'#wait">why?</a>)</p>'}
-    else { print " if the document has many links to check.\n"}
+    print "... (<a href=\"$Cfg{Doc_URI}#wait\">why?</a>)</p>" if $Opts{HTML};
+    print " if the document has many links to check.\n" unless $Opts{HTML};
   }
   # Record that we have processed this resource
   $processed{$absolute_uri} = 1;
Received on Thursday, 5 August 2010 14:47:48 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:43 UTC