Postquery.html

#!/local/bin/perl              
#
# postquery.pl ver. 1.0 posted from 2002-01-31 to ?

print "Content-type: text/html\n\n";
print "<HTML><BODY> <H1>Mouse Button Query</H1>\n";
print "You submitted the following name/value pairs:\n";

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	$form = <STDIN>;

} else { 
	$form = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$form);
print "<UL>";
while (@pairs) {
	$pair=shift @pairs;
	$pair =~ s/\+/ /g;
	print "<LI><CODE>$pair</CODE>\n ";
}
print "</UL>";
print "\n</BODY></HTML>";