Transaction central backend module for business::onlinepayment
use Business::OnlinePayment;
####
# One step transaction, the simple case.
####
my $tx = new Business::OnlinePayment("TransactionCentral");
$tx->content(
type => 'CC',
login => '10011', #MerchantID
password => 'KK48NPYEJHMAH6DK', #Regkey
action => 'Normal Authorization',
description => 'Business::OnlinePayment test',
amount => '49.95',
name => 'Tofu Beast',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '84058',
phone => '420-867-5309',
email => '[email protected]',
card_number => '4012000000001',
expiration => '08/06',
cvv2 => '1234', #optional
);
$tx->submit();
if($tx->is_success()) {
print "Card processed successfully: ".$tx->authorization."\n";
} else {
print "Card was rejected: ".$tx->error_message."\n";
}
=head1 DESCRIPTION
This is a Business::OnlinePayment backend module for the Transaction Central (MerchantAnywhere, PRIMerchants) gateway. It is only useful if you have a merchant account with MerchantAnywhere / PRIMerchants:
http://www.merchantanywhere.com/ http://www.merchantanywhere.com/ecshop/TC_elink.htm
http://www.primerchants.com/ http://www.primerchants.com/info/transactioncentral.asp
Content required: type, login, password, action, amount, card_number, expiration, name, address, zip.
Content required: type, login, password, action, amount, account_number, routing_code, name
URI::Escape
Net::SSLeay _or_ ( Crypt::SSLeay and LWP )
For detailed information see Business::OnlinePayment.
The newest publicly available documentation is available at:
http://www.merchantanywhere.com/ecshop/TC%20Interface%20NEW.pdf
It is somewhat out-of-date and contains a few discrepancies. Google \*(L"TCInterfaceGuide\*(R" for current documentation.
Ivan Kohler <[email protected]>
Copyright (C) 2006 by Ivan Kohler Copyright (C) 2007 Freeside Internet Services, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl\|(1). Business::OnlinePayment.