I have code that looks like this:
use Fcntl ":flock";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;
$contents{$name} = $value;
}
}
I read a group of variables sent from an html form page. normally I
would just create another html page with hidden inputs to
send these variables off to another script after manipukating them in my
perl script, however, I don't want the end user to see 2
of the variables which are :
$contents{'password'}
$contents{'acount_number'}
So if I send the variables out through the perl script they will remain
hidden. My questions are SYNTAX:
how do I define the REQUEST_METHOD as POST and how do I send these
variables back out to another gateway.
An example showing the use of STDOUT with an array of variables would be
great??????
I'm basically trying to do an HTML form SUBMIT without the HTML.
Charles
