diff options
Diffstat (limited to 'rh-bin')
-rwxr-xr-x | rh-bin/showlist.json | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/rh-bin/showlist.json b/rh-bin/showlist.json new file mode 100755 index 0000000..ce59748 --- /dev/null +++ b/rh-bin/showlist.json @@ -0,0 +1,46 @@ +#!/usr/bin/perl +# +# rhrdweb +# +# Copyright (C) 2016 Christian Pointner <equinox@helsinki.at> +# +# This file is part of rhrdweb. +# +# rhrdweb is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# any later version. +# +# rhrdweb is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with rhrdweb. If not, see <http://www.gnu.org/licenses/>. +# + +use strict; +use RHRD::rddb; +use JSON; + +my $status = 'ERROR'; +my $errorstring = 'unknown'; +my $responsecode = 500; + +(my $ctx, $status, $errorstring) = RHRD::rddb::init(); +if(defined $ctx) { + $status = 'ERROR'; + $errorstring = 'not yet implemented'; + $responsecode = 501; + + RHRD::rddb::destroy($ctx); +} + +my %answer; +$answer{'status'} = $status; +$answer{'errorstring'} = $errorstring; + +print "Content-type: application/json; charset=UTF-8\n"; +print "Status: $responsecode\n\n"; +print encode_json \%answer; |