File Coverage

blib/lib/Business/OnlinePayment/SynapseGateway.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Business::OnlinePayment::SynapseGateway;


use strict;
use warnings;
use Carp;
use Business::OnlinePayment;
use Business::OnlinePayment::HTTPS;
use vars qw($VERSION @ISA $me);

@ISA = qw(Business::OnlinePayment::HTTPS);

$VERSION = '0.01';

$me = 'Business::OnlinePayment::SynapseGateway';

sub set_defaults {
    my $self = shift;
    $self->server("connect12.synapsegateway.net");
    $self->port("443");
    $self->path("/Submit.aspx");

    $self->build_subs(qw( order_number avs_code
		      ));
}

sub map_fields {
    my($self) = @_;
    my %content = $self->content();

    my %map;
    if ($content{'type'} =~ /^(cc)$/i) {

        %map = ( 'normal authorization' => 'S',
                 'authorization only'   => 'A',
                 'credit'               => 'C',
                 'post authorization'   => 'P',
                 'void'                 => 'V',
               );
    }

    $content{'action'} = $map{lc($content{'action'})}
      or croak 'Unknown action: '. $content{'action'};

    $self->transaction_type($content{'type'});

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

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

    my @missing;
    my %content = $self->content();
    foreach(@fields) {
      next
        if (exists $content{$_} && defined $content{$_} && $content{$_}=~/\S+/);
      push(@missing, $_);
    }

    Carp::croak("missing required field(s): " . join(", ", @missing) . "\n")
      if(@missing);
}

sub submit {
    my($gateway) = @_;
    my $tranType;
    my $tranAmt;
    $gateway->map_fields();
    $gateway->remap_fields(
	login            => 'Syn_Act',
	password         => 'Syn_Pwd',
	action           => 'Tran_Type',
	amount		 => 'Tran_Amt',
	invoice_number	 => 'Tran_Inv',
	customer_id      => 'Tran_CNum',
	description      => 'Tran_Note',
	card_number      => 'Card_Num',
	name             => 'Card_Name',
	expiration       => 'Card_Exp',
	address          => 'AVS_Street',
	zip              => 'AVS_Zip',
	cvv2             => 'CVV_Num',
	order_number	 => 'Proc_ID',
    );
    #Set required fields based on action
    my %required;
    #Sale
    $required{S} =  [ qw( Syn_Act Syn_Pwd Tran_Type Tran_Amt Card_Name
                                Card_Num Card_Exp ) ];
    #Credit
    $required{C} =  [ qw( Syn_Act Syn_Pwd Tran_Type Tran_Amt Card_Name
                                Card_Num Card_Exp ) ];
    #Void
    $required{V} =  [ qw( Syn_Act Syn_Pwd Tran_Type Proc_ID ) ];
    #Auth
    $required{A} =  [ qw( Syn_Act Syn_Pwd Tran_Type Tran_Amt Card_Name
                                Card_Num Card_Exp ) ];
    #Post Auth
    $required{P} =  [ qw( Syn_Act Syn_Pwd Tran_Type Tran_Amt Proc_ID  ) ];
    #Mark
    $required{M} =  [ qw( Syn_Act Syn_Pwd Tran_Type Tran_Amt Proc_ID  ) ];

    #Collect content
    my %trans = $gateway->content();
    $tranType = $trans{'Tran_Type'};
    $tranAmt = $trans{'Tran_Amt'};

    #Check for post auth
    if ($trans{'Tran_Type'} eq "P"){
	#Collect content for query
	my %query = $gateway->content();
	$query{'Tran_Type'} = 'Q';
	$gateway->content(%query);
	#Send query
	my( $Qpage, $Qresp, %Qresp_headers) =
	$gateway->https_post( $gateway->get_fields( $gateway->fields ) );

	$gateway->response_code( $Qresp );
	$gateway->response_page( $Qpage );
	$gateway->response_headers( \%Qresp_headers );
	#parse query response
	my %Qresults = map { s/\s*$//;
			my ($name, $value) = split '=', $_, 2;
                        $name  =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
                        $value =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
                        $name, $value;
                      } split '&', $Qpage;

	#Check if passed amount and auth amount are the same
	if ($trans{'amount'}+0 eq $Qresults{'Tran_Amt'}+0){
	    #Amounts are the same, change to Mark instead of Post Auth
	    $trans{'Tran_Type'} = 'M';
	    $gateway->content(%trans);
	} else {
	    #Submit passed values
	    $trans{'Tran_type'} = $tranType;
	    $trans{'Tran_Amt'} = $tranAmt;
	    $gateway->content(%trans);
	}
    }
    #Check for required
    $gateway->required_fields(@{$required{$trans{'Tran_Type'}}});
    #Submit
    my( $page, $resp, %resp_headers) =
    $gateway->https_post( $gateway->get_fields( $gateway->fields ) );

    $gateway->response_code( $resp );
    $gateway->response_page( $page );
    $gateway->response_headers( \%resp_headers );
    #Get results
    my %results = map { s/\s*$//;
			my ($name, $value) = split '=', $_, 2;
                        $name  =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
                        $value =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
                        $name, $value;
                      } split '&', $page;
    #Parse results
    $gateway->avs_code( $results{ 'AVS_Code' } );
    $gateway->result_code( $results{ 'Proc_Resp' } );
    $gateway->order_number( $results{ 'Proc_ID' } );
    $gateway->authorization( $results{ 'Proc_Code' } );
    $gateway->error_message( $results{ 'Proc_Mess' } );

    #If type is Post Auth send Mark
    if ($results{ 'Proc_Resp' } eq "Approved" && $results{ 'Tran_Type' } eq "P"){
	#Setup mark transaction
	my %mark = $gateway->content();
	$mark{'Tran_Type'} = 'M';
	$mark{'order_number'} = $results{'Proc_ID'};
	$gateway->content(%mark);
	#Send mark
	my( $page, $resp, %resp_headers) =
	$gateway->https_post( $gateway->get_fields( $gateway->fields ) );

	$gateway->response_code( $resp );
	$gateway->response_page( $page );
	$gateway->response_headers( \%resp_headers );
	#Get results
	my %results = map { s/\s*$//;
		my ($name, $value) = split '=', $_, 2;
		$name  =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
		$value =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
		$name, $value;
	} split '&', $page;
    }
    #Set success
    if ($results{ 'Proc_Resp' } eq "Approved"){
        $gateway->is_success(1);
    } else {
        $gateway->is_success(0);
    }
}

sub fields {
	my $self = shift;
	my @fields = qw(
	  Syn_Act
	  Syn_Pwd
	  Tran_Type
	  Tran_Amt
	  Tran_Inv
	  Tran_CNum
	  Tran_Note
	  Card_Num
	  Card_Name
	  Card_Exp
	  AVS_Street
	  AVS_Zip
	  CVV_Num
	  Proc_ID
	);

	return @fields;
}

1;
__END__