From 801f0c9861dd1cc98273347c03d4de96651bc710 Mon Sep 17 00:00:00 2001 From: Alex Brelsfoard Date: Tue, 3 Feb 2015 06:21:08 -0500 Subject: [PATCH] Saving simple test script to repo for now. --- test.pl | 66 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 test.pl diff --git a/test.pl b/test.pl new file mode 100644 index 0000000..22124bd --- /dev/null +++ b/test.pl @@ -0,0 +1,66 @@ +#!/usr/bin/perl -w + +# +# Make sure to copy Business::OnlinePayment::vSecureProcessing into its +# proper system directory (aka /usr/share/perl5/Business/Onlinepayment) +# + +use strict; +use Business::OnlinePayment; + +my %opt = ( + url =>'dvrotsos2.kattare.com', + platform => 'Buypass', + gid => '1432479912596791', + tid => '01', + userid=> 'tom@yiptv.com', + port => 443 +); + + +my %content = ( + appid => 'yiptv', + action => 'Normal Authorization', + description => 'Business::OnlinePayment visa test', +# card_number => '4007000000027', + card_number => '4111111111111111', + cvv2 => '111', + expiration => expiration_date(), + amount => '42.24', + name => 'Murphy Law', + email => 'fake@acme.com', + address => '123 Anystreet', + zip => '84058', +); + +main(); + +sub main { + my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt); + $transaction->content(%content); + eval { $transaction->submit(); }; + + if ( $@ ) { + + print "Error: $@\n"; + + } else { + + if ( $transaction->is_success() ) { + print "Card processed successfully: ". $transaction->authorization()."\n"; + } else { + print "Card was rejected: ". $transaction->error_message(). "\n"; + } + + } +} + + +sub expiration_date { + my($month, $year) = (localtime)[4,5]; + $month += 1; + $year++; # So we expire next year. + $year %= 100; # y2k? What's that? + + return sprintf("%02d/%02d", $month, $year); +} -- 2.11.0