X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=fb686829065dbc9d4c4dd272d2618ae1a95a596f;hb=967599557573f4156cfba579b6a7bb9b28411c54;hp=e798e1867e60dcca76fbfae44e56ae3f400fd1f0;hpb=e44f8d230f339e79764d3d482c5cbe90c253f06d;p=Business-OnlinePayment-LinkPoint.git diff --git a/LinkPoint.pm b/LinkPoint.pm index e798e18..fb68682 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,23 +1,18 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.16 2004-06-24 14:57:25 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; -require Exporter; - -@ISA = qw(Exporter AutoLoader Business::OnlinePayment); -@EXPORT = qw(); -@EXPORT_OK = qw(); -$VERSION = '0.04'; +@ISA = qw(Business::OnlinePayment); +$VERSION = '0.11'; +$VERSION = eval $VERSION; # modperlstyle: convert the string into a number +$DEBUG = 0; -use lpperl; #3; #lperl.pm from LinkPoint +use lpperl; #3; #lpperl.pm from LinkPoint $LPPERL::VERSION =~ /^(\d+\.\d+)/ - or die "can't parse lperl.pm version: $LPPERL::VERSION"; + or die "can't parse lpperl.pm version: $LPPERL::VERSION"; die "lpperl.pm minimum version 3 required\n" unless $1 >= 3; sub set_defaults { @@ -27,6 +22,8 @@ sub set_defaults { $self->server('secure.linkpt.net'); $self->port('1129'); + $self->build_subs(qw(order_number avs_code)); + } sub map_fields { @@ -43,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); } @@ -97,7 +103,11 @@ sub submit { my %content = $self->content; my($month, $year); - unless ( $content{action} eq 'POSTAUTH' ) { + 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 @@ -112,10 +122,9 @@ 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; my $result = $content{'result'}; @@ -126,58 +135,121 @@ sub submit { $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( host => \( $self->server ), port => \( $self->port ), #storename => \( $self->storename ), configfile => \( $self->storename ), keyfile => \( $self->keyfile ), - addrnum => \$addrnum, - result => \$result, - 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 LPPERL; - $self->required_fields(qw/ - host port configfile 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/ host port configfile keyfile result - chargetotal cardNumber cardExpMonth cardExpYear - name email phone addrnum 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 + /); - $post_data{'order_type'} = $content{action}; + $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'}; } - warn "$_ => $post_data{$_}\n" foreach keys %post_data; + 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; + #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'}); $self->order_number($response{'r_ordernum'}); + $self->avs_code($response{'r_avs'}); } 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 + } } } @@ -232,11 +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 -Version 0.4 of this module has been updated for the LinkPoint Perl Wrapper -version 3.5. +Versions 0.4 and on of this module support the LinkPoint Perl Wrapper version +3.5. =head1 BUGS @@ -244,6 +318,10 @@ version 3.5. Ivan Kohler +Contributions from Mark D. Anderson + +Echeck work by Jeff Finucane + Based on Busienss::OnlinePayment::AuthorizeNet written by Jason Kohles. =head1 SEE ALSO