- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 26 Aug 2008 18:43:57 +0000
- To: www-validator-cvs@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