Posted By: RoboShim (ICQ #: 166 703 40) on 'CZscripts'
Title:     Re: scriptik .. nejlip PERLovej na zpracovani FORMU
Date:      Sat Apr 17 16:49:48 1999

>  potrebuju viz subj :)
> diky:)

*** mam dojem, ze tohle uz jsem ja nebo nekdo tady psal, ale opakovani je 
matka moudrosti:

tohle je funkce z lib-cgi.pl, ktera rozkuskuje promenny z formulare do hashe 
%in, ale muzes si to predelat podle svyho, je to jednoduchy. Dyztak se 
zeptejte.

RoboShim
====================== 

sub ReadParse {
    local (*in) = @_ if @_;

  local ($i, $loc, $key, $val);

  # Read in text
  if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $in = $ENV{'QUERY_STRING'};
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
  }

  @in = split(/&/,$in);

  foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =~ s/+/ /g;

    # Split into key and value.  
    ($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

    # Convert %XX from hex numbers to alphanumeric
    $key =~ s/%(..)/pack("c",hex($1))/ge;
    $val =~ s/%(..)/pack("c",hex($1))/ge;

    # Associate key and value
    $in{$key} .= "    $in{$key} .= $val;

  }

  return 1; # just for fun
}