projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
df7872c
)
fix the same problem with processing payments & masked ACH amounts, RT#6374
author
ivan
<ivan>
Sun, 4 Oct 2009 23:36:06 +0000
(23:36 +0000)
committer
ivan
<ivan>
Sun, 4 Oct 2009 23:36:06 +0000
(23:36 +0000)
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
patch
|
blob
|
history
diff --git
a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index
30fc2aa
..
ec8d6d8
100644
(file)
--- a/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@
-464,14
+464,16
@@
sub ach_payment_results {
my $amount = $1;
my $payinfo1 = $cgi->param('payinfo1');
my $amount = $1;
my $payinfo1 = $cgi->param('payinfo1');
- $payinfo1=~ /^(\d+)$/
+ $payinfo1 =~ s/[^\dx]//g;
+ $payinfo1 =~ /^([\dx]+)$/
or die "illegal account"; #!!!
or die "illegal account"; #!!!
- $payinfo1= $1;
+ $payinfo1
= $1;
my $payinfo2 = $cgi->param('payinfo2');
my $payinfo2 = $cgi->param('payinfo2');
- $payinfo2=~ /^(\d+)$/
+ $payinfo2 =~ s/[^\dx]//g;
+ $payinfo2 =~ /^([\dx]+)$/
or die "illegal ABA/routing code"; #!!!
or die "illegal ABA/routing code"; #!!!
- $payinfo2= $1;
+ $payinfo2
= $1;
$cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
my $payname = $1;
$cgi->param('payname') =~ /^(.{0,80})$/ or die "illegal payname";
my $payname = $1;