W3C home > Mailing lists > Public > www-validator-cvs@w3.org > August 2008

perl/modules/W3C/LinkChecker/bin checklink,4.112,4.113

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 26 Aug 2008 18:43:57 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1KY3WH-0004dM-HU@lionel-hutz.w3.org>

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

Modified Files:
	checklink 
Log Message:
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.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.112
retrieving revision 4.113
diff -u -d -r4.112 -r4.113
--- checklink	3 Jul 2008 19:50:24 -0000	4.112
+++ checklink	26 Aug 2008 18:43:55 -0000	4.113
@@ -294,6 +294,11 @@
   $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.
+  ($Cfg{Markup_Validator_URI}) = ($Cfg{Markup_Validator_URI} =~ /^(.*)$/);
+  ($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});
 <meta http-equiv="Content-Script-Type" content="text/javascript" />
Received on Tuesday, 26 August 2008 18:44:32 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:33 UTC