home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / Chip_2000-08_cd1.bin / sharewar / dzperl / Setup.exe / {app} / Samples / oldform.pl < prev    next >
Encoding:
Perl Script  |  2000-06-15  |  737 b   |  22 lines
  1. #!/usr/bin/perl
  2.  
  3. # Capturing form input through $FORM{'name'} instead of param('name').
  4. # NOTE: Do not forget to check "Link Query String to Script Parameters" checkbox
  5. #       in "Script Parameters Editor" (Run -> Edit Environment Variables).
  6.  
  7.   if ($ENV{'REQUEST_METHOD'} =~ 'GET') {
  8.     $buffer = $ENV{'QUERY_STRING'};
  9.   } else {
  10.     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  11.   } 
  12.   @pairs = split(/&/, $buffer);
  13.   foreach $pair (@pairs) {
  14.           ($name, $value) = split(/=/, $pair);
  15.           $value =~ tr/+/ /;
  16.           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  17.           $FORM{$name} = $value;
  18.   }
  19.  
  20. print "Content-type: text/html\n\n";
  21. print "<html><h1>$FORM{'name'}</h1></html>\n";
  22.