Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement