[ic] IC 5.4 Fraudulent attempts

Steve Graham icdev at mrlock.com
Sat Apr 7 12:13:13 EDT 2007

Any suggestions? Talking to self.....

Here is what I have now... seems to be working the way I need it: 
(Comments, Improvements.....)
This routine also compares the value of Country (which may be 
different than yours) We will accept international credit cards to 
accepted ship-to countries, and security verify the customers details 
after the sale......
 From recent experience, I think some sort of limit on automatic 
credit card verifications ought to be included here for the default 
IC store....... Steve

[elsif value mv_order_profile eq credit_card]
[if value country eq "US"]
               $Scratch->{cc_attempts} = 0  unless defined 
         [perl]$Scratch->{cc_attempts}++; [/perl]

                 return if $Scratch->{tmp_total} == $Scratch->{tmp_remaining};
                 my $msg = sprintf "Your credit card was charged 
%.2f", $Scratch->{tmp_remaining};
                 $Scratch->{pay_cert_total} = $Scratch->{tmp_total} - 
                 $Scratch->{charge_total_message} = $msg;
                 return "Credit card will be charged 
         Country: [value country]
     [if scratch cc_attempts < 7]
         Charging with payment mode=[value mv_payment_route]
         [tmp name="charge_succeed"][charge route="[value 
mv_payment_route]" amount="[scratch tmp_remaining]" order_id="[value 
            die errmsg(
                                 "Real-time charge failed. - too many 
                                 'too many failed charge attempts!',
         [perl]$Session->{payment_error} = 'Too many failed attempts 
- please call in your order!'; [/perl]

         [if scratch charge_succeed]
           [set do_invoice]1[/set]
           [set do_payment]1[/set]
           Real-time charge succeeded. ID=[data session payment_id] 
amount=[scratch tmp_remaining]
         Real-time charge FAILED. Reason: [data session payment_error]
         Failed charge count: [scratch cc_attempts]
                         delete $Scratch->{$_};
                 die errmsg(
                                 "Real-time charge failed. Reason: %s\n",
Country: [value country]
Forcing Offline credit card [value mv_credit_card_type] [value 
         Payment: [value name=mv_payment set="credit_card"]

More information about the interchange-users mailing list