my $tmpl = $self->load_tmpl('results.html');
my $tmpl = $self->load_tmpl('results.html');
+ sub esc_html {
+ my $html = shift;
+ $html =~ s/</</g;
+ $html =~ s/>/>/g;
+ return $html;
+ }
+
# call swish
my $sh = SWISH->connect('Fork',
prog => $SWISH,
# call swish
my $sh = SWISH->connect('Fork',
prog => $SWISH,
push @swish_results, {
nr => ($#swish_results + 2),
path => $hit->swishdocpath,
push @swish_results, {
nr => ($#swish_results + 2),
path => $hit->swishdocpath,
- headline => $from_utf8->convert($hit->headline),
+ headline => esc_html($from_utf8->convert($hit->headline)),
html => back2html($from_utf8->convert($hit->html)),
rank => $hit->swishrank };
html => back2html($from_utf8->convert($hit->html)),
rank => $hit->swishrank };
sub back2html {
my $html = shift;
sub back2html {
my $html = shift;
+ $html =~ s/</</g;
+ $html =~ s/>/>/g;
my $out;
foreach $line (split(/\s*###\s*/,$html)) {
$out .= "<tr><td valign=\"top\">";
my $out;
foreach $line (split(/\s*###\s*/,$html)) {
$out .= "<tr><td valign=\"top\">";