#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html>
<head>
<title>BuyBooksOnline.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
EndOfHTML
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@ans = split(/&/, $buffer);
#ans will contain variable "custadd=somestring", "transno=439585"
($temp, $amount) = split(/=/, $ans[0]);
$amount =~ tr/+/ /;
$amount =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print <<EndOfHTML;
<body background="a.jpg" bgcolor="#FFFFFF" text="#000000" link="#CCCCCC">
<table width="100%" border="0">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="700" height="100">
<param name=movie value="booksonline.swf">
<param name=quality value=high>
<embed src="pg1top.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="700" height="100">
</embed> </object></td>
</tr>
<tr>
<td> <table width="100%" border="0">
<tr>
<td width="3%"> </td>
<td width="78%"> <div align="center"> <p align="center"> </p>
<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif">BUY
IT NOW</font></b></p>
<hr width="90%" noshade align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">You
have agreed to buy a book.</font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">COST :
EndOfHTML
print "$amount";
print <<EndOfHTML;
</font></p>
<hr align="center" noshade width="90%">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font size="1">Please
enter the following details for the transaction to proceed</font></b></font></p>
<form method="post" action="http://www.spcard.com/authenticate.cgi">
<p><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Delivery
Address</font></b> <b> </b><b>:</b> </p>
<p> <textarea name="custadd" cols="30" rows="3"></textarea>
</p>
<p> <input type="hidden" name="compadd" value="Online Shopping Store\nNew York\nU.S.A.">
<input type="hidden" name="transno" value="23a4cj7">
<input type="hidden" name="amount" value="$amount">
<input type="hidden" name="url" value="http://www.spcard.com/shopsite/receive.cgi">
</p>
<p><font size="2"><b>Credit Card : </b></font> <select name="ccname" size="1">
<option value="1">Security Payment Card</option>
<option value="2">American Express</option>
<option value="3">Standard Chartered</option>
<option value="4">Visa</option>
<option value="5">Citibank Card</option>
<option value="6">Dinner's Club</option>
</select>
</p>
<p> </p>
<p> </p>
<p><font color="#FFFFFF">.........................................................</font> <input type="reset" value="Reset">
<font color="#000000"> <font color="#FFFFFF">..</font></font> <input type="submit" value="Proceed">
</p>
<hr width="90%" noshade align="center">
<p> </p>
</form>
<p> </p>
</div>
</td>
<td width="19%"> <div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
EndOfHTML