From 6c48c6e4ce34044e02ab092e4331a388864acdf4 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Sat, 13 Jul 2002 19:58:27 +0000
Subject: Encode HTML Entities

---
 Echolot/Stats.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Echolot')

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/"/&quot;/;
+	$output =~ s/</&lt;/;
+	$output =~ s/>/&gt;/;
+	$output =~ s/&/&amp;/;
 	my $template =  HTML::Template->new(
 		filename => $html_template,
 		strict => 0,
-- 
cgit v1.2.3