Charge a Customer

This code steps you through the process of charging a customer's credit card.

There are three outcomes when processing credit card transactions:

  1. Approved
  2. Declined
  3. Error

'Approved' transactions can be charged against customers' credit cards. 'Declined' transactions can't be charged. As a result, in order to test the process of charging a customer's credit card, you must first pass an odd dollar amount. This returns the transaction with an 'Approved' status. You can then charge the credit card to complete the transaction.

An error could result from a variety of conditions such as missing data, invalid card numbers, and expiration dates provided in invalid formats.

The following sample code calls a routine from our Code Library.
Download bluepay.pm

Run a Credit Card Payment

##
# BluePay Perl Sample code.
#
# This code sample runs a $3.00 Credit Card Sale transaction
# against a customer using test payment information.
# If using TEST mode, odd dollar amounts will return
# an approval and even dollar amounts will return a decline.
##

use strict;
use bluepay;

my $account_id = "Merchant's Account ID Here";
my $secret_key = "Merchant's Secret Key Here";
my $mode = "TEST";

my $payment = BluePay->new(
  $account_id,
  $secret_key,
  $mode
);

$payment->set_customer_information({
  first_name => 'Bob',
  last_name => 'Tester',
  address1 => '1234 Test St.',
  address2 => 'Apt',
  city => 'Testville',
  state => 'IL',
  zip_code => '54321',
  country => 'USA',
  phone => '123-123-12345',
  email => '[email protected]'
});

$payment->set_cc_information({
  cc_number =>'4111111111111111', # Customer Credit Card Number
  cc_expiration => '0815', # Card Expiration Date: MMYY
  cvv2 =>'123' # Card CVV2
});

$payment->sale({amount => '3.00'}); # Sale Amount: $3.00

# Makes the API Request with BluePay
$payment->process();


# Reads the response from BluePay
if ($payment->is_successful_response()){
  print "TRANSACTION STATUS: " . $payment->{Result} . "\n";
  print "TRANSACTION MESSAGE: " . $payment->{MESSAGE} . "\n";
  print "TRANSACTION ID: " . $payment->{RRNO} . "\n";
  print "AVS RESPONSE: " .$payment->{AVS} . "\n";
  print "CVV2 RESPONSE: " . $payment->{CVV2} . "\n";
  print "MASKED PAYMENT ACCOUNT: " . $payment->{PAYMENT_ACCOUNT} . "\n";
  print "CARD TYPE: " . $payment->{CARD_TYPE} . "\n";
  print "AUTH CODE: " . $payment->{AUTH_CODE} . "\n";
} else {
  print $payment->{MESSAGE} . "\n";
}

Run an ACH payment

##
# BluePay Perl Sample code.
#
# This code sample runs a $3.00 ACH Sale transaction
# against a customer using test payment information.
##

use strict;
use bluepay;

my $account_id = "Merchant's Account ID Here";
my $secret_key = "Merchant's Secret Key Here";
my $mode = "TEST";

my $payment = BluePay->new(
  $account_id,
  $secret_key,
  $mode
);

$payment->set_customer_information({
  first_name => 'Bob',
  last_name => 'Tester',
  address1 => '123 Test St.',
  address2 => 'Apt',
  city => 'Testville',
  state => 'IL',
  zip_code => '54321',
  country => 'USA',
  phone => '123-123-12345',
  email => '[email protected]'
});

$payment->set_ach_information({
    ach_routing => "123123123", # Routing Number: 123123123
    ach_account => "123456789", # Account Number: 123456789
    ach_account_type => 'C', # Account Type: Checking
    doc_type => "WEB" # ACH Document Type: WEB
});

$payment->sale({amount => '3.00'}); # Sale Amount: $3.00

# Makes the API Request with BluePay
$payment->process();

# Reads the response from BluePay
if ($payment->is_successful_response()){
  print "TRANSACTION ID: " . $payment->{RRNO} . "\n";
  print "TRANSACTION STATUS: " . $payment->{Result} . "\n";
  print "TRANSACTION MESSAGE: " . $payment->{MESSAGE} . "\n";
  print "MASKED PAYMENT ACCOUNT: " . $payment->{PAYMENT_ACCOUNT} . "\n";
  print "CUSTOMER BANK: " . $payment->{BANK_NAME} . "\n";
} else {
  print $payment->{MESSAGE} . "\n";
}
BluePay Processing, LLC is a registered ISO of Wells Fargo Bank, N.A., Walnut Creek, CA, U.S.A.
BluePay Canada ULC, is a Registered ISO/MSP of Peoples Trust Company, Vancouver, Canada.