Bug#691723: squeeze patch

[gregor herrmann]

On Mon, 29 Oct 2012 20:27:19 -0700, Ivan Kohler wrote:

> Didn't realize squeeze had an earlier version.  Here is a patch for 
> squeeze.  Not sure I got the Deb version increment right for this 
> situation.

Thanks, updated package prepared in git (squeeze branch) and pu bug
sent to the release team.

Cheers,
gregor 
-- 
 .''`.  Homepage: http://info.comodo.priv.at/ - OpenPGP key 0xBB3A68018649AA06
 : :' : Debian GNU/Linux user, admin, and developer  -  http://www.debian.org/
 `. `'  Member of VIBE!AT & SPI, fellow of the Free Software Foundation Europe
   `-   NP: Ostbahn-Kurti & Die Chefpartie: Neiche Schoin


signature.asc
Description: Digital signature

Bug#691723: squeeze patch

[Ivan Kohler]

Didn't realize squeeze had an earlier version.  Here is a patch for 
squeeze.  Not sure I got the Deb version increment right for this 
situation.

-- 
_ivan
diff -ur libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog libbusiness-onlinepayment-ippay-perl-0.05~02-3/debian/changelog
--- libbusiness-onlinepayment-ippay-perl-0.05~02/debian/changelog	2012-10-29 20:22:05.0 -0700
+++ libbusiness-onlinepayment-ippay-perl-0.05~02-3/debian/changelog	2012-10-29 20:24:40.833748659 -0700
@@ -1,3 +1,9 @@
+libbusiness-onlinepayment-ippay-perl (0.05~02-3) stable-proposed-updates; urgency=low
+
+  * Backport gateway change from 0.07
+
+ -- Ivan Kohler   Mon, 29 Oct 2012 20:24:18 -0700
+
 libbusiness-onlinepayment-ippay-perl (0.05~02-2) unstable; urgency=low
 
   * Take over for the Debian Perl Group
diff -ur libbusiness-onlinepayment-ippay-perl-0.05~02/IPPay.pm libbusiness-onlinepayment-ippay-perl-0.05~02-3/IPPay.pm
--- libbusiness-onlinepayment-ippay-perl-0.05~02/IPPay.pm	2010-03-08 14:05:45.0 -0800
+++ libbusiness-onlinepayment-ippay-perl-0.05~02-3/IPPay.pm	2012-10-29 20:17:03.305948425 -0700
@@ -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-3 (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.