Bug#691885: pu: package libbusiness-onlinepayment-ippay-perl/0.05~02-2+squeeze1

[gregor herrmann <gregoa@debian.org>]

Package: release.debian.org
Severity: normal
User: release.debian.org@packages.debian.org
Usertags: pu

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

We'd like to update libbusiness-onlinepayment-ippay-perl in squeeze
because of #691723: change gateway server name and path.

I've prepared an update for 0.05~02-2 that includes the backported
changes (kindly provided by Ivan Kohler). Debdiff attached.

Please advise on how to proceed.


Thanks,
gregor

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.12 (GNU/Linux)

iQIcBAEBCAAGBQJQkBF4AAoJELs6aAGGSaoGGkQP/2h2FwdcqdO1Y4y6FvMT6S0x
U3MI7q8wjTQuBLYE2BfnCKMmkJ9a+hNmvizCYK9IEtqxpVO5OCO+AM7rBn9xI+8Y
7sHpQYCUJdNiT6/xTWyIbmoi+60Wvs5lDVcmJp5eOkS3mYOuCOQWpEfWfgiFeOp3
Ok/Lh8l7ZzLiKDLHi89hPXV3N+TERnrofIFt8/svKAHUl8GMcwWNmXAyNwdXix4G
fKex0VqGhiymCosOYjpeKfNxqNJxNCoGkaFmdNHs0UeIx+NAIEEurE87Mk64Y8Lz
fHVc77TlehXvpdtrQcZOTrnxbnTIwc1idS1UBnnVGPPCZyYZc36qGQNZY8hzb7lX
lTJm4fhFFkxhEZ2BRvHl3jwdSIi5dP9YZNMv1lhtW58imW0ELuf295hUtSWDvcer
4wpaCCbU++YHPh4fMZS3asKNbZJFsce7lTApCciiFvJ6LV3KO0Iy2f3UU7jcoO9T
D0iOM62TAHrxsArkIQ2vYtBpEIeUC3UAoYMlSfJsLnXEQR3doR/ItLNv7TbLFsXh
DN2ThRp/ipSESbDBQWTbecXqKNvg105Bs5Uo6AzRjjYxa9yBwXyEOimXp4W49NBA
I6Fgd0si2+2huCbgBYVt/NBVxLpTvCBZodrHYxjH9iYOIJjT2sRPcSv77EO8vaGa
jhU02DvrdFuyPiEJH91p
=PYqe
-----END PGP SIGNATURE-----

diff -u libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog
--- libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog
+++ libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog
@@ -1,3 +1,11 @@
+libbusiness-onlinepayment-ippay-perl (0.05~02-2+squeeze1) stable-proposed-updates; urgency=low
+
+  * Team upload.
+  * Backport changes to IPPay gateway's server name and path. Thanks to
+    Ivan Kohler for preparing the backport. (Closes: #691723)
+
+ -- gregor herrmann <gregoa@debian.org>  Tue, 30 Oct 2012 18:31:33 +0100
+
 libbusiness-onlinepayment-ippay-perl (0.05~02-2) unstable; urgency=low
 
   * Take over for the Debian Perl Group
only in patch2:
unchanged:
--- libbusiness-onlinepayment-ippay-perl-0.05~02.orig/IPPay.pm
+++ libbusiness-onlinepayment-ippay-perl-0.05~02/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,16 +209,13 @@
   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);
 
-  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);
@@ -381,7 +378,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");
@@ -567,6 +564,9 @@
 
 =head1 COMPATIBILITY
 
+Debian version 0.05~02-2+squeeze1 (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.