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 >
Perl Script  |  2017-09-21  |  3KB  |  93 lines
  1. #!/usr/bin/perl
  2. #
  3. # post-query.pl -- Conversion of post-query to Perl
  4. #
  5. #
  6. # Example of post-query converted to perl
  7. #select (STDOUT)
  8. print "<HTML><BODY> <H1>Query Results</H1>\n";
  9. #
  10. print "You submitted the following name/value pairs:\n";
  11. #
  12. if ($ENV{'REQUEST_METHOD'} eq "POST") {
  13.     $form = <STDIN>;
  14.         print "$form \n";
  15. } else { 
  16.     $form = $ENV{'QUERY_STRING'};
  17. }
  18. print $ENV{'CONTENT_LENGTH'};
  19. @pairs = split(/&/,$form);
  20. print "<UL>";
  21. while (@pairs) {
  22.     $pair=shift @pairs;
  23.     $pair =~ s/\+/ /g;
  24.     print "<LI><CODE>$pair</CODE>\n ";
  25. }
  26. print "</UL>";
  27. print "\n</BODY></HTML>";
  28. #####################################################################
  29. #
  30. #
  31. # Load environment variables
  32. #print " content -length =$ENV{'CONTENT_LENGTH'}";
  33. #
  34. #do '/home/virtual/WWW/httpd/cgi-bin/env.pl';
  35. #eval `"$cgiRoot/cgiparse" -init`;
  36. ## Parse the variables to be used
  37. ####
  38. #$DATE=`"$cgiRoot/cgiparse" -value date`;
  39. #$ADVER=`"$cgiRoot/cgiparse" -value advertiser`;
  40. #$CONT=`"$cgiRoot/cgiparse" -value name`;
  41. #$ADDR=`"$cgiRoot/cgiparse" -value addres`;
  42. #$PHONE=`"$cgiRoot/cgiparse" -value phone`;
  43. #$FAX=`"$cgiRoot/cgiparse" -value fax`;
  44. #$EMAIL=`"$cgiRoot/cgiparse" -value email`;
  45. #$DUR=`"$cgiRoot/cgiparse" -value duration`;
  46. #$CLASS=`"$cgiRoot/cgiparse" -value class`;
  47. #$PAGE=`"$cgiRoot/cgiparse" -value pages/links`;
  48. #$TEXT=`"$cgiRoot/cgiparse" -value text`;
  49. #$DESIGN=`"$cgiRoot/cgiparse" -value design`;
  50. #$COST=`"$cgiRoot/cgiparse" -value cost`;
  51. #$DEP=`"$cgiRoot/cgiparse" -value deposit`;
  52. #$DUE=`"$cgiRoot/cgiparse" -value due`;
  53. ##
  54. ##
  55. #format COMMENTFORM =
  56. #   ========================================================
  57. #   Date
  58. #   @<<<<<<<<<<<<
  59. #   $DATE    
  60. #   advertiser: 
  61. #   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  62. #   $ADVER 
  63. #   contact name : 
  64. #   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  65. #   $CONT
  66. #   address
  67. #   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  68. #   $ADDR
  69. #   phone            fax                email
  70. #   @<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<
  71. #   $PHONE            $FAX              $ EMAIL   
  72. #   Duration of presence :       Class of presence 
  73. #   @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  74. #   $DUR   $CLASS
  75. #   Extra pages/links required: 
  76. #   @*
  77. #   $PAGE
  78. #   Text photography and graphics provided 
  79. #   @*
  80. #   $TEXT
  81. #   Further design details:
  82. #   @*
  83. #   $DESIGN
  84. #   Cost :              25% deposit           75%due on completion
  85. #  @<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<
  86. #  $COST  $DEP $DUE
  87. #   ========================================================
  88. #.
  89. #
  90. #open (COMMENTFORM,">> $logs/sales.log");
  91. #write (COMMENTFORM);
  92. #close (COMMENTFORM);
  93.