
Business::OnlinePayment::WesternACH - Western ACH backend for Business::OnlinePayment

use Business::OnlinePayment;
####
# Electronic check authorization. We only support
# 'Normal Authorization' and 'Credit'.
####
my $tx = new Business::OnlinePayment("WesternACH");
$tx->content(
type => 'ECHECK',
login => 'testdrive',
password => 'testpass',
action => 'Normal Authorization',
description => 'Business::OnlinePayment test',
amount => '49.95',
invoice_number => '100100',
first_name => 'Jason',
last_name => 'Kohles',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '84058',
account_type => 'personal checking',
account_number => '1000468551234',
routing_code => '707010024',
check_number => '1001', # optional
);
$tx->submit();
if($tx->is_success()) {
print "Check processed successfully: ".$tx->authorization."\n";
} else {
print "Check was rejected: ".$tx->error_message."\n";
}
my $tx = new Business::OnlinePayment("WesternACH");
$tx->content(
login => 'testdrive',
password => 'testpass',
start => '2009-06-25', # optional; defaults to yesterday
end => '2009-06-26', # optional; defaults to today
);
$tx->get_returns;

Content required: type, login, password|transaction_key, action, amount, first_name, last_name, account_number, routing_code, account_type.

For detailed information see Business::OnlinePayment.

See Business::OnlinePayment for the complete list. The following methods either override the methods in Business::OnlinePayment or provide additional functions.
Currently returns nothing; these transactions don't seem to have result codes.
Returns the response reason text. This can come from several locations in the response document or from certain local errors.
Returns the complete response from the server.

The following actions are valid:
normal authorization credit

Mark Wells <mark@freeside.biz> with advice from Ivan Kohler <ivan-westernach@freeside.biz>.

perl(1). Business::OnlinePayment.