That might explain it.
Then another question would be. I tried this
our (%gform,%pform); gform is the Query Strings
pform is the Form Posts
%pform = formBreaker->breakupForms('post');
%gform = formBreaker->breakupForms('get');
Now, using the same structure as above, when I get to the &templateName; routine. it doesnt have access to the original "our" decloration in the index.cgi file.
I know it doesnt have access anymore because at that module, Strict is telling me the %pform/%gform requires explicit decleration.
Is there any way to pass the %pform,%gform down the levels without actually manually passing them through? | [reply] |
Is there any way to pass the %pform,%gform down the levels without actually manually passing them through?
Yes and no. For example,
package formBreaker;
sub test {
print($CallerPackage::var, $/);
}
package CallerPackage;
our $var;
$var = 'success';
formBreaker->test();
You can, but as you can see, you have to either hardcode the caller's package (bad!) or you have to get the caller's package name using caller and dynamically build the variable name (ugly and bad!). What's wrong with
%pform = formBreaker->breakupForms('post');
or
formBreaker->breakupForms('post', \%pform);
?
| [reply]
[d/l]
[select] |
For some reason, when I call the %pform = formBreaker->breakupForms(); that routine doesnt recieve anything from STDIN, thus, it has nothing to break up.
| [reply] |
A Reply to myself. I just realized that the routine breakupForms isn't returning a thing!
Heres the code
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;
| [reply] |
Save yourself some headaches and use CGI. No use reinventing the wheel yet again
| [reply]
[d/l] |