X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=fb686829065dbc9d4c4dd272d2618ae1a95a596f;hb=HEAD;hp=71015f776a8c1745a030643fdf6b8673069919dc;hpb=bae4cd5aaec29c73eeff2250ec21af5d46d2fe9d;p=Business-OnlinePayment-LinkPoint.git diff --git a/LinkPoint.pm b/LinkPoint.pm index 71015f7..fb68682 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,19 +1,13 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.25 2007-04-05 23:12:06 jeff Exp $ - use strict; use vars qw($VERSION @ISA $DEBUG @EXPORT @EXPORT_OK); use Carp qw(croak); -use AutoLoader; use Business::OnlinePayment; -require Exporter; - -@ISA = qw(Exporter AutoLoader Business::OnlinePayment); -@EXPORT = qw(); -@EXPORT_OK = qw(); -$VERSION = '0.06'; +@ISA = qw(Business::OnlinePayment); +$VERSION = '0.11'; +$VERSION = eval $VERSION; # modperlstyle: convert the string into a number $DEBUG = 0; use lpperl; #3; #lpperl.pm from LinkPoint @@ -46,6 +40,15 @@ sub map_fields { ); $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); } @@ -103,7 +106,7 @@ sub submit { unless ( $content{action} eq 'POSTAUTH' || ( $content{'action'} =~ /^(CREDIT|VOID)$/ && exists $content{'order_number'} ) - || $self->transaction_type() =~ /^check$/i + || $self->transaction_type() =~ /^e?check$/i ) { if ( $self->transaction_type() =~ @@ -121,7 +124,7 @@ sub submit { $month = '0'. $month if $month =~ /^\d$/; } - $content{'address'} =~ /^(\S+)\s/; + $content{'address'} =~ /^(\d+)\s/; my $addrnum = $1; my $result = $content{'result'}; @@ -132,10 +135,15 @@ sub submit { $result ||= 'LIVE'; } - #docs disagree with lpperl.pm here - $content{'voidcheck'} = 1 - if ($self->transaction_type() =~ /^check$/i - && $content{'action'} =~ /^VOID$/); + #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( host => \( $self->server ), @@ -143,14 +151,23 @@ sub submit { #storename => \( $self->storename ), configfile => \( $self->storename ), keyfile => \( $self->keyfile ), - addrnum => \$addrnum, + + 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, - chargetotal => 'amount', - oid => 'order_number', + bankname => 'bank_name', + bankstate => 'bank_state', routing => 'routing_code', account => 'account_number', accounttype => 'account_type', @@ -164,7 +181,7 @@ sub submit { 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) { + }elsif ($self->transaction_type() =~ /^e?check$/i) { push @required_fields, qw( dl dlstate routing account accounttype bankname bankstate name ); @@ -175,7 +192,7 @@ sub submit { host port configfile keyfile result chargetotal cardnumber cardexpmonth cardexpyear - name email phone addrnum city state zip country + name company email phone fax addrnum city state zip country oid dl dlstate routing account accounttype bankname bankstate name void @@ -183,6 +200,11 @@ sub submit { $post_data{'ordertype'} = $content{action}; + #docs disagree with lpperl.pm here + $post_data{'voidcheck'} = 1 + if $self->transaction_type() =~ /^e?check$/i + && $post_data{'ordertype'} =~ /^VOID$/; + if ( $content{'cvv2'} ) { $post_data{cvmindicator} = 'provided'; $post_data{cvmvalue} = $content{'cvv2'}; @@ -190,20 +212,31 @@ sub submit { if ( $DEBUG ) { warn "$_ => $post_data{$_}\n" foreach keys %post_data; + $post_data{debug} = 'true'; } - my %response; + $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); #} - %response = $lperl->curl_process(\%post_data); + my %response = $lperl->curl_process(\%post_data); if ( $DEBUG ) { warn "$_ => $response{$_}\n" for keys %response; } - if ( $response{'r_approved'} eq 'APPROVED' ) { + 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'}); @@ -212,7 +245,11 @@ sub submit { } else { $self->is_success(0); $self->result_code(''); - $self->error_message($response{'r_error'}); + if ( $response{'r_error'} =~ /\S/ ) { + $self->error_message($response{'r_error'}); + } else { + $self->error_message($response{'r_approved'}); # no r_error for checks + } } } @@ -267,8 +304,10 @@ 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. @@ -279,6 +318,10 @@ Versions 0.4 and on of this module support the LinkPoint Perl Wrapper version Ivan Kohler +Contributions from Mark D. Anderson + +Echeck work by Jeff Finucane + Based on Busienss::OnlinePayment::AuthorizeNet written by Jason Kohles. =head1 SEE ALSO