r63632 - in /trunk/libbusiness-onlinepayment-paymentech-perl: Changes META.yml debian/changelog debian/control lib/Business/OnlinePayment/PaymenTech.pm

[ivan at users.alioth.debian.org]

Author: ivan
Date: Tue Oct 12 00:44:33 2010
New Revision: 63632

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63632
Log:
new upstream release 2.04

Modified:
    trunk/libbusiness-onlinepayment-paymentech-perl/Changes
    trunk/libbusiness-onlinepayment-paymentech-perl/META.yml
    trunk/libbusiness-onlinepayment-paymentech-perl/debian/changelog
    trunk/libbusiness-onlinepayment-paymentech-perl/debian/control
    trunk/libbusiness-onlinepayment-paymentech-perl/lib/Business/OnlinePayment/PaymenTech.pm

Modified: trunk/libbusiness-onlinepayment-paymentech-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-paymentech-perl/Changes?rev=63632&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-paymentech-perl/Changes (original)
+++ trunk/libbusiness-onlinepayment-paymentech-perl/Changes Tue Oct 12 00:44:33 2010
@@ -1,4 +1,7 @@
 Revision history for Business-OnlinePayment-PaymenTech
+
+2.04    Mon Oct 11 17:30:00 PDT 2010
+        - Always send expiration date as MMYY
 
 2.03    Sun Jan 24 13:19:29 PST 2010
         - Truncate all request fields to their maximum lengths

Modified: trunk/libbusiness-onlinepayment-paymentech-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-paymentech-perl/META.yml?rev=63632&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-paymentech-perl/META.yml (original)
+++ trunk/libbusiness-onlinepayment-paymentech-perl/META.yml Tue Oct 12 00:44:33 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Business-OnlinePayment-PaymenTech
-version:            2.03
+version:            2.04
 abstract:           Chase Paymentech backend for Business::OnlinePayment
 author:
     - Mark Wells <mark at freeside.biz>

Modified: trunk/libbusiness-onlinepayment-paymentech-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-paymentech-perl/debian/changelog?rev=63632&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-paymentech-perl/debian/changelog (original)
+++ trunk/libbusiness-onlinepayment-paymentech-perl/debian/changelog Tue Oct 12 00:44:33 2010
@@ -1,3 +1,10 @@
+libbusiness-onlinepayment-paymentech-perl (2.04-1) unstable; urgency=low
+
+  * Change Dep/B-D-I for HTTPS use to libnet-https-any-perl
+  * New upstream release
+
+ -- Ivan Kohler <ivan-debian at 420.am>  Mon, 11 Oct 2010 17:43:40 -0700
+
 libbusiness-onlinepayment-paymentech-perl (2.03-3) unstable; urgency=low
 
   * Add a build dependencies on liburi-perl and libtie-ixhash-perl

Modified: trunk/libbusiness-onlinepayment-paymentech-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-paymentech-perl/debian/control?rev=63632&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-paymentech-perl/debian/control (original)
+++ trunk/libbusiness-onlinepayment-paymentech-perl/debian/control Tue Oct 12 00:44:33 2010
@@ -3,9 +3,8 @@
 Priority: optional
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl,
- libbusiness-onlinepayment-perl (>=3.00~07),
- libnet-ssleay-perl | libcrypt-ssleay-perl, libnet-ssleay-perl | libwww-perl, 
- libxml-simple-perl, liburi-perl, libtie-ixhash-perl, libtest-pod-perl
+ libbusiness-onlinepayment-perl (>=3.00~07), libtie-ixhash-perl,
+ libnet-https-any-perl, libxml-simple-perl, libtie-ixhash-perl, libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Ivan Kohler <ivan-debian at 420.am>,
  gregor herrmann <gregoa at debian.org>
@@ -18,8 +17,7 @@
 Architecture: all
 Depends: ${perl:Depends}, ${misc:Depends}, 
  libbusiness-onlinepayment-perl (>=3.00~07),
- libnet-ssleay-perl | libcrypt-ssleay-perl, libnet-ssleay-perl | libwww-perl,
- libxml-simple-perl
+ libnet-https-any-perl, libxml-simple-perl
 Description: Chase Paymentech backend for Business::OnlinePayment
  This is Business::OnlinePayment::PaymenTech, an Business::OnlinePayment
  backend module for Chase Paymentech.  It is only useful if you have a

Modified: trunk/libbusiness-onlinepayment-paymentech-perl/lib/Business/OnlinePayment/PaymenTech.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libbusiness-onlinepayment-paymentech-perl/lib/Business/OnlinePayment/PaymenTech.pm?rev=63632&op=diff
==============================================================================
--- trunk/libbusiness-onlinepayment-paymentech-perl/lib/Business/OnlinePayment/PaymenTech.pm (original)
+++ trunk/libbusiness-onlinepayment-paymentech-perl/lib/Business/OnlinePayment/PaymenTech.pm Tue Oct 12 00:44:33 2010
@@ -8,7 +8,10 @@
 use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.03';
+
+$VERSION = '2.04';
+$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
+
 $DEBUG = 0;
 $me='Business::OnlinePayment::PaymenTech';
 
@@ -190,7 +193,9 @@
       $content{invoice_number} ||= sprintf("%04x%04x",time % 2**16,int(rand() * 2**16));
     }
 
-    $content{expiration} =~ s/\D//g; # Because Freeside sends it as mm/yy, not mmyy.
+    # Always send as MMYY
+    $content{expiration} =~ s/\D//g; 
+    $content{expiration} = sprintf('%04d',$content{expiration});
 
     $self->content(%content);
     return;