Store Payment Information

This code steps you through the process of storing a customer's payment information securely with BluePay. The code returns a Transaction ID, which you can use as a token for future transactions. Depending on the interface you're using, the Transaction ID is either "Master ID" or "RRNO."

This process does not validate the credit card nor does it authorize payments.

For that Go to: Run a credit card transaction, Authorize a credit card transaction

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

##
# BluePay Perl Sample code.
#
# This code sample runs a $0.00 AUTH transaction
# against a customer using test payment information.
# This stores the customer's payment information securely in
# BluePay to be used for further transactions.
# Note: THIS DOES NOT ENSURE THAT THE CREDIT CARD OR ACH
# ACCOUNT IS VALID.
##

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_cc_information({
  cc_number =>'4111111111111111', # Customer Credit Card Number
  cc_expiration => '0815', # Card Expiration Date: MMYY
  cvv2 =>'123' # Card CVV2
});

$payment->auth({amount => '0.00'}); # Card authorization at $0.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 RESULT: " .$payment->{AVS} . "\n";
  print "CVV2 RESULT: " . $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";
}
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.