#! /usr/bin/perl # httphead - Print the http headers push(@INC,"cgi-bin"); require ("cgi-lib.pl"); print "Content-type: text/html \n\n"; print <<END; <HTML><HEAD><TITLE>HTTP Headers</TITLE> </HEAD> <BODY> <H1>Data Passed From Your Form</H1> END #print "<B>Query-String:</B> $ENV{'Query-String'}<BR>\n"; #foreach $variable ( sort keys %ENV ) { # print "<B>$variable:</B> $ENV{$variable}<BR>\n"; #} &ReadParse(); print "<h3>Raw Data</h3>\n"; print " $in \n"; print "<br><br><h3>Parsed Name Value Pairs</h3>\n"; print "<table border cellpadding=5>\n"; foreach $variable ( sort keys %in ) { print "<TR><TD><B>$variable</B></TD><TD>\n"; print "$in{$variable}<BR></TD></TR>\n"; } print "</table>\n"; print "</BODY></HTML>\n"