From dcdf657e77ec7b46dc69e19a849a9c133123db7c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 14 Dec 2006 06:00:46 +0000
Subject: encryption fixes from huntsberg & jayce

---
 httemplate/misc/process/payment.cgi | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'httemplate/misc/process')

diff --git a/httemplate/misc/process/payment.cgi b/httemplate/misc/process/payment.cgi
index 027cd502a..d591db1e8 100644
--- a/httemplate/misc/process/payment.cgi
+++ b/httemplate/misc/process/payment.cgi
@@ -44,17 +44,24 @@
 %my $paycvv = '';
 %if ( $payby eq 'CHEK' ) {
 %
-%  $cgi->param('payinfo1') =~ /^(\d+)$/
-%    or eidiot "illegal account number ". $cgi->param('payinfo1');
-%  my $payinfo1 = $1;
-%   $cgi->param('payinfo2') =~ /^(\d+)$/
-%    or eidiot "illegal ABA/routing number ". $cgi->param('payinfo2');
-%  my $payinfo2 = $1;
-%  $payinfo = $payinfo1. '@'. $payinfo2;
+%  if ($cgi->param('payinfo1') =~ /xx/ || $cgi->param('payinfo2') =~ /xx/ ) {
+%    $payinfo = $cust_main->payinfo;
+%  } else {
+%    $cgi->param('payinfo1') =~ /^(\d+)$/
+%      or eidiot "illegal account number ". $cgi->param('payinfo1');
+%    my $payinfo1 = $1;
+%    $cgi->param('payinfo2') =~ /^(\d+)$/
+%      or eidiot "illegal ABA/routing number ". $cgi->param('payinfo2');
+%    my $payinfo2 = $1;
+%    $payinfo = $payinfo1. '@'. $payinfo2;
+%  }
 %
 %} elsif ( $payby eq 'CARD' ) {
 %
 %  $payinfo = $cgi->param('payinfo');
+%  if ($payinfo eq $cust_main->paymask) {
+%    $payinfo = $cust_main->payinfo;
+%  }
 %  $payinfo =~ s/\D//g;
 %  $payinfo =~ /^(\d{13,16})$/
 %    or eidiot gettext('invalid_card'); # . ": ". $self->payinfo;
-- 
cgit v1.2.1