diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-13 19:58:27 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-13 19:58:27 +0000 |
| commit | 6c48c6e4ce34044e02ab092e4331a388864acdf4 (patch) | |
| tree | 6dab613d066faedf63ed2f2d8c243e6eaa0e340d | |
| parent | 701de306db308cf5ba27fcc8da12b50806a4a9bb (diff) | |
Encode HTML Entities
| -rw-r--r-- | Echolot/Stats.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 56f1153..adf5626 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.16 2002/07/12 00:40:56 weasel Exp $ +# $Id: Stats.pm,v 1.17 2002/07/13 19:58:27 weasel Exp $ # =pod @@ -269,6 +269,10 @@ sub write_file($$;$) { return 1 unless defined $html_template; + $output =~ s/"/"/; + $output =~ s/</</; + $output =~ s/>/>/; + $output =~ s/&/&/; my $template = HTML::Template->new( filename => $html_template, strict => 0, |