Index: library/xotcl/library/comm/Httpd.xotcl
===================================================================
diff -u -N -rb49c37ce98c6e6e5ab909e8684989ae845627122 -r6b093438fe4e4b2aae05f6662de2346980a0a111
--- library/xotcl/library/comm/Httpd.xotcl (.../Httpd.xotcl) (revision b49c37ce98c6e6e5ab909e8684989ae845627122)
+++ library/xotcl/library/comm/Httpd.xotcl (.../Httpd.xotcl) (revision 6b093438fe4e4b2aae05f6662de2346980a0a111)
@@ -407,14 +407,18 @@
#my respond-CGI
}
+ Httpd::Wrk instproc quotehtml {msg} {
+ string map {< "<" > ">" & "&" "'" "'" "\"" """ } $msg
+ }
+
Httpd::Wrk instproc replyErrorMsg {{msg ""} args} {
my instvar replyCode
[self class] instvar codes
foreach {tag value} $args {[self]::connection puts "$tag: $value"}
my sendText "\nStatus Code: $replyCode\n\
- $msg\n\
+
[my quotehtml $msg]\n\
Status Code $replyCode: $codes($replyCode)
\n\
- Resource Name: [my set resourceName]\n"
+ Resource Name: [my quotehtml [my set resourceName]]