From: ivan <ivan>
Date: Wed, 30 Jul 2003 22:16:36 +0000 (+0000)
Subject: escape HTML entities when showing in printable format
X-Git-Tag: STAFF_0_5~1
X-Git-Url: http://git.freeside.biz/gitweb/?p=staff.git;a=commitdiff_plain;h=3c7fb6a60c385fece59ef0bc663cfcf1b3c6ae9c

escape HTML entities when showing in printable format
---

diff --git a/shift.cgi b/shift.cgi
index 6738b82..303cce7 100755
--- a/shift.cgi
+++ b/shift.cgi
@@ -2,7 +2,7 @@
 #!/usr/bin/perl -Tw
 # (Text::Template can't do -T, but no user input is used dangerously)
 #
-# $Id: shift.cgi,v 1.5 2002-07-10 01:08:49 ivan Exp $
+# $Id: shift.cgi,v 1.6 2003-07-30 22:16:36 ivan Exp $
 #
 # Copyright (C) 2000 Adam Gould
 # Copyright (C) 2000 Michal Migurski
@@ -49,6 +49,7 @@ use Text::Template;
 use Mail::Internet;
 use Mail::Header;
 use Date::Format;
+use HTML::Entities;
 
 $cgi = new CGI;
 
@@ -209,7 +210,7 @@ sub form {
 
 sub inputbox {
   my $field = shift;
-  return $shifthash{$field} || "&nbsp;"
+  return encode_entities($shifthash{$field}) || "&nbsp;"
     if $magic eq 'print';
   $shifthash{$field}='' unless defined $shifthash{$field};
   $warning{$field}='' unless defined $warning{$field};