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
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
