X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=IPPay.pm;h=496048364f5458e31f53a3faf02f0462e625a6fc;hb=a5b53c10d1014b408075e2fe1cc31ea4042ecafc;hp=771d5e30de36f6886f8f68fff1bd93dafc8719c6;hpb=18935a05828a0a5afd3ae11c78905754dbaeedb2;p=Business-OnlinePayment-IPPay.git diff --git a/IPPay.pm b/IPPay.pm index 771d5e3..4960483 100644 --- a/IPPay.pm +++ b/IPPay.pm @@ -5,23 +5,50 @@ use Carp; use Tie::IxHash; use XML::Simple; use XML::Writer; +use Locale::Country; use Business::OnlinePayment; use Business::OnlinePayment::HTTPS; use vars qw($VERSION $DEBUG @ISA $me); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.03'; +$VERSION = '0.08'; +$VERSION = eval $VERSION; # modperlstyle: convert the string into a number + $DEBUG = 0; $me = 'Business::OnlinePayment::IPPay'; +sub _info { + { + 'info_version' => '0.01', + 'module_version' => $VERSION, + 'supported_types' => [ qw( CC ECHECK ) ], + 'supported_actions' => { 'CC' => [ + 'Normal Authorization', + 'Authorization Only', + 'Post Authorization', + 'Void', + 'Credit', + 'Reverse Authorization', + ], + 'ECHECK' => [ + 'Normal Authorization', + 'Void', + 'Credit', + ], + }, + 'CC_void_requires_card' => 1, + 'ECHECK_void_requires_account' => 1, + }; +} + sub set_defaults { my $self = shift; my %opts = @_; # standard B::OP methods/data - $self->server('gateway17.jetpay.com') unless $self->server; + $self->server('gtwy.ippay.com') unless $self->server; $self->port('443') unless $self->port; - $self->path('/jetpay') unless $self->path; + $self->path('/ippay') unless $self->path; $self->build_subs(qw( order_number avs_code cvv2_response response_page response_code response_headers @@ -63,6 +90,7 @@ sub map_fields { ( 'normal authorization' => 'SALE', 'authorization only' => 'AUTHONLY', 'post authorization' => 'CAPT', + 'reverse authorization' => 'REVERSEAUTH', 'void' => 'VOID', 'credit' => 'CREDIT', ); @@ -71,20 +99,25 @@ sub map_fields { 'void' => 'VOIDACH', 'credit' => 'REVERSAL', ); + if ($self->transaction_type eq 'CC') { $content{'TransactionType'} = $actions{$action} || $action; - }elsif ($self->transaction_type eq 'ECHECK') { - $content{'TransactionType'} = $check_actions{$action} || $action; - } + } elsif ($self->transaction_type eq 'ECHECK') { + $content{'TransactionType'} = $check_actions{$action} || $action; - # ACCOUNT TYPE MAP - my %account_types = ('personal checking' => 'Checking', - 'personal savings' => 'Savings', - 'business checking' => 'BusinessCk', - ); - $content{'account_type'} = $account_types{lc($content{'account_type'})} - || $content{'account_type'}; + # ACCOUNT TYPE MAP + my %account_types = ('personal checking' => 'CHECKING', + 'personal savings' => 'SAVINGS', + 'business checking' => 'CHECKING', + 'business savings' => 'SAVINGS', + #not technically B:OP valid i guess? + 'checking' => 'CHECKING', + 'savings' => 'SAVINGS', + ); + $content{'account_type'} = $account_types{lc($content{'account_type'})} + || $content{'account_type'}; + } $content{Origin} = 'RECURRING' if ($content{recurring_billing} &&$content{recurring_billing} eq 'YES' ); @@ -163,6 +196,8 @@ sub submit { }elsif ( $action eq 'post authorization' && $type eq 'CC') { push @required_fields, qw( order_number ); + }elsif ( $action eq 'reverse authorization' && $type eq 'CC') { + push @required_fields, qw( order_number card_number expiration amount ); }elsif ( $action eq 'void') { push @required_fields, qw( order_number amount ); @@ -183,14 +218,19 @@ sub submit { foreach ( keys ( %{($self->{_defaults})} ) ) { $content{$_} = $self->{_defaults}->{$_} unless exists($content{$_}); } + if ($self->test_transaction()) { + $content{'login'} = 'TESTTERMINAL'; + } $self->content(%content); $self->required_fields(@required_fields); - if ($self->test_transaction()) { - $self->server('test1.jetpay.com'); - $self->port('443'); - $self->path('/jetpay'); + #quick validation because ippay dumps an error indecipherable to the end user + if (grep { /^routing_code$/ } @required_fields) { + unless( $content{routing_code} =~ /^\d{9}$/ ) { + $self->_error_response('Invalid routing code'); + return; + } } my $transaction_id = $content{'order_number'}; @@ -222,8 +262,31 @@ sub submit { my $terminalid = $content{login} if $type eq 'CC'; my $merchantid = $content{login} if $type eq 'ECHECK'; + my $country = country2code( $content{country}, LOCALE_CODE_ALPHA_3 ); + $country = country_code2code( $content{country}, + LOCALE_CODE_ALPHA_2, + LOCALE_CODE_ALPHA_3 + ) + unless $country; + $country = $content{country} + unless $country; + $country = uc($country) if $country; + + my $ship_country = + country2code( $content{ship_country}, LOCALE_CODE_ALPHA_3 ); + $ship_country = country_code2code( $content{ship_country}, + LOCALE_CODE_ALPHA_2, + LOCALE_CODE_ALPHA_3 + ) + unless $ship_country; + $ship_country = $content{ship_country} + unless $ship_country; + $ship_country = uc($ship_country) if $ship_country; + tie my %ach, 'Tie::IxHash', $self->revmap_fields( + #wtf, this is a "Type"" attribute of the ACH element, + # not a child element like the others #AccountType => 'account_type', AccountNumber => 'account_number', ABA => 'routing_code', @@ -240,7 +303,7 @@ sub submit { Address => 'ship_address', City => 'ship_city', StateProv => 'ship_state', - Country => 'ship_country', + Country => \$ship_country, Phone => 'ship_phone', ); @@ -250,10 +313,11 @@ sub submit { Address => 'address', City => 'city', StateProv => 'state', - Country => 'country', + Country => \$country, Phone => 'phone', ); } + delete $shippingaddr{Country} unless $shippingaddr{Country}; tie my %shippinginfo, 'Tie::IxHash', $self->revmap_fields( @@ -295,7 +359,7 @@ sub submit { BillingCity => 'city', BillingStateProv => 'state', BillingPostalCode => 'zip', - BillingCountry => 'country', + BillingCountry => \$country, BillingPhone => 'phone', Email => 'email', UserIPAddr => 'customer_ip', @@ -307,6 +371,7 @@ sub submit { IndustryInfo => \%industryinfo, ShippingInfo => \%shippinginfo, ); + delete $req{BillingCountry} unless $req{BillingCountry}; my $post_data; my $writer = new XML::Writer( OUTPUT => \$post_data, @@ -334,7 +399,7 @@ sub submit { if ( exists($response->{ActionCode}) && !exists($response->{ErrMsg})) { $self->error_message($response->{ResponseText}); }else{ - $self->error_message($response->{Errmsg}); + $self->error_message($response->{ErrMsg}); } # }else{ # $self->error_message("Server Failed"); @@ -361,9 +426,29 @@ sub submit { } +sub _error_response { + my ($self, $error_message) = (shift, shift); + $self->result_code(''); + $self->order_number(''); + $self->authorization(''); + $self->cvv2_response(''); + $self->avs_code(''); + $self->is_success( 0); + $self->error_message($error_message); +} + sub _xmlwrite { my ($self, $writer, $item, $value) = @_; - $writer->startTag($item); + + my %att = (); + if ( $item eq 'ACH' ) { + $att{'Type'} = $self->{_content}->{'account_type'} + if $self->{_content}->{'account_type'}; #necessary so we don't pass empty? + $att{'SEC'} = 'PPD'; + } + + $writer->startTag($item, %att); + if ( ref( $value ) eq 'HASH' ) { foreach ( keys ( %$value ) ) { $self->_xmlwrite($writer, $_, $value->{$_}); @@ -371,10 +456,12 @@ sub _xmlwrite { }else{ $writer->characters($value); } + $writer->endTag($item); } 1; + __END__ =head1 NAME @@ -452,6 +539,7 @@ The following actions are valid normal authorization authorization only + reverse authorization post authorization credit void @@ -493,7 +581,7 @@ from content(%content): BillingCity => 'city', BillingStateProv => 'state', BillingPostalCode => 'zip', - BillingCountry => 'country', + BillingCountry => 'country', # forced to ISO-3166-alpha-3 BillingPhone => 'phone', Email => 'email', UserIPAddr => 'customer_ip', @@ -512,21 +600,27 @@ from content(%content): Address => 'ship_address', City => 'ship_city', StateProv => 'ship_state', - Country => 'ship_country', + Country => 'ship_country', # forced to ISO-3166-alpha-3 Phone => 'ship_phone', =head1 NOTE =head1 COMPATIBILITY +Version 0.07 changes the server name and path for IPPay's late 2012 update. + Business::OnlinePayment::IPPay uses IPPay XML Product Specifications version 1.1.2. See http://www.ippay.com/ for more information. -=head1 AUTHOR +=head1 AUTHORS + +Original author: Jeff Finucane + +Current maintainer: Ivan Kohler -Jeff Finucane, ippay@weasellips.com +Reverse Authorization patch from dougforpres =head1 SEE ALSO