I have the following problem:
I whant to execute in my cgi (.pl) a procedure that will generate a HTML page. This
HTML page contains a perlscript. When I call the subroutine, the HTML page is
generated, but the perlscript will not work.
Besides the routine that the perlscript in the HTML page has to do, it should not be
visible in the HTML code when viewing the source.
My question is how do execute properly this perlscript in my cgi and if posible, how
to use it without generating the HTML page.
My goal is to use session variables to send information to another page in another
server without using the get or post methods.
It's sensible data so I need to work on a script that allows me to procees the
information that is sent to me and then, send it to another server (remote server, not
in my installations).
thanks for your time,
Cristian
Here is my code:
sub denied{
#Subroutine that will generate a HTML page with a perlscipt
print << "[END]";
<% @LANGUAGE = PerlScript %>
<html>
<head>
<title>Your Credit Card was Denied</title>
<link rel="stylesheet" href="../estilo.css" type="text/css">
<script language="JavaScript">
function goHist(a)
{
history.go(a);
}
</script>
</head>
<body bgcolor="#ffffff">
<div align="center">
<table class="mainbox" border="0" width="600" cellpadding="0" cellspacing="1">
<tr>
<td width="450" nowrap>
<span class="header">Your Information was not Submitted</span>
</td>
<td width="150" nowrap>
<img src="../../../seals/comercardseal.gif" width="150" height="30" border="0"
alt="Authorized Merchant" align="top">
</td>
</tr>
<tr>
<td class="cellbox" align="center" colspan="2">
<p>
<p>
Your credit card was denied or declined
You can go back to verify the information and resubmit.
<p>
<form method="post">
<input type="button" value="GO BACK" onClick="goHist(-1)">
</form>
<p>
<p>
If the problem persists, please click on the continue button.
<p>
<%
session->{"phone"} = $phone
session->{"email"} = $email
session->{"fname"} = $fname
session->{"lname"} = $lname
session->{"address1"} = $address1
session->{"address2"} = $address2
session->{"country"} = $country
session->{"city"} = $city
session->{"state"} = $state
session->{"zip"} = $zip
session->{"casino"} = $name_cas
session->{"playerid"} = $player
session->{"pass"} = $pass
session->{"amount"} = $amount
session->{"response_code"} = $code_name
session->{"num_autoriza"} = $response_aut
session->{"operation"} = $com_internal
%>
<form action="$url" method="post">
<input name="cmdSubmit" type="submit" value="CONTINUE">
</form>
<p>
You will be sent back to the Casino and SportsBook Secure Site.
When prompted, you may add our site certificate to your browser.
</td>
</tr>
</table>
</div>
</body>
</html>
[END]
}#denied
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
