$NetBSD: patch-as,v 1.1 2008/07/25 02:55:27 tonnerre Exp $
--- cluster-software/search.cgi.orig 2007-09-21 23:27:39.000000000 +0200
+++ cluster-software/search.cgi
@@ -29,7 +29,8 @@ if (@match == 1) {
&ui_print_header(undef, $text{'search_title'}, "", "search");
if (@match) {
@match = sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @match;
- print "",&text('search_match', "$s"),"
\n";
+ print "",&text('search_match', "" . &html_escape($s) . ""),
+ "
\n";
print &ui_form_start("delete_packs.cgi", "post");
print &ui_hidden("search", $in{'search'}),"\n";
@@ -43,8 +44,9 @@ if (@match) {
$text{'search_desc'} ], 100, 0, \@tds);
foreach $i (@match) {
local @cols;
- push(@cols, "{'name'})."\">$i->{'name'}");
+ push(@cols, "{'name'}) .
+ "\">$i->{'name'}");
$c = $i->{'class'};
push(@cols, $i->{'class'} || $text{'search_none'});
push(@cols, $i->{'desc'});
@@ -62,7 +64,8 @@ if (@match) {
print &ui_form_end();
}
else {
- print "",&text('search_nomatch', "$s"),"\n";
+ print "",&text('search_nomatch', "" . &html_escape($s) .
+ ""),"\n";
}
&ui_print_footer("", $text{'index_return'});