From: rmurray <> Date: Tue, 27 Jun 2006 02:37:45 +0000 (+0000) Subject: It's a utf-8 world X-Git-Tag: release-0.3.33~81 X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=e8250d78d091445fbd422fed5d3ae9ab2516eada It's a utf-8 world --- diff --git a/Util.pm b/Util.pm index 76accc9..98668c3 100644 --- a/Util.pm +++ b/Util.pm @@ -256,7 +256,7 @@ sub LookupCountry { my $htmlhdrsent = 0; sub HTMLSendHeader { - print "Content-type: text/html\n\n" if (!$htmlhdrsent); + print "Content-type: text/html; charset=utf-8\n\n" if (!$htmlhdrsent); $htmlhdrsent = 1; } diff --git a/login.cgi b/login.cgi index 0058aa9..1e04ef4 100755 --- a/login.cgi +++ b/login.cgi @@ -1,6 +1,6 @@ #!/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. use lib '.'; @@ -68,7 +68,7 @@ if ($mesg->code == LDAP_SUCCESS) { $ldap->unbind; } else { - print "Content-type: text/html\n\n"; + print "Content-type: text/html; charset=utf-8\n\n"; print "

Not authenticated

\n"; } diff --git a/search.cgi b/search.cgi index 3151399..2174d52 100755 --- a/search.cgi +++ b/search.cgi @@ -1,6 +1,6 @@ #!/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. # (c) 2004 Martin Schulze. Licensed under the GPL. @@ -33,7 +33,7 @@ $SIG{__DIE__} = \&DieHandler; 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 () { s/~id~/$id/g;