#!/usr/bin/perl
# SimpleEcho.cgi
require "cgi-lib.cgi";
$title="Echo The Form Data";
$outFile=">>/tmp/FormEchoLog";
#open(OUTFILE,$outFile);
#printf OUTFILE "\n";
print &PrintHeader;
print "\n";
print "$title\n";
print "\n\n";
&ReadParse;
$userAgent = $ENV{'HTTP_USER_AGENT'};
$qs = $ENV{'QUERY_STRING'};
print "HTTP_USER_AGENT:$userAgent";
print "QUERY_STRING:$qs
";
#print "from \@in:
";
foreach (@in)
{
print $_,"
";
# printf OUTFILE $_,"\n";
}
#print "from \%in:
";
#while(($key,$value) = each %in)
# {
# if($value)
# {
# print "$key=$value
";
# printf OUTFILE "%s=%s\n",$key,$value;
# }
#}
print "\n";
#close(OUTFILE);