From 69e8a2b1a3d7a8750a9826816f72c34c8fda53fe Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 27 Apr 2014 11:41:46 +0200
Subject: fix

---
 Xerl/Page/Templates.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Xerl/Page')

diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index 28a1d93..679e843 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -195,12 +195,16 @@ sub print($;$) {
 
     my $time = defined $time ? sprintf '%1.4f', tv_interval($time) : '';
 
+    $line =~ s/</&lt;/g;
+    $line =~ s/>/&gt;/g;
+
     $line =~ s/!!HOSTNAME!!/$config->get_hostname()/ge;
     $line =~ s/!!TIME!!/$time/ge;
     $line =~ s/!!LT!!/</g;
     $line =~ s/!!GT!!/>/g;
     $line =~ s#!!URL\((.+?)\)!!#<a href="$1">$1</a>#g;
 
+
     print $line;
   }
 
-- 
cgit v1.2.3