Ryan Davies - JSON Server - Misterhouse

# Authority: anyone

use JSON;
use Switch;
no strict;

my @parms = @ARGV;
my %parms;
my $size = 0;

foreach (@parms) {
    $_ =~ m/(.+)=(.+)?/i;
    %parms = ( %parms, $1 => $2 );
}
my %variables;

while ( my ( $key, $value ) = each(%parms) ) {
    $size = keys %$key;
    if ( $size ne 0 ) {
        if ( $value eq "" ) {
            if ( defined %$key ) { $variables{$key} = \%$key; } else { $variables{$key} = "undefined"; }
        }
        else {
            my @values = split( ',', $value );
            foreach my $val (@values) {
                if ( defined $$key{$val} ) {
                    $variables{$key}{$val} = $$key{$val};
                }  else { $variables{$key}{$val} = "undefined"; }
            }
        }
    }
    else {
        if ( defined $$key ) { $variables{$key} = $$key } else { $variables{$key} = "undefined"; }
    }
}

my $json = encode_json \%variables;
my $js   = <<eof;
HTTP/1.0 200 OK
Server: MisterHouse
Content-type: application/json

$json
eof
return $js;
use strict;