Changeset 2667 for trunk/gsdl/perllib/plugins/TEXTPlug.pm

Timestamp:

2001-07-23T16:26:31+12:00 (23 years ago)

Author:

jrm21

Message:

protect against < and > chars, as <pre> tags don't preserve them.

File:

• trunk/gsdl/perllib/plugins/TEXTPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -97 +97 @@
     # eg literal newlines, instead of leaving the text as '\n'
     $$textref =~ s/\\/\\\\/g;
+    $$textref =~ s/</&lt;/g;
+    $$textref =~ s/>/&gt;/g;
 
     # insert preformat tags and add text to document object