#!/usr/bin/perl
-# $Id: search.cgi,v 1.12 2004/12/04 18:48:07 joey Exp $
+# $Id: search.cgi,v 1.13 2006/06/27 04:37:45 rmurray Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
# (c) 2004 Martin Schulze. Licensed under the GPL. <joey@debian.org>
if (!$dosearch) {
# No action yet, send back the search form...
- print "Content-type: text/html\n\n";
+ print "Content-type: text/html; charset=utf-8\n\n";
open (F, "<$config{websearchhtml}") || &Util::HTMLError($!);
while (<F>) {
s/~id~/$id/g;