utf8 for everybody!

1 files changed, 5 insertions, 2 deletions

diff --git a/listdrobpoxes.cgi b/listdrobpoxes.cgi
index a6724d7..f2dec4f 100755
--- a/listdrobpoxes.cgi
+++ b/listdrobpoxes.cgi
@@ -6,13 +6,16 @@ use File::Basename;
 use lib dirname( __FILE__ ) . '/lib';
 use rddb;
 
+binmode(STDIN, ":utf8");
+binmode(STDOUT, ":utf8");
+binmode(STDERR, ":utf8");
+
 my $status = 'ERROR';
 my $errorstring = 'unknown';
 my $responsecode = 500;
 my @dropboxes = ();
 
 my $q = CGI->new;
-
 my $username = $q->param('LOGIN_NAME');
 my $token = $q->param('PASSWORD');
 
@@ -32,7 +35,7 @@ if(defined $dbh) {
   rddb::closedb($dbh);
 }
 
-print "Content-type: application/xml\n\n";
+print "Content-type: application/xml; charset=UTF-8\n\n";
 
 if($responsecode != 200) {
   print "<RDWebResult>\n";