W3C home > Mailing lists > Public > www-validator-cvs@w3.org > October 2006

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

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 15 Oct 2006 16:28:07 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1GZ8qN-0003Ky-Sv@lionel-hutz.w3.org>

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

Modified Files:
	checklink 
Log Message:
Print used settings only once and at start in command line output.


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.37
retrieving revision 4.38
diff -u -d -r4.37 -r4.38
--- checklink	3 Oct 2006 19:00:57 -0000	4.37
+++ checklink	15 Oct 2006 16:28:05 -0000	4.38
@@ -674,6 +674,18 @@
 
   my $result_anchor = 'results'.$doc_count;
 
+  if ($first && !$Opts{HTML} && !$Opts{Summary_Only}) {
+    my $s = $Opts{Sleep_Time} == 1 ? '' : 's';
+    my $acclang = $Opts{Accept_Language} || '(not sent)';
+    printf(<<'EOF', $Accept, $acclang, $Opts{Sleep_Time}, $s);
+
+Settings used:
+- Accept: %s
+- Accept-Language: %s
+- Sleeping %d second%s between requests to each server
+EOF
+  }
+
   printf("\nProcessing\t%s\n\n",
          $Opts{HTML} ? &show_url($absolute_uri) : $absolute_uri)
     unless $Opts{Quiet};
@@ -706,16 +718,6 @@
              &encode($Opts{_Self_URI}));
       print("<pre>\n");
     }
-  } elsif (! $Opts{Summary_Only}) {
-    my $s = $Opts{Sleep_Time} == 1 ? '' : 's';
-    my $acclang = $Opts{Accept_Language} || '(not sent)';
-    printf(<<'EOF', $Accept, $acclang, $Opts{Sleep_Time}, $s);
-Settings used:
-- Accept: %s
-- Accept-Language: %s
-- Sleeping %d second%s between requests to each server
-
-EOF
   }
 
   if ($Opts{Summary_Only} && !$Opts{Quiet}) {
Received on Sunday, 15 October 2006 16:28:18 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:54 GMT