diff options
author | Christian Pointner <equinox@helsinki.at> | 2016-05-11 13:49:36 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2016-05-11 13:49:36 (GMT) |
commit | 77ac165beeda872a7ba92efceb12faa2a3459e92 (patch) | |
tree | b45c172e5a84f841f97c62cb576c174cda4da2d8 /rh-bin | |
parent | 610c31e9361787250cad241babd99f5d2581d23a (diff) |
moved to JSON::MaybeXS
Diffstat (limited to 'rh-bin')
-rwxr-xr-x | rh-bin/activesystem.json | 6 | ||||
-rwxr-xr-x | rh-bin/showlist.json | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/rh-bin/activesystem.json b/rh-bin/activesystem.json index d65c6c4..c37c5c4 100755 --- a/rh-bin/activesystem.json +++ b/rh-bin/activesystem.json @@ -22,7 +22,7 @@ use strict; use RHRD::rddb; -use JSON; +use JSON::MaybeXS; use IO::Socket; use Socket qw(SOCK_STREAM getaddrinfo); @@ -64,9 +64,11 @@ $answer{'status'} = $status; $answer{'errorstring'} = $errorstring; $answer{'system'} = $system; +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); diff --git a/rh-bin/showlist.json b/rh-bin/showlist.json index 35d81e3..09f87b5 100755 --- a/rh-bin/showlist.json +++ b/rh-bin/showlist.json @@ -22,7 +22,7 @@ use strict; use RHRD::rddb; -use JSON; +use JSON::MaybeXS; my $status = 'ERROR'; my $errorstring = 'unknown'; @@ -57,6 +57,8 @@ $answer{'status'} = $status; $answer{'errorstring'} = $errorstring; $answer{'shows'} = \@showlist; +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); |