File Coverage

blib/lib/Business/OnlinePayment/iAuthorizer.pm

Criterion	Covered	Total	%
statement	15	67	22.3
branch	0	2	0.0
condition			n/a
subroutine	5	11	45.4
pod	4	6	66.6
total	24	86	27.9

package Business::OnlinePayment::iAuthorizer;

# $Id: iAuthorizer.pm,v 1.6 2003/09/11 05:30:38 db48x Exp $

use Data::Dumper;
use strict;
use Business::OnlinePayment;
use Net::SSLeay qw/make_form post_https make_headers/;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
$VERSION = '0.2';

sub set_defaults {
    my $self = shift;

    $self->server('tran1.iAuthorizer.net');
    $self->port('443');
    $self->path('/trans/postto.asp');

    $self->build_subs('action');
    $self->build_subs('debug');
}

sub map_fields {
    my($self) = @_;

    my %content = $self->content();

    # ACTION MAP
    my %actions = ('normal authorization' => '5',
                   'authorization only'   => '6',
                   'credit'               => '0',
                   'post authorization'   => '2',
                   'void'                 => '1',
                  );
    $content{'action'} = $actions{lc($content{'action'})};

    my %methods = ('manual'         => '0',
                   'swipe'          => '1',
                   'swipe, track 1' => '1',
                   'swipe, track 2' => '2',
                  );
    $content{'entry_method'} = $methods{lc($content{'entry_method'})};

    ($content{'expMonth'}, $content{'expYear'}) = split('/', $content{'expiration'});

    # stuff it back into %content
    $self->content(%content);
}

sub remap_fields {
    my($self,%map) = @_;

    my %content = $self->content();
    foreach(keys %map) {
        $content{$map{$_}} = $content{$_};
    }
    $self->content(%content);
}

sub get_fields {
    my($self,@fields) = @_;

    my %content = $self->content();
    my %new = ();
    foreach(grep defined $content{$_}, @fields) { $new{$_} = $content{$_}; }

    return %new;
}

sub transaction_type {
    my $self = shift;
    return $self->content()->{'action'};
}

sub submit {
    my($self) = @_;

    $self->map_fields();
    $self->remap_fields(
        entry_method   => 'EntryMethod',
        login          => 'MerchantCode',
        password       => 'MerchantPWD',
        serial         => 'MerchantSerial',
        action         => 'Trantype',
        amount         => 'amount',
        invoice_number => 'invoicenum',
	order_number   => 'referencenum',
	authorization  => 'appcode',
        customer_id    => 'customer',
        address        => 'Address',
        zip            => 'ZipCode',
        card_number    => 'ccnumber',
        cvv2           => 'CVV2',
    );

#    if ($self->action() == 0 || $self->action() == 1) # void or force
#    {
#      $self->required_fields(qw/login password serial action card_number expiration amount authorization/);
#    }
#    else
#    {
      $self->required_fields(qw/login password serial action card_number expiration amount/);
#    }

    my %post_data = $self->get_fields(qw/MerchantCode MerchantPWD MerchantSerial ccnumber
                                         expYear expMonth Trantype EntryMethod amount
                                         invoicenum ordernum Zipcode Address CVV2 CF appcode/);

    $post_data{'EntryMethod'} = 0;   # hand entered, as opposed to swiped through a card reader
    $post_data{'CF'} = 'ON';         # return comma-delimited data

    my $pd = make_form(%post_data);
    my $s = $self->server();
    my $p = $self->port();
    my $t = $self->path();
    my $r = $self->{_content}->{referer};
    my($page,$server_response,%headers) = post_https($s,$p,$t,$r,$pd);

    my @col = split(',', $page);

    $self->server_response($page);
    if($col[0] eq "0" ) {
        $self->is_success(1);
        $self->result_code($col[1]);
        $self->authorization($col[1]);
    } else {
        $self->is_success(0);
        $self->result_code($col[1]);
        $self->error_message($col[2]);
    }

    $self->debug("<no response code, debug info follows>\n".
      "HTTPS response:\n  $server_response\n\n".
      "HTTPS headers:\n  ".
        join("\n  ", map { "$_ => ". $headers{$_} } keys %headers ). "\n\n".
      "POST Data:\n  ".
        join("\n  ", map { "$_ => ". $post_data{$_} } keys %post_data ). "\n\n".
      "Raw HTTPS content:\n  $page");
}

1;
__END__