diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-05-11 13:08:13 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-05-11 13:08:13 -0700 |
| commit | 0cc73df2d8ca19b1f8c2fc93bd4f2468b738b969 (patch) | |
| tree | c9ab23223343c8d85d72974ff9be6aacaa6847a2 /fs_selfservice | |
| parent | f79377d752c38762833b9ff3982046a31488d0df (diff) | |
3.92
Diffstat (limited to 'fs_selfservice')
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/agent.cgi | 2 | ||||
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 2 | ||||
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/signup.cgi | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi index 0af94cd9e..d5147d215 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 7d984373c..e83b030c5 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 c696276a7..2411c54a7 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) |