[freeside-commits] branch FREESIDE_3_BRANCH updated. b01ab86a3b25fa9c89aa2afd91646c59505318a4

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  b01ab86a3b25fa9c89aa2afd91646c59505318a4 (commit)
       via  0cc73df2d8ca19b1f8c2fc93bd4f2468b738b969 (commit)
      from  f79377d752c38762833b9ff3982046a31488d0df (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b01ab86a3b25fa9c89aa2afd91646c59505318a4
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Thu May 11 13:54:27 2017 -0700

    3.93~git

diff --git a/FS/FS.pm b/FS/FS.pm
index 9e5b13b..9ee5fc9 100644
--- a/FS/FS.pm
+++ b/FS/FS.pm
@@ -3,7 +3,7 @@ package FS;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.92';
+$VERSION = '3.93~git';
 
 #find missing entries in this file with:
 # for a in `ls *pm | cut -d. -f1`; do grep 'L<FS::'$a'>' ../FS.pm >/dev/null || echo "missing $a" ; done

commit 0cc73df2d8ca19b1f8c2fc93bd4f2468b738b969
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Thu May 11 13:08:13 2017 -0700

    3.92

diff --git a/FS/FS.pm b/FS/FS.pm
index 4d35a81..9e5b13b 100644
--- a/FS/FS.pm
+++ b/FS/FS.pm
@@ -3,7 +3,7 @@ package FS;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.92~git';
+$VERSION = '3.92';
 
 #find missing entries in this file with:
 # for a in `ls *pm | cut -d. -f1`; do grep 'L<FS::'$a'>' ../FS.pm >/dev/null || echo "missing $a" ; done
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm
index 6023aa2..f4c6b4a 100644
--- a/FS/FS/payinfo_Mixin.pm
+++ b/FS/FS/payinfo_Mixin.pm
@@ -222,7 +222,7 @@ sub payinfo_check {
       $payinfo =~ s/\D//g;
       $self->payinfo($payinfo);
       if ( $self->payinfo ) {
-        $self->payinfo =~ /^(\d{13,16}|\d{8,9})$/
+        $self->payinfo =~ /^(\d{13,19}|\d{8,9})$/
           or return "Illegal (mistyped?) credit card number (payinfo)";
         $self->payinfo($1);
         validate($self->payinfo) or return "Illegal credit card number";
diff --git a/debian/changelog b/debian/changelog
index e3c718c..63b9ebb 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,8 +1,8 @@
-freeside (3.92~git-1) UNRELEASED; urgency=medium
+freeside (3.92-1) unstable; urgency=medium
 
-  * 3.91 release happened
+  * 3.92
 
- -- Ivan Kohler <ivan-debian at 420.am>  Wed, 10 Aug 2016 17:28:10 -0700
+ -- Ivan Kohler <ivan-debian at 420.am>  Thu, 11 May 2017 13:03:46 -0700
 
 freeside (3.91-1) unstable; urgency=low
 
diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index 0af94cd..d5147d2 100755
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -150,7 +150,7 @@ sub process_signup {
     my $payinfo = $cgi->param('payinfo');
     $payinfo =~ s/\D//g;
 
-    $payinfo =~ /^(\d{13,16}|\d{8,9})$/
+    $payinfo =~ /^(\d{13,19}|\d{8,9})$/
       or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
     $payinfo = $1;
     validate($payinfo)
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index 7d98437..e83b030 100755
--- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@ -604,7 +604,7 @@ sub payment_results {
 
   my $payinfo = $cgi->param('payinfo');
   $payinfo =~ s/[^\dx]//g;
-  $payinfo =~ /^([\dx]{13,16}|[\dx]{8,9})$/
+  $payinfo =~ /^([\dx]{13,19}|[\dx]{8,9})$/
     #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
     or return { 'error' => "illegal card" }; #!!!
   $payinfo = $1;
diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index c696276..2411c54 100755
--- a/fs_selfservice/FS-SelfService/cgi/signup.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi
@@ -201,7 +201,7 @@ if ( $magic eq 'process' || $action eq 'process_signup' ) {
       my $payinfo = $cgi->param('payinfo');
       $payinfo =~ s/\D//g;
 
-      $payinfo =~ /^(\d{13,16}|\d{8,9})$/
+      $payinfo =~ /^(\d{13,19}|\d{8,9})$/
         or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
       $payinfo = $1;
       validate($payinfo)

-----------------------------------------------------------------------

Summary of changes:
 FS/FS.pm                                          |    2 +-
 FS/FS/payinfo_Mixin.pm                            |    2 +-
 debian/changelog                                  |    6 +++---
 fs_selfservice/FS-SelfService/cgi/agent.cgi       |    2 +-
 fs_selfservice/FS-SelfService/cgi/selfservice.cgi |    2 +-
 fs_selfservice/FS-SelfService/cgi/signup.cgi      |    2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)