Q:
Hello!
I'm facing a bit of problems with my cgi program.
I want to pick up only 2 hidden fields from a form
and print it to be posted again somwhere else.
HTML CODE IS:
<form method="post" action="http://www.xyz.com/cgi-xyz/payment.cgi">
<p>
<input type="hidden" name="SessionID" value="1234567891">
<input type="hidden" name="PurchaseAmount" value="1000">
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
CGI CODE IS:
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
require "cgi-lib.pl";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
# Load the FORM variables
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
print <<" end_of_html";
<HTML><HEAD><TITLE>Amount Confirmation</TITLE></HEAD>
<BODY>
<CENTER>
<FORM NAME="frmAddtoCart"
ACTION="http://www.xyz.com/abc/servlet/SSL_DO_Servlet" METHOD="post">
<INPUT TYPE="hidden" NAME="MerchantID" VALUE="00000326">
<INPUT TYPE="hidden" NAME="Locale" VALUE="en">
<INPUT TYPE="hidden" NAME="ReturnURL"
VALUE="http://www.xyz.com/abc/servlet/SSL_DR_Servlet?DR=${DR}">
Your Order No is {'SessionID'}<br>
Your Total Amount is {'PurchaseAmount'}<br>
<INPUT TYPE="submit" NAME="SubButL" VALUE="Proceed to Secured Payment">
end_of_html
}
I want to only print those variables(not in text field)and post it
again.It acts as a confirmation.
It dosen't work.Can u help me?
Thank you.
*NAME-DELETED*.
A:
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
######################xx
#INSERT THESE
$PurchaseAmount = $FORM{'PurchaseAmount'};
$SessionID = $FORM{'SessionID'};
######################xx
print <<" end_of_html";
<HTML><HEAD><TITLE>Amount Confirmation</TITLE></HEAD>
<BODY>
<CENTER>
<FORM NAME="frmAddtoCart"
ACTION="http://www.xyz.com/abc/servlet/SSL_DO_Servlet" METHOD="post">
<INPUT TYPE="hidden" NAME="MerchantID" VALUE="00000326">
<INPUT TYPE="hidden" NAME="Locale" VALUE="en">
<INPUT TYPE="hidden" NAME="ReturnURL"
VALUE="http://www.xyz.com/abc/servlet/SSL_DR_Servlet?DR=${DR}">
<INPUT TYPE="HIDDEN" NAME="SessionID" VALUE="$SessionID">
<INPUT TYPE="HIDDEN" NAME="PurchaseAmount" VALUE="$PurchaseAmount">
Your Order No is $SessionID<br>
Your Total Amount is $PurchaseAmount$<br>
<INPUT TYPE="submit" NAME="SubButL" VALUE="Proceed to Secured Payment">
end_of_html
[ back to toc ]