diff options
| author | Christian Pointner <equinox@helsinki.at> | 2014-09-19 10:19:06 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2014-09-19 10:19:06 (GMT) |
| commit | bb84ce3d7e580247aaabd5440fe15a25206a40ed (patch) | |
| tree | 515ce2f8fe099be50f19ff966b060ee5b0bff018 /authtoken.json | |
| parent | f100a9f323461393b0f7a3e509728ca4256489b7 (diff) | |
utf8 for everybody!
Diffstat (limited to 'authtoken.json')
| -rwxr-xr-x | authtoken.json | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/authtoken.json b/authtoken.json index 2db49de..1f0c415 100755 --- a/authtoken.json +++ b/authtoken.json @@ -5,6 +5,10 @@ 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 $username = ''; @@ -22,7 +26,7 @@ if(defined $ENV{REMOTE_USER}) { $errorstring = 'no username defined - are you logged in?'; } -print "Content-type: application/json\n\n"; +print "Content-type: application/json; charset=UTF-8\n\n"; print "{\n"; print ' "status": "' . $status . '"'. ",\n"; |