diff options
author | ivan <ivan> | 2009-09-30 19:33:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-09-30 19:33:09 +0000 |
commit | a7cd3ea8716109fb8c1ffab97914dc681957796b (patch) | |
tree | 6c9f15b37cc8858949f0a481366d509ef8ba8fa5 /fs_selfservice | |
parent | c33e009d50f9af054a5a0195eca5df31c4fb9539 (diff) |
hopefully the final fix for the problems using remembered cards in self-service
Diffstat (limited to 'fs_selfservice')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index 7c5ad839c..7071e6ca6 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -361,7 +361,7 @@ sub make_payment { sub payment_results { - use Business::CreditCard; + use Business::CreditCard 0.30; #we should only do basic checking here for DoS attacks and things #that couldn't be constructed by the web form... let process_payment() do @@ -372,8 +372,8 @@ sub payment_results { my $amount = $1; my $payinfo = $cgi->param('payinfo'); - $payinfo =~ s/\D//g; - $payinfo =~ /^(\d{13,16})$/ + $payinfo =~ s/[^\dx]//g; + $payinfo =~ /^([\dx]{13,16})$/ #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo; or die "illegal card"; #!!! $payinfo = $1; |