# 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;