- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 15 Oct 2006 16:28:07 +0000
- To: www-validator-cvs@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 UTC