#!/usr/bin/perl
-# $Id: login.cgi,v 1.8 2003/03/13 04:25:56 rmurray Exp $
+# $Id: login.cgi,v 1.9 2006/06/27 04:37:45 rmurray Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
$ldap->unbind;
} else {
- print "Content-type: text/html\n\n";
+ print "Content-type: text/html; charset=utf-8\n\n";
print "<html><body><h1>Not authenticated</h1></body></html>\n";
}
#!/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;