X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=9b87643b19fec2c992ded1a39177990d05cb2b4e;hb=df2a10d5cef0fe6ee29286523c98ee8d72bff4c3;hp=17cab8e78deebb722b05fd3b2b32ff117d6e788b;hpb=905c3c508e85c7baf978bf5099142322d660e585;p=Business-OnlinePayment-LinkPoint.git diff --git a/LinkPoint.pm b/LinkPoint.pm index 17cab8e..9b87643 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,28 +1,34 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.5 2002-02-27 23:28:28 ivan Exp $ +# $Id: LinkPoint.pm,v 1.27 2007-04-07 00:01:29 jeff Exp $ use strict; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); +use vars qw($VERSION @ISA $DEBUG @EXPORT @EXPORT_OK); use Carp qw(croak); use AutoLoader; use Business::OnlinePayment; -use lperl; #lperl.pm from Linkpoint. - require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '0.02'; +$VERSION = '0.07'; +$DEBUG = 0; + +use lpperl; #3; #lpperl.pm from LinkPoint +$LPPERL::VERSION =~ /^(\d+\.\d+)/ + or die "can't parse lpperl.pm version: $LPPERL::VERSION"; +die "lpperl.pm minimum version 3 required\n" unless $1 >= 3; sub set_defaults { my $self = shift; #$self->server('staging.linkpt.net'); $self->server('secure.linkpt.net'); - $self->port('1139'); + $self->port('1129'); + + $self->build_subs(qw(order_number avs_code)); } @@ -32,13 +38,23 @@ sub map_fields { my %content = $self->content(); #ACTION MAP - my %actions = ('normal authorization' => 'ApproveSale', - 'authorization only' => 'CapturePayment', - 'credit' => 'ReturnOrder', - 'post authorization' => 'BillOrders', + my %actions = ('normal authorization' => 'SALE', + 'authorization only' => 'PREAUTH', + 'credit' => 'CREDIT', + 'post authorization' => 'POSTAUTH', + 'void' => 'VOID', ); $content{'action'} = $actions{lc($content{'action'})} || $content{'action'}; + #ACCOUNT TYPE MAP + my %account_types = ('personal checking' => 'pc', + 'personal savings' => 'ps', + 'business checking' => 'bc', + 'business savings' => 'bs', + ); + $content{'account_type'} = $account_types{lc($content{'account_type'})} + || $content{'account_type'}; + # stuff it back into %content $self->content(%content); } @@ -88,13 +104,16 @@ sub get_fields { sub submit { my($self) = @_; - $self->map_fields(); my %content = $self->content; my($month, $year); - unless ( $content{action} eq 'BillOrders' ) { + unless ( $content{action} eq 'POSTAUTH' + || ( $content{'action'} =~ /^(CREDIT|VOID)$/ + && exists $content{'order_number'} ) + || $self->transaction_type() =~ /^e?check$/i + ) { if ( $self->transaction_type() =~ /^(cc|visa|mastercard|american express|discover)$/i @@ -109,62 +128,101 @@ sub submit { ( $month, $year ) = ( $1, $2 ); $month = '0'. $month if $month =~ /^\d$/; - $year += 2000 if $year < 2000; #not y4k safe, oh shit } $content{'address'} =~ /^(\S+)\s/; my $addrnum = $1; - $self->server('staging.linkpt.net') if $self->test_transaction; + my $result = $content{'result'}; + if ( $self->test_transaction) { + $result ||= 'GOOD'; + #$self->server('staging.linkpt.net'); + } else { + $result ||= 'LIVE'; + } + + #docs disagree with lpperl.pm here + $content{'voidcheck'} = 1 + if ($self->transaction_type() =~ /^e?check$/i + && $content{'action'} =~ /^VOID$/); $self->revmap_fields( - hostname => \( $self->server ), + host => \( $self->server ), port => \( $self->port ), - storename => \( $self->storename ), + #storename => \( $self->storename ), + configfile => \( $self->storename ), keyfile => \( $self->keyfile ), addrnum => \$addrnum, - - cardNumber => 'card_number', - cardExpMonth => \$month, - cardExpYear => \$year, + result => \$result, + cardnumber => 'card_number', + cardexpmonth => \$month, + cardexpyear => \$year, + chargetotal => 'amount', + oid => 'order_number', + bankname => 'bank_name', + bankstate => 'bank_state', + routing => 'routing_code', + account => 'account_number', + accounttype => 'account_type', + name => 'account_name', + dl => 'state_id', + dlstate => 'state_id_state', ); - my $lperl = new LPERL - $self->lbin, - 'FILE', - $self->can('tmp') - ? $self->tmp - : '/tmp'; - my $action = $content{action}; + my $lperl = new LPPERL; - $self->required_fields(qw/ - hostname port storename keyfile amount cardNumber cardExpMonth cardExpYear - /); + my @required_fields = qw(host port configfile keyfile amount); + if ($self->transaction_type() =~ /^(cc|visa|mastercard|american express|discover)$/i) { + push @required_fields, qw(cardnumber cardexpmonth cardexpyear); + }elsif ($self->transaction_type() =~ /^e?check$/i) { + push @required_fields, qw( + dl dlstate routing account accounttype bankname bankstate name + ); + } + $self->required_fields(@required_fields); my %post_data = $self->get_fields(qw/ - hostname port storename keyfile + host port configfile keyfile result - amount cardNumber cardExpMonth cardExpYear - name email phone address city state zip country + chargetotal cardnumber cardexpmonth cardexpyear + name email phone addrnum city state zip country + oid + dl dlstate routing account accounttype bankname bankstate name void + /); - #print "$_ => $post_data{$_}\n" foreach keys %post_data; + $post_data{'ordertype'} = $content{action}; + + if ( $content{'cvv2'} ) { + $post_data{cvmindicator} = 'provided'; + $post_data{cvmvalue} = $content{'cvv2'}; + } + + if ( $DEBUG ) { + warn "$_ => $post_data{$_}\n" foreach keys %post_data; + } my %response; - { - local($^W)=0; - %response = $lperl->$action(\%post_data); + #{ + # local($^W)=0; + # %response = $lperl->$action(\%post_data); + #} + %response = $lperl->curl_process(\%post_data); + + if ( $DEBUG ) { + warn "$_ => $response{$_}\n" for keys %response; } - if ( $response{'statusCode'} == 0 ) { + if ( $response{'r_approved'} eq 'APPROVED' ) { + $self->is_success(1); + $self->result_code($response{'r_code'}); + $self->authorization($response{'r_ref'}); + $self->order_number($response{'r_ordernum'}); + $self->avs_code($response{'r_avs'}); + } else { $self->is_success(0); $self->result_code(''); - $self->error_message($response{'statusMessage'}); - } else { - $self->is_success(1); - $self->result_code($response{'AVCCode'}); - $self->authorization($response{'trackingID'}); -# $self->order_number($response{'neworderID'}); + $self->error_message($response{'r_error'}); } } @@ -174,7 +232,7 @@ __END__ =head1 NAME -Business::OnlinePayment::LinkPoint - LinkPoint backend for Business::OnlinePayment +Business::OnlinePayment::LinkPoint - LinkPoint (Cardservice) backend for Business::OnlinePayment =head1 SYNOPSIS @@ -183,8 +241,6 @@ Business::OnlinePayment::LinkPoint - LinkPoint backend for Business::OnlinePayme my $tx = new Business::OnlinePayment( 'LinkPoint', 'storename' => 'your_store_number', 'keyfile' => '/path/to/keyfile.pem', - 'lbin' => '/path/to/binary/lbin', - 'tmp' => '/secure/tmp', # a secure tmp directory ); $tx->content( @@ -224,6 +280,9 @@ For detailed information see L. This module implements an interface to the LinkPoint Perl Wrapper http://www.linkpoint.com/product_solutions/internet/lperl/lperl_main.html +Versions 0.4 and on of this module support the LinkPoint Perl Wrapper version +3.5. + =head1 BUGS =head1 AUTHOR @@ -234,7 +293,7 @@ Based on Busienss::OnlinePayment::AuthorizeNet written by Jason Kohles. =head1 SEE ALSO -perl(1). L. +perl(1), L. =cut