projects
/
Business-OnlinePayment-CardFortress.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Pass bop_options to gateway
[Business-OnlinePayment-CardFortress.git]
/
lib
/
Business
/
OnlinePayment
/
CardFortress.pm
diff --git
a/lib/Business/OnlinePayment/CardFortress.pm
b/lib/Business/OnlinePayment/CardFortress.pm
index
1a8af71
..
1d97d49
100644
(file)
--- a/
lib/Business/OnlinePayment/CardFortress.pm
+++ b/
lib/Business/OnlinePayment/CardFortress.pm
@@
-54,6
+54,8
@@
sub submit {
my %content = $self->content;
$content{$_} = $self->$_() for qw( gateway gateway_login gateway_password );
my %content = $self->content;
$content{$_} = $self->$_() for qw( gateway gateway_login gateway_password );
+ $content{$_} = $self->$_() for grep $self->can($_), qw( bop_options );
+
my ($page,$server_response,%headers) = $self->https_post(%content);
die "$server_response\n" unless $server_response =~ /^200/;
my ($page,$server_response,%headers) = $self->https_post(%content);
die "$server_response\n" unless $server_response =~ /^200/;
@@
-161,6
+163,7
@@
Business::OnlinePayment::CardFortress - CardFortress backend for Business::Onlin
'gateway_login' => 'gwlogin',
'gateway_password' => 'gwpass',
'private_key' => $private_key_string, #or filename
'gateway_login' => 'gwlogin',
'gateway_password' => 'gwpass',
'private_key' => $private_key_string, #or filename
+ 'bop_options' => join('/', map "$_=".$options{$_}, keys %options),
);
$rx->content(
);
$rx->content(