home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet 1996 World Exposition
/
park.org.s3.amazonaws.com.7z
/
park.org.s3.amazonaws.com
/
Events
/
Cannes
/
vradresp.pl
< prev
next >
Wrap
Perl Script
|
2017-09-21
|
3KB
|
93 lines
#!/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);