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.000000000 -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 <ivan-deb...@420.am> 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.000000000 -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.