summaryrefslogtreecommitdiff
path: root/rh-bin
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-05-11 13:49:36 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-05-11 13:49:36 (GMT)
commit77ac165beeda872a7ba92efceb12faa2a3459e92 (patch)
treeb45c172e5a84f841f97c62cb576c174cda4da2d8 /rh-bin
parent610c31e9361787250cad241babd99f5d2581d23a (diff)
moved to JSON::MaybeXS
Diffstat (limited to 'rh-bin')
-rwxr-xr-xrh-bin/activesystem.json6
-rwxr-xr-xrh-bin/showlist.json6
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);