perl/modules/W3C/LinkChecker/bin checklink,4.7,4.8

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

Modified Files:
	checklink 
Log Message:
Try to avoid server/browser timeouts in summary only mode when the check takes
a long time.  Should fix http://www.w3.org/Bugs/Public/show_bug.cgi?id=896


Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.7
retrieving revision 4.8
diff -u -d -r4.7 -r4.8
--- checklink	10 Oct 2004 21:00:22 -0000	4.7
+++ checklink	12 Oct 2004 21:54:11 -0000	4.8
@@ -736,7 +736,12 @@
     # Don't check mailto: URI's
     next if ($u =~ m/^mailto:/);
 
-    &hprintf("Checking link %s\n", $u) unless $Opts{Summary_Only};
+    if ($Opts{Summary_Only}) {
+      # Hack: avoid browser/server timeouts in summary only CGI mode, bug 896
+      print ' ' if ($Opts{HTML} && !$Opts{Command_Line});
+    } else {
+      &hprintf("Checking link %s\n", $u);
+    }
 
     # Check that a link is valid
     &check_validity($uri, $u,

Received on Tuesday, 12 October 2004 21:54:14 UTC