$FORM in Matt's wwwboard.pl

[Sven Bentlage]

Hi guys,
I'm just looking at Matt's wwwboard.pl and try to figure out what the 
$FORM{somevaule} does.
It is not declared anywhere before usage.. and I'm quite lost...

  If anyone could tell me where to find any information about that, I'd 
be grateful

Thanks for your help,

Sven

sub where it's first used:

sub parse_form {

    # Get the input
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

    # Split the name-value pairs
    @pairs = split(/&/, $buffer);

    foreach $pair (@pairs) {
       ($name, $value) = split(/=/, $pair);
                print "name $pair[0] and value $pair[1]\n";
       # Un-Webify plus signs and %-encoding
       $value =~ tr/+/ /;
       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
       $value =~ s/<!--(.|\n)*-->//g;

       if ($allow_html != 1) {
          $value =~ s/<([^>]|\n)*>//g;
       print "value = $value\n";
       }
       else {
          unless ($name eq 'body') {
            $value =~ s/<([^>]|\n)*>//g;
          }
       }

       $FORM{$name} = $value;
       print "$value\n";
    }

}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]