W3C home > Mailing lists > Public > www-validator-cvs@w3.org > February 2009

perl/modules/W3C/LinkChecker/bin checklink,4.141,4.142

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 10 Feb 2009 18:36:33 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1LWxTF-0002D1-Kh@lionel-hutz.w3.org>

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

Modified Files:
	checklink 
Log Message:
Remove Style_URI configuration variable, resolve it from Doc_URI.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.141
retrieving revision 4.142
diff -u -d -r4.141 -r4.142
--- checklink	10 Feb 2009 18:34:38 -0000	4.141
+++ checklink	10 Feb 2009 18:36:31 -0000	4.142
@@ -322,8 +322,6 @@
     'http://jigsaw.w3.org/css-validator/validator?uri=%s';
   $Cfg{Doc_URI} ||=
     'http://validator.w3.org/docs/checklink.html';
-  $Cfg{Style_URI} ||=
-    'http://validator.w3.org/docs/linkchecker.css';
 
   # Untaint config params that are used as the format argument to (s)printf(),
   # Perl 5.10 does not want to see that in taint mode.
@@ -331,7 +329,8 @@
   ($Cfg{CSS_Validator_URI})    = ($Cfg{CSS_Validator_URI}    =~ /^(.*)$/);
 
   $DocType = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
-  $Head = sprintf(<<'EOF', HTML::Entities::encode($AGENT), $Cfg{Style_URI});
+  my $css_url = URI->new_abs('linkchecker.css', $Cfg{Doc_URI});
+  $Head = sprintf(<<'EOF', HTML::Entities::encode($AGENT), $css_url);
 <meta http-equiv="Content-Script-Type" content="text/javascript" />
 <meta name="generator" content="%s" />
 <link rel="stylesheet" type="text/css" href="%s" />
Received on Tuesday, 10 February 2009 18:36:44 GMT

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