home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / PERLPAD3.ZIP / PERLPAD3.CAB / form.ppm < prev    next >
Encoding:
Text File  |  1999-02-06  |  685 b   |  22 lines
  1. Form Subroutine
  2. Viotix, Incoporated
  3. # EACH VALUE IN THE HTML FORM WILL BE CONTAINED IN
  4. # THE THE @VALUE ARRAY.
  5. sub readparse {
  6. read(STDIN,$user_string,$ENV{'CONTENT_LENGTH'});
  7.  
  8. if (length($ENV{'QUERY_STRING'})>0) {$user_string=$ENV{'QUERY_STRING'}};
  9. $user_string =~ s/\+/ /g;
  10. @name_value_pairs = split(/&/,$user_string);
  11. foreach $name_value_pair (@name_value_pairs) {
  12.         ($keyword,$value) = split(/=/,$name_value_pair);
  13.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
  14.         push(@value, "$value");
  15.  
  16.   $user_data{$keyword} = $value;
  17.       if ($value=~/<!--\#exec/) {
  18.         print "Content-type: text/html\n\nNo SSI permitted";
  19.         exit;
  20.       };
  21. };
  22. };