diff options
| author | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 11:41:46 +0200 |
|---|---|---|
| committer | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 11:41:46 +0200 |
| commit | 69e8a2b1a3d7a8750a9826816f72c34c8fda53fe (patch) | |
| tree | b93953b84ac37613cee4c2f551dedecf70ad4129 /Xerl/Page/Templates.pm | |
| parent | 1e26bf81bac98f13047c648b7f72b69f523f76a7 (diff) | |
fix
Diffstat (limited to 'Xerl/Page/Templates.pm')
| -rw-r--r-- | Xerl/Page/Templates.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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/</</g; + $line =~ s/>/>/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; } |