cgi-bin/test.pl

   1 #!/usr/bin/perl
   2 ##
   3 ##  printenv -- demo CGI program which just prints its environment
   4 ##
   5 use CGI qw/:standard/;
   6 my $query = new CGI;
   7
   8 print "Content-type: text/html\n\n";
   9 print <<EOD;
  10 <HTML>
  11 <BODY bgcolor=#ffffff textcolor=#000000>
  12 <H1>CGI Support</h1>
  13 <B>Test form</B><BR>
  14 <FORM method="POST" ACTION="test.pl">
  15 Input1 : <INPUT NAME="input1" value="" size="30" maxlength="30"><br>
  16 Input2 : <INPUT NAME="input2" value="" size="30" maxlength="30"><br><br>
  17 Option : <select name="option">
  18 <option value="1">Option 1</option>
  19 <option value="2">Option 2</option>
  20 <option value="3">Option 3</option>
  21 </select>
  22 <br><br>
  23 <input type="submit" value="Send">
  24 </FORM>
  25 <P>
  26
  27 EOD
  28
  29 if (param()) {
  30   print qq(<P><B>Form vars</B>\n<PRE>\n);
  31   foreach $p (param()) {
  32         print qq($p = '), param($p), qq('\n);
  33   }
  34   print qq(</pre>\n);
  35 }
  36
  37 print qq(<P><B>Environment vars</B>\n<PRE>\n);
  38
  39 foreach $var (sort(keys(%ENV))) {
  40     $val = $ENV{$var};
  41     $val =~ s|\n|\\n|g;
  42     $val =~ s|"|\\"|g;
  43     print "${var}=\"${val}\"\n";
  44 }
  45
  46 print qq(</pre>\n);
  47 print qq(</body>\n</html>\n);