diff options
| -rw-r--r-- | README | 2 | ||||
| -rwxr-xr-x | rh-bin/authtoken.json | 6 |
2 files changed, 5 insertions, 3 deletions
@@ -31,7 +31,7 @@ LICENSE Installation ============ -# sudo aptitude install apache2 libapache2-mpm-itk libapache2-mod-perl2 libjson-any-perl libxml-quote-perl librhrd-perl libjs-jquery libjs-bootstrap rivendell-server +# sudo aptitude install apache2 libapache2-mpm-itk libapache2-mod-perl2 libjson-maybexs-perl libxml-quote-perl librhrd-perl libjs-jquery libjs-bootstrap rivendell-server # sudo a2enmod ssl authnz_ldap perl proxy_wstunnel # sudo /etc/init.d/apache2 restart diff --git a/rh-bin/authtoken.json b/rh-bin/authtoken.json index 9e4c332..13a73d3 100755 --- a/rh-bin/authtoken.json +++ b/rh-bin/authtoken.json @@ -23,7 +23,7 @@ use strict; use RHRD::rddb; -use JSON; +use JSON::MaybeXS; my $status = 'ERROR'; my $errorstring = 'unknown'; @@ -57,6 +57,8 @@ $answer{'username'} = $username; $answer{'fullname'} = $fullname; $answer{'token'} = $token; +my $j = JSON::MaybeXS->new(utf8 => 0); + print "Content-type: application/json; charset=UTF-8\n"; print "Status: $responsecode\n\n"; -print JSON->new->encode(\%answer); +print $j->encode(\%answer); |