X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=fb686829065dbc9d4c4dd272d2618ae1a95a596f;hb=HEAD;hp=22815c3a8f5410b4796789f23737a6be99f09b47;hpb=7df405a3c1d9d667265a03cf5a7a520380a5bc9d;p=Business-OnlinePayment-LinkPoint.git diff --git a/LinkPoint.pm b/LinkPoint.pm index 22815c3..fb68682 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,28 +1,28 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.4 2002-02-27 22:16:08 ivan 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(Business::OnlinePayment); +$VERSION = '0.11'; +$VERSION = eval $VERSION; # modperlstyle: convert the string into a number +$DEBUG = 0; -@ISA = qw(Exporter AutoLoader Business::OnlinePayment); -@EXPORT = qw(); -@EXPORT_OK = qw(); -$VERSION = '0.02'; +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 +32,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 +98,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,58 +122,134 @@ 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/; + $content{'address'} =~ /^(\d+)\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'; + } + + #strip phone numbers of non-digits for ACH/echeck + #as per undocumented suggestion from LinkPoint + if ( $self->transaction_type =~ /^e?check$/i ) { + foreach my $field (qw( phone fax )) { + $content{$field} =~ s/\D//g; + } + } + # stuff it back into %content + $self->content(%content); $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, + chargetotal => 'amount', + result => \$result, + addrnum => \$addrnum, + oid => 'order_number', + ip => 'customer_ip', + userid => 'customer_id', + ponumber => 'invoice_number', + comments => 'description', + #reference_number => 'reference_number', + + cardnumber => 'card_number', + cardexpmonth => \$month, + cardexpyear => \$year, + + 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 company email phone fax 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}; - my %response = $lperl->$action(\%post_data); + #docs disagree with lpperl.pm here + $post_data{'voidcheck'} = 1 + if $self->transaction_type() =~ /^e?check$/i + && $post_data{'ordertype'} =~ /^VOID$/; - if ( $response{'statusCode'} == 0 ) { + if ( $content{'cvv2'} ) { + $post_data{cvmindicator} = 'provided'; + $post_data{cvmvalue} = $content{'cvv2'}; + } + + if ( $DEBUG ) { + warn "$_ => $post_data{$_}\n" foreach keys %post_data; + $post_data{debug} = 'true'; + } + + $post_data{'cargs'} = '-k -m 300 -s -S'; #if $self->test_transaction; + + # avoid some uninitialized warnings in lpperl.pm + foreach (qw(webspace debug debugging)) { $post_data{$_} ||= '' } + + #my %response; + #{ + # local($^W)=0; + # %response = $lperl->$action(\%post_data); + #} + my %response = $lperl->curl_process(\%post_data); + + if ( $DEBUG ) { + warn "$_ => $response{$_}\n" for keys %response; + } + + if ( $response{'r_approved'} eq 'APPROVED' + or ( $self->transaction_type() =~ /^e?check$/i + && $response{'r_approved'} eq 'SUBMITTED' + ) + ) + { + $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'}); + if ( $response{'r_error'} =~ /\S/ ) { + $self->error_message($response{'r_error'}); + } else { + $self->error_message($response{'r_approved'}); # no r_error for checks + } } } @@ -170,7 +259,7 @@ __END__ =head1 NAME -Business::OnlinePayment::LinkPoint - LinkPoint backend for Business::OnlinePayment +Business::OnlinePayment::LinkPoint - LinkPoint (Cardservice) backend for Business::OnlinePayment =head1 SYNOPSIS @@ -179,8 +268,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( @@ -217,8 +304,13 @@ For detailed information see L. =head1 COMPATIBILITY -This module implements an interface to the LinkPoint Perl Wrapper +This module implements an interface to the LinkPoint Perl Wrapper "lpperl", +which you need to download and install separately. http://www.linkpoint.com/product_solutions/internet/lperl/lperl_main.html +http://www.linkpoint.com/viewcart/down_index.htm + +Versions 0.4 and on of this module support the LinkPoint Perl Wrapper version +3.5. =head1 BUGS @@ -226,11 +318,15 @@ http://www.linkpoint.com/product_solutions/internet/lperl/lperl_main.html Ivan Kohler +Contributions from Mark D. Anderson + +Echeck work by Jeff Finucane + Based on Busienss::OnlinePayment::AuthorizeNet written by Jason Kohles. =head1 SEE ALSO -perl(1). L. +perl(1), L. =cut