use strict;
use lib '/wasd_root/src/perl/cgipm';
use CGI qw(:standard);

my $query = new CGI;

print $query->header(),

"<B><U>Using GGI.pm to demonstrate a POST</U></B><P>

<B>Content-Length:</B> ", $ENV{CONTENT_LENGTH};

#CGI.pm 5.6 does not have a 'dump' method! (plagiarized from 5.8)

if ($query->param) {
    my($param,$value,@result);
    push(@result,"<UL>");
    foreach $param ($query->param) {
      my($name)=$query->escapeHTML($param);
      push(@result,"<LI><STRONG>$param</STRONG>");
      push(@result,"<UL>");
      foreach $value ($query->param($param)) {
          $value = $query->escapeHTML($value);
                  $value =~ s/\n/<BR>\n/g;
          push(@result,"<LI>$value");
      }
      push(@result,"</UL>");
    }
    push(@result,"</UL>");
    print join("\n",@result);
} else {
   print "<UL></UL>";
}

if (defined $main::perlRTEcount) {
  print "Engine usage count: ", $main::perlRTEcount,
        "<BR>Cached script usage count: ", $main::perlRTEcache;
}