summaryrefslogtreecommitdiff
path: root/listdrobpoxes.cgi
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2014-09-19 10:19:06 (GMT)
committerChristian Pointner <equinox@helsinki.at>2014-09-19 10:19:06 (GMT)
commitbb84ce3d7e580247aaabd5440fe15a25206a40ed (patch)
tree515ce2f8fe099be50f19ff966b060ee5b0bff018 /listdrobpoxes.cgi
parentf100a9f323461393b0f7a3e509728ca4256489b7 (diff)
utf8 for everybody!
Diffstat (limited to 'listdrobpoxes.cgi')
-rwxr-xr-xlistdrobpoxes.cgi7
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";