From 472f07098c2e10ac025b132df098f4b51c14adb1 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Fri, 28 Jun 2013 16:36:47 -0700 Subject: start --- faker/MakePayment.aspx | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100755 faker/MakePayment.aspx (limited to 'faker/MakePayment.aspx') diff --git a/faker/MakePayment.aspx b/faker/MakePayment.aspx new file mode 100755 index 0000000..bd29a0d --- /dev/null +++ b/faker/MakePayment.aspx @@ -0,0 +1,43 @@ +#!/usr/bin/perl -T + +use CGI; +use Cache::FileCache; +use strict; + +my $cache = Cache::FileCache->new( + { cache_root => '/tmp', namespace => 'FCMB-Faker' } +); +my $cgi = CGI->new; +my %transaction = map { $_ => ($cgi->param($_) || '') } + qw( mercId currCode amt orderId prod email ); + +my $reference = sprintf('%06d%04d', $transaction{mercId}, int(rand(10000))); +$transaction{reference} = $reference; +$transaction{status} = 2; #pending + +$cache->set($reference, \%transaction); + +my $content = qq! + + Not FCMB Web Payment +

Confirm your payment

+
+ + + + + + +
Order #!.$transaction{orderId}.qq!
Product!.$transaction{prod}.qq!
Amount !.$transaction{amt}.qq!
First Name
Last Name

+ + + +
+ + +!; + +print $cgi->header('text/html', + 'Content-Length' => length($content)); +print $content; + -- cgit v1.2.1