faker/MakePayment.aspx

   1 #!/usr/bin/perl -T
   2
   3 use CGI;
   4 use Cache::FileCache;
   5 use strict;
   6
   7 my $cache = Cache::FileCache->new(
   8   { cache_root => '/tmp', namespace => 'FCMB-Faker' }
   9 );
  10 my $cgi = CGI->new;
  11 my %transaction = map { $_ => ($cgi->param($_) || '') }
  12   qw( mercId currCode amt orderId prod email );
  13
  14 my $reference = sprintf('%06d%04d', $transaction{mercId}, int(rand(10000)));
  15 $transaction{reference} = $reference;
  16 $transaction{status} = 2; #pending
  17
  18 $cache->set($reference, \%transaction);
  19
  20 my $content = qq!
  21 <HTML>
  22   <HEAD><TITLE>Not FCMB Web Payment</TITLE></HEAD>
  23   <BODY><H3>Confirm your payment</H3>
  24     <FORM METHOD="POST" ACTION="ConfirmPayment.cgi">
  25       <TABLE CELLSPACING=0 STYLE="border: 1px solid">
  26         <TR><TD>Order #</TD><TD>!.$transaction{orderId}.qq!</TD></TR>
  27         <TR><TD>Product</TD><TD>!.$transaction{prod}.qq!</TD></TR>
  28         <TR><TD>Amount </TD><TD>!.$transaction{amt}.qq!</TD></TR>
  29         <TR><TD>First Name</TD><TD><INPUT NAME="first"></TD></TR>
  30         <TR><TD>Last Name</TD><TD><INPUT NAME="last"></TD></TR>
  31       </TABLE><BR>
  32       <INPUT TYPE="hidden" name="reference" value="!.$reference.qq!">
  33       <INPUT TYPE="submit" name="submit" value="Pay Now">
  34       <INPUT TYPE="submit" name="submit" value="Cancel">
  35     </FORM>
  36   </BODY>
  37 </HTML>
  38 !;
  39
  40 print $cgi->header('text/html',
  41                    'Content-Length' => length($content));
  42 print $content;
  43