projects
/
Business-OnlinePayment-vSecureProcessing.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unbreak this code
[Business-OnlinePayment-vSecureProcessing.git]
/
test.pl
diff --git
a/test.pl
b/test.pl
old mode 100644
(file)
new mode 100755
(executable)
index
4c76fd8
..
34e38b4
--- a/
test.pl
+++ b/
test.pl
@@
-1,4
+1,4
@@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w
-d
#
# Make sure to copy Business::OnlinePayment::vSecureProcessing into its
#
# Make sure to copy Business::OnlinePayment::vSecureProcessing into its
@@
-9,7
+9,7
@@
use strict;
use Business::OnlinePayment;
my %opt = (
use Business::OnlinePayment;
my %opt = (
-
url
=>'dvrotsos2.kattare.com',
+
server
=>'dvrotsos2.kattare.com',
platform => 'Buypass',
gid => '1432479912596791',
tid => '01',
platform => 'Buypass',
gid => '1432479912596791',
tid => '01',
@@
-38,7
+38,10
@@
main();
sub main {
my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
sub main {
my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
+ #$transaction->server('localhost');
+ #$transaction->path('/cgi-bin/test.cgi');
$transaction->content(%content);
$transaction->content(%content);
+ $DB::single = 1;
eval { $transaction->submit(); };
if ( $@ ) {
eval { $transaction->submit(); };
if ( $@ ) {