perl/modules/W3C/LinkChecker/bin checklink,4.36,4.37

• From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
• Date: Tue, 03 Oct 2006 19:01:00 +0000
• To: www-validator-cvs@w3.org
• Message-Id: <E1GUpVk-0000fh-6b@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv2544/bin

Modified Files:
	checklink 
Log Message:
Make --quiet more quiet (Brian St. Pierre, Debian #390788, rt.cpan.org #15053).

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.36
retrieving revision 4.37
diff -u -d -r4.36 -r4.37
--- checklink	15 Jun 2006 17:57:27 -0000	4.36
+++ checklink	3 Oct 2006 19:00:57 -0000	4.37
@@ -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 Tuesday, 3 October 2006 19:01:11 UTC