[freeside-commits] freeside/httemplate/misc/process payment.cgi, 1.5, 1.6

Ivan,,, ivan at wavetail.420.am
Wed Dec 13 22:00:47 PST 2006


Update of /home/cvs/cvsroot/freeside/httemplate/misc/process
In directory wavetail:/tmp/cvs-serv15602/httemplate/misc/process

Modified Files:
	payment.cgi 
Log Message:
encryption fixes from huntsberg & jayce

Index: payment.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/process/payment.cgi,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- payment.cgi	27 Aug 2006 21:50:18 -0000	1.5
+++ payment.cgi	14 Dec 2006 06:00:45 -0000	1.6
@@ -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;



More information about the freeside-commits mailing list