package formBreaker;
use strict;
sub breakupForms {
my (%pform,%gform);
my $submittype = @_;
#Do the Form {Post} first
read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
my @pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
my ($name,$value);
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%(a-fA-F0-9a-fA-F0-9)/pack("C", hex($1))/eg;
if($pform{$name} ne "") {
$pform{$name} = join("\|",$pform{$name},$value);
}
else {
$pform{$name}=$value;
}
}
#breakup form query strings
my @pairs = split(/\&/,$ENV{'QUERY_STRING'});
foreach(@pairs) {
my($name,$value);
($name,$value) = split(/\=/,$_);
$gform{$name}=$value;
}
if($submittype eq "post") {
return %pform;
}
elsif($submittype eq "get") {
return %gform;
}
} #end of sub for breakupForms
1;
In reply to Re^3: Module Problems
by Anonymous Monk
in thread Module Problems
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |