X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=71015f776a8c1745a030643fdf6b8673069919dc;hb=bae4cd5aaec29c73eeff2250ec21af5d46d2fe9d;hp=b0c496a1bc9eb1386d9a40b6e774c84ae9c41cbe;hpb=06998e5ef79d410d5a553a03a39bba20904aa489;p=Business-OnlinePayment-LinkPoint.git diff --git a/LinkPoint.pm b/LinkPoint.pm index b0c496a..71015f7 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,28 +1,34 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.7 2003-03-31 20:41:56 ivan Exp $ +# $Id: LinkPoint.pm,v 1.25 2007-04-05 23:12:06 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.06'; +$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,10 +38,11 @@ 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'}; @@ -88,13 +95,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() =~ /^check$/i + ) { if ( $self->transaction_type() =~ /^(cc|visa|mastercard|american express|discover)$/i @@ -109,68 +119,100 @@ 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() =~ /^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', + 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() =~ /^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(''); - if ( exists($response{'statusMessage'}) - && defined($response{'statusMessage'}) ) { # "normal" error - $self->error_message($response{'statusMessage'}); - } else { # "should not happen" error (should this die/croak?) - $self->error_message("No statusMessage returned! Response follows:". - join(' / ', map { "$_=>".$response{$_} } keys %response ) ); - } - } 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'}); } } @@ -180,7 +222,7 @@ __END__ =head1 NAME -Business::OnlinePayment::LinkPoint - LinkPoint backend for Business::OnlinePayment +Business::OnlinePayment::LinkPoint - LinkPoint (Cardservice) backend for Business::OnlinePayment =head1 SYNOPSIS @@ -189,8 +231,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( @@ -230,6 +270,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