
varo
stranger
Jul 30, 2001, 9:46 AM
Post #1 of 2
(6067 views)
|
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, Alvaro 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
|