Business::OnlinePayment::Skipjack - Skipjack backend module for Business::OnlinePayment
use Business::OnlinePayment; #### # One step transaction, the simple case. #### my $tx = new Business::OnlinePayment("Skipjack"); $tx->content( type => 'VISA', login => '000178101827', # "HTML serial number" action => 'Normal Authorization', description => 'Business::OnlinePayment test', amount => '49.95', invoice_number => '100100', customer_id => 'jsk', first_name => 'Jason', last_name => 'Kohles', address => '123 Anystreet', city => 'Anywhere', state => 'UT', zip => '84058', card_number => '4007000000027', expiration => '09/02', cvv2 => '1234', #optional #referer => 'http://valid.referer.url/', ); $tx->submit(); if($tx->is_success()) { print "Card processed successfully: ".$tx->authorization."\n"; } else { print "Card was rejected: ".$tx->error_message."\n"; } ### # Process a credit... ### my $tx = new Business::OnlinePayment( "Skipjack" ); $tx->content( type => 'VISA', login => '000178101827', # "HTML serial number" password => '100594217288', # "developer serial number" action => 'Normal Authorization', description => 'Business::OnlinePayment test', amount => '49.95', invoice_number => '100100', customer_id => 'jsk', first_name => 'Jason', last_name => 'Kohles', address => '123 Anystreet', city => 'Anywhere', state => 'UT', zip => '84058', card_number => '4007000000027', expiration => '09/02', cvv2 => '1234', #optional #referer => 'http://valid.referer.url/', ); $tx->submit(); if($tx->is_success()) { print "Card credited successfully: ".$tx->authorization."\n"; } else { print "Credit was rejected: ".$tx->error_message."\n"; }
Content required for Normal Authorization : login, action, amount, card_number, expiration, name, address, city, state, zip, phone, email
Content required for Void or Credit: login, password, action, order_number
For detailed information see Business::OnlinePayment
Net::SSLeay _or_ ( Crypt::SSLeay and LWP )
If you want to process credits, you must have your developer serial number applied to your production account. See http://www.skipjack.com/resources/Education/serialnumbers.htm
This modules supports a non-standard "status" action that corresponds to Skipjack's TransactionStatusRequest. It should be documented.
Inspiried by (but no longer contains) code from:
Original Skipjack.pm developed by New York Connect Net (http://nyct.net) Michael Bacarella <mbac@nyct.net> Modified for GetCareer.com by Slipstream.com Troy Davis <troy@slipstream.com>
'Adapted' (completely rewritten) for Business::OnlinePayment by Fire2Wire Internet Services (http://www.fire2wire.com) Mark Wells <mark@pc-intouch.com> Kristian Hoffmann <khoff@pc-intouch.com> James Switzer <jamess@fire2wire.com>
Boring 0.2 update by Ivan Kohler <ivan-skipjack@420.am>
Copyright (c) 2006 Fire2Wire Internet Services (http://www.fire2wire.com) All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Business::OnlinePayment
To install Business::OnlinePayment::Skipjack, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Business::OnlinePayment::Skipjack
CPAN shell
perl -MCPAN -e shell install Business::OnlinePayment::Skipjack
For more information on module installation, please visit the detailed CPAN module installation guide.