#!/www/shell/bin/perl5
my($theHR) = {};
my($rows);
# Unpack the query string into a hash
foreach $arg (split(/&/, $ENV{'QUERY_STRING'})) {
$arg =~ tr/+/ /;
$arg =~ s/%(..)/pack("c", hex("0x$1"))/eg;
my($field, $val) = split(/=/, $arg, 2);
$$theHR{$field} = $val;
}
foreach $key (sort(keys(%$theHR))) {
$rows .= "| $key | $$theHR{$key} |
|---|
\n";
}
print <<"EOP";
HTTP/1.0 200 OK
Content-type: text/html
remoteNotify.cgi
remoteNotify.cgi
| Remote Data |
|---|
| Key | Value |
|---|
$rows
EOP