[SCM] Debian packaging of libbusiness-onlinepayment-ippay-perl branch, master, updated. f65741dbf79bdca696bb34579a220ac406dff032
gregor herrmann
gregoa at debian.org
Tue Oct 30 17:08:05 UTC 2012
The following commit has been merged in the master branch:
commit 19a39515852400adb34255642b11f1a13b25a44e
Author: gregor herrmann <gregoa at debian.org>
Date: Tue Oct 30 17:56:00 2012 +0100
New patch gateway.patch: change IPPay gateway server/path.
Thanks: Ivan Kohler for backporting the patch.
Closes: #691723
diff --git a/debian/patches/gateway.patch b/debian/patches/gateway.patch
new file mode 100644
index 0000000..c47bd71
--- /dev/null
+++ b/debian/patches/gateway.patch
@@ -0,0 +1,89 @@
+Description: IPPay changed the gateway's server name and path, and will soon
+ turn off the old gateway
+Origin: https://www.freeside.biz/gitweb/?p=Business-OnlinePayment-IPPay.git;a=commitdiff;h=1f19e67636476c7119cfb41920c5b176e617c697
+Bug-Debian: #691723
+Author: Ivan Kohler <ivan-debian at 420.am>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2012-10-30
+Applied-Upstream: yes, 0.07
+
+--- a/IPPay.pm
++++ b/IPPay.pm
+@@ -45,9 +45,9 @@
+ my %opts = @_;
+
+ # standard B::OP methods/data
+- $self->server('gateway17.jetpay.com') unless $self->server;
++ $self->server('gtwy.ippay.com') unless $self->server;
+ $self->port('443') unless $self->port;
+- $self->path('/jetpay') unless $self->path;
++ $self->path('/ippay') unless $self->path;
+
+ $self->build_subs(qw( order_number avs_code cvv2_response
+ response_page response_code response_headers
+@@ -209,6 +209,9 @@
+ foreach ( keys ( %{($self->{_defaults})} ) ) {
+ $content{$_} = $self->{_defaults}->{$_} unless exists($content{$_});
+ }
++ if ($self->test_transaction()) {
++ $content{'login'} = 'TESTTERMINAL';
++ }
+ $self->content(%content);
+
+ $self->required_fields(@required_fields);
+@@ -221,12 +224,6 @@
+ }
+ }
+
+- if ($self->test_transaction()) {
+- $self->server('test1.jetpay.com');
+- $self->port('443');
+- $self->path('/jetpay');
+- }
+-
+ my $transaction_id = $content{'order_number'};
+ unless ($transaction_id) {
+ my ($page, $server_response, %headers) = $self->https_get('dummy' => 1);
+@@ -391,7 +388,7 @@
+ if ( exists($response->{ActionCode}) && !exists($response->{ErrMsg})) {
+ $self->error_message($response->{ResponseText});
+ }else{
+- $self->error_message($response->{Errmsg});
++ $self->error_message($response->{ErrMsg});
+ }
+ # }else{
+ # $self->error_message("Server Failed");
+@@ -588,6 +585,9 @@
+
+ =head1 COMPATIBILITY
+
++Debian version 0.06-2 (upstream version 0.07) changes the server name and path
++for IPPay's late 2012 update.
++
+ Business::OnlinePayment::IPPay uses IPPay XML Product Specifications version
+ 1.1.2.
+
+--- a/t/card.t
++++ b/t/card.t
+@@ -61,8 +61,8 @@
+ $tx,
+ desc => "invalid card_number",
+ is_success => 0,
+- result_code => '912',
+- error_message => 'INVALID CARD NUMBER',
++ result_code => '900', #'912' with old jetpay gw
++ error_message => 'Invalid card number. ', #'INVALID CARD NUMBER' w/old gw
+ authorization => qr/^$/,
+ avs_code => '', # so rather pointless :\
+ cvv2_response => '', # ...
+--- a/t/lib/test_account.pl
++++ b/t/lib/test_account.pl
+@@ -12,7 +12,7 @@
+ sub test_account {
+ my $suffix = shift || 'card';
+
+- my($login, $password) = ('TESTMERCHANT', '');
++ my($login, $password) = ('TESTTERMINAL', '');
+
+ my %opt;
+ if ( $suffix eq 'check ' ) {
diff --git a/debian/patches/series b/debian/patches/series
index 9fe8b1a..a5dd937 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
no-connectivity.patch
+gateway.patch
--
Debian packaging of libbusiness-onlinepayment-ippay-perl
More information about the Pkg-perl-cvs-commits
mailing list