W3C home > Mailing lists > Public > www-validator-cvs@w3.org > September 2007

perl/modules/W3C/LinkChecker/bin checklink,4.63,4.64

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 02 Sep 2007 08:48:39 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IRl8J-0002jj-Ah@lionel-hutz.w3.org>

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

Modified Files:
	checklink 
Log Message:
Output HTTP headers before fetching the first document (related to #4985).

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.63
retrieving revision 4.64
diff -u -d -r4.63 -r4.64
--- checklink	17 Aug 2007 21:06:56 -0000	4.63
+++ checklink	2 Sep 2007 08:48:36 -0000	4.64
@@ -718,6 +718,11 @@
   my ($uri, $is_first, $depth, $cookie, $referer, $is_start) = @_;
   $is_start ||= $is_first;
 
+  if ($Opts{HTML}) {
+    &html_header($uri, 0, $cookie) if $is_first;
+    print('<h2>');
+  }
+
   my $start = $Opts{Summary_Only} ? 0 : &get_timestamp();
 
   # Get and parse the document
@@ -744,11 +749,6 @@
   # We are checking a new document
   $doc_count++;
 
-  if ($Opts{HTML}) {
-    &html_header($uri, 0, $cookie) if $is_first;
-    print('<h2>');
-  }
-
   my $absolute_uri = $response->{absolute_uri}->as_string();
 
   my $result_anchor = 'results'.$doc_count;
Received on Sunday, 2 September 2007 08:48:41 GMT

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