The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Business::OnlinePayment::Skipjack - Skipjack backend module for Business::OnlinePayment

SYNOPSIS

  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";
  }

SUPPORTED TRANSACTION TYPES

CC, Visa, MasterCard, American Express, Discover

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

DESCRIPTION

For detailed information see Business::OnlinePayment

PREREQUISITES

Net::SSLeay _or_ ( Crypt::SSLeay and LWP )

NOTE ON CREDITS

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

STATUS

This modules supports a non-standard "status" action that corresponds to Skipjack's TransactionStatusRequest. It should be documented.

AUTHOR

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

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.

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>

SEE ALSO

Business::OnlinePayment