#! perl
#
# a little cgi that prints out the %ENV and POST data submitted
# from a form, useful for debugging.
#
$CRINOID::Reuse = 1;
print "Content-type: text/html\n\n";
print "Form Debugging Info\n";
print "\n";
print "Form Debugging Info
\n";
print "CGI ENV info
\n";
print "\n";
foreach $k (sort(keys(%ENV))) {
print "| $k | \"$ENV{$k}\" |
\n";
}
print "
\n";
#if ($ENV{'REQUEST_METHOD'} eq 'POST') {
print "Information passed via POST
\n";
while () {
chomp;
print "$_
\n";
}
#}
print "
\n";
print "This script was run at ",scalar(localtime),"\n";
print "\n";