Business::OnlinePayment::2CheckOut - 2CheckOut backend for
Business::OnlinePayment
use Business::OnlinePayment;
my $tx = new Business::OnlinePayment("2CheckOut");
$tx->content(
login => '124',
amount => '23.00',
order_number => '100100',
first_name => 'Jason',
last_name => 'Kohles',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '99999',
country => 'USA',
phone => '555-55-55',
email => 'whoever@anywhere.com',
card_number => '4007000000027',
expiration => '09/02',
cvv2 => '123',
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
if($tx->is_success()) {
print "Card processed successfully: ".$tx->authorization."\n";
}
else {
print "Card was rejected: ".$tx->error_message."\n";
}
Content required:
login - merchant login to the 2CheckOut authorization System,
amount - total amount of money to be charged,
first_name - first name of card holder,
last_name - last name of card holder,
card_number - the credit card number,
expiration - expiration date of credit card (formatted as mm/yy),
cvv2 - CVV2 code on the credit card,
invoice_number - the order number of the purchase,
address - billing address,
city - billing city,
state - billing state,
zip - billing zip/postal code,
country - billing country,
phone - billing phone,
email - billing e-mail.
For detailed information see Business::OnlinePayment.
This module implements Normal Authorization mathod only. See
http://www.2checkout.com/cart_specs.htm for details.
Alexey Khobov, <alex@stork.ru>
perl. Business::OnlinePayment.