Business::OnlinePayment::TransFirsteLink

Business::OnlinePayment::TransFirsteLink is a Transfirst eLink backend for Business::OnlinePayment
Download

Business::OnlinePayment::TransFirsteLink Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Jeff Finucane
  • Publisher web site:
  • http://search.cpan.org/~jef/Business-OnlinePayment-TransFirsteLink-0.04/TransFirsteLink.pm

Business::OnlinePayment::TransFirsteLink Tags


Business::OnlinePayment::TransFirsteLink Description

Business::OnlinePayment::TransFirsteLink is a Transfirst eLink backend for Business::OnlinePayment Business::OnlinePayment::TransFirsteLink is a Transfirst eLink backend for Business::OnlinePaymentSYNOPSIS use Business::OnlinePayment; my $tx = new Business::OnlinePayment( 'TransFirsteLink', 'merchantcustservnum' => "8005551212", ); # See the module documentation for details of content() $tx->content( type => 'CC', action => 'Normal Authorization', description => 'Business::OnlinePayment::TransFirsteLink test', amount => '49.95', invoice_number => '100100', customer_id => 'jef', name => 'Jeff Finucane', address => '123 Anystreet', city => 'Anywhere', state => 'GA', zip => '30004', email => 'transfirst@weasellips.com', card_number => '4111111111111111', expiration => '12/09', cvv2 => '123', order_number => 'string', ); $tx->submit(); if ( $tx->is_success() ) { print( "Card processed successfully: ", $tx->authorization, "n", "order number: ", $tx->order_number, "n", "CVV2 response: ", $tx->cvv2_response, "n", "AVS code: ", $tx->avs_code, "n", ); } else { my $info = ""; $info = " (CVV2 mismatch)" if ( $tx->result_code == 114 ); print( "Card was rejected: ", $tx->error_message, $info, "n", "order number: ", $tx->order_number, "n", ); } Requirements: · Perl


Business::OnlinePayment::TransFirsteLink Related Software

About SoftwareSea