4 # Make sure to copy Business::OnlinePayment::vSecureProcessing into its
5 # proper system directory (aka /usr/share/perl5/Business/Onlinepayment)
10 use Business::OnlinePayment;
13 server =>'dvrotsos2.kattare.com',
14 platform => 'Buypass',
15 gid => '1432479912596791',
17 userid=> 'tom@yiptv.com',
22 my $action = shift || 'Normal Authorization';
23 my $auth = shift || '';
30 description => 'Business::OnlinePayment visa test',
31 # card_number => '4007000000027',
32 card_number => '4111111111111111',
34 expiration => expiration_date(),
37 email => 'fake@acme.com',
38 address => '123 Anystreet',
45 my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
47 print "MAKING PAYMENT\n";
48 ProcessTransaction($transaction);
49 $content{'action'} = 'void';
50 $content{'ref_num'} = $transaction->authorization();
51 $content{'txn_date'} = $transaction->txn_date();
52 $content{'amount'} = $transaction->txn_amount;
53 print "VOIDING PAYMENT\n";
54 ProcessTransaction($transaction);
55 $content{'action'} = 'Normal Authorization';
56 $content{'amount'} = '30.00';
57 print "MAKING PAYMENT\n";
58 ProcessTransaction($transaction);
59 $content{'action'} = 'credit';
60 $content{'ref_num'} = $transaction->authorization;
61 $content{'txn_date'} = $transaction->txn_date;
62 $content{'amount'} = $transaction->txn_amount;
63 print "REFUNDING PAYMENT\n";
64 ProcessTransaction($transaction);
67 sub ProcessTransaction {
68 my $transaction = shift;
69 #print "Processing transaction with content:\n".Dumper(\%content)."\n";
70 $transaction->content(%content);
72 eval { $transaction->submit(); };
80 if ( $transaction->is_success() ) {
81 print "Card processed successfully: ". $transaction->authorization()."\n";
83 print "Card was rejected: ". $transaction->error_message(). "\n";
90 my($month, $year) = (localtime)[4,5];
92 $year++; # So we expire next year.
93 $year %= 100; # y2k? What's that?
95 return sprintf("%02d/%02d", $month, $year);