#!/usr/bin/perl
#
# post-query.pl -- Conversion of post-query to Perl
#
#
# Example of post-query converted to perl
#select (STDOUT)
print "<HTML><BODY> <H1>Query Results</H1>\n";
#
print "You submitted the following name/value pairs:\n";
#
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	$form = <STDIN>;
        print "$form \n";
} else { 
	$form = $ENV{'QUERY_STRING'};
}
print $ENV{'CONTENT_LENGTH'};
@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>";
#####################################################################
#
#
# Load environment variables
#print " content -length =$ENV{'CONTENT_LENGTH'}";
#
#do '/home/virtual/WWW/httpd/cgi-bin/env.pl';
#eval `"$cgiRoot/cgiparse" -init`;
## Parse the variables to be used
####
#$DATE=`"$cgiRoot/cgiparse" -value date`;
#$ADVER=`"$cgiRoot/cgiparse" -value advertiser`;
#$CONT=`"$cgiRoot/cgiparse" -value name`;
#$ADDR=`"$cgiRoot/cgiparse" -value addres`;
#$PHONE=`"$cgiRoot/cgiparse" -value phone`;
#$FAX=`"$cgiRoot/cgiparse" -value fax`;
#$EMAIL=`"$cgiRoot/cgiparse" -value email`;
#$DUR=`"$cgiRoot/cgiparse" -value duration`;
#$CLASS=`"$cgiRoot/cgiparse" -value class`;
#$PAGE=`"$cgiRoot/cgiparse" -value pages/links`;
#$TEXT=`"$cgiRoot/cgiparse" -value text`;
#$DESIGN=`"$cgiRoot/cgiparse" -value design`;
#$COST=`"$cgiRoot/cgiparse" -value cost`;
#$DEP=`"$cgiRoot/cgiparse" -value deposit`;
#$DUE=`"$cgiRoot/cgiparse" -value due`;
##
##
#format COMMENTFORM =
#   ========================================================
#   Date
#   @<<<<<<<<<<<<
#   $DATE    
#   advertiser: 
#   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#   $ADVER 
#   contact name : 
#   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#   $CONT
#   address
#   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#   $ADDR
#   phone            fax                email
#   @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<
#   $PHONE            $FAX              $ EMAIL   
#   Duration of presence :       Class of presence 
#   @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#   $DUR   $CLASS
#   Extra pages/links required: 
#   @*
#   $PAGE
#   Text photography and graphics provided 
#   @*
#   $TEXT
#   Further design details:
#   @*
#   $DESIGN
#   Cost :              25% deposit           75%due on completion
#  @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<
#  $COST  $DEP $DUE
#   ========================================================
#.
#
#open (COMMENTFORM,">> $logs/sales.log");
#write (COMMENTFORM);
#close (COMMENTFORM);
