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