You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2013/09/02 01:58:20 UTC
svn commit: r1519325 - in /tcl/rivet/trunk: ChangeLog Makefile.in
rivet/rivet-tcl/parray.tcl
Author: mxmanghi
Date: Sun Sep 1 23:58:19 2013
New Revision: 1519325
URL: http://svn.apache.org/r1519325
Log:
* rivet/rivet-tcl/parray.tcl: escaping SGML characters that might appear in the output to avoid cross scripting
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/Makefile.in
tcl/rivet/trunk/rivet/rivet-tcl/parray.tcl
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=1519325&r1=1519324&r2=1519325&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Sun Sep 1 23:58:19 2013
@@ -1,3 +1,7 @@
+2013-08-30 Massimo Manghi <mx...@apache.org>
+ * rivet/rivet-tcl/parray.tcl: escaping SGML characters that might appear
+ in the output to avoid cross scripting
+
2013-08-26 Massimo Manghi <mx...@apache.org>
* configure.ac: expanded warning message about broken implementations
of Tcl when using forks and the event loop
Modified: tcl/rivet/trunk/Makefile.in
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/Makefile.in?rev=1519325&r1=1519324&r2=1519325&view=diff
==============================================================================
--- tcl/rivet/trunk/Makefile.in (original)
+++ tcl/rivet/trunk/Makefile.in Sun Sep 1 23:58:19 2013
@@ -17,7 +17,7 @@
#
# top-level Makefile.am for Apache Rivet: gets turned into a Makefile.in by automake
#
-# $Id: Makefile.am 1500301 2013-07-06 16:26:05Z mxmanghi $
+# $Id: Makefile.am 1517859 2013-08-27 16:08:31Z mxmanghi $
#
# 2007/12/25: Added target uninistall-local that removes the tcl stuff (mxmanghi)
# 2010/06/22: target instal-data-local searches for pkgIndex.tcl files and deletes them
Modified: tcl/rivet/trunk/rivet/rivet-tcl/parray.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/rivet-tcl/parray.tcl?rev=1519325&r1=1519324&r2=1519325&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/rivet-tcl/parray.tcl (original)
+++ tcl/rivet/trunk/rivet/rivet-tcl/parray.tcl Sun Sep 1 23:58:19 2013
@@ -27,8 +27,8 @@ namespace eval ::rivet {
puts stdout "<PRE><B>$arrayName</B>"
set maxl [expr {$maxl + [string length $arrayName] + 2}]
foreach name [lsort [array names array $pattern]] {
- set nameString [format %s(%s) $arrayName $name]
- puts stdout [format "%-*s = %s" $maxl $nameString $array($name)]
+ set nameString [format %s(%s) $arrayName [::rivet::escape_sgml_chars $name]]
+ puts stdout [format "%-*s = %s" $maxl $nameString [::rivet::escape_sgml_chars $array($name)]]
}
puts stdout "</PRE>"
}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org