diff options
| author | ivan <ivan> | 2002-11-19 23:41:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-11-19 23:41:24 +0000 |
| commit | 78429ceb2371b6391925008c697f0757db085a7b (patch) | |
| tree | 34d1a75eb595db448303caafc72c47307a9243c7 | |
| parent | 2b847ae10c7b42b9207fddb94579c7f67bf9a004 (diff) | |
1.02 version can now parse BofA's new, incompatible settlement returnHEADBUSINESS_ONLINEPAYMENT_BANKOFAMERICA_1_02master
| -rw-r--r-- | BankOfAmerica.pm | 28 | ||||
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | Makefile.PL | 6 |
3 files changed, 23 insertions, 14 deletions
diff --git a/BankOfAmerica.pm b/BankOfAmerica.pm index 23ca8c9..8eeac99 100644 --- a/BankOfAmerica.pm +++ b/BankOfAmerica.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::BankOfAmerica; -# $Id: BankOfAmerica.pm,v 1.2 2002-08-14 01:01:16 ivan Exp $ +# $Id: BankOfAmerica.pm,v 1.3 2002-11-19 23:41:24 ivan Exp $ use strict; use Carp qw(croak); @@ -14,7 +14,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '1.01'; +$VERSION = '1.02'; sub set_defaults { my $self = shift; @@ -162,8 +162,8 @@ sub submit { my %post_data = $self->get_fields( @fields ); - warn "$_ => $post_data{$_}\n" for keys %post_data; - warn "\n"; +# warn "$_ => $post_data{$_}\n" for keys %post_data; +# warn "\n"; my $pd = make_form(%post_data); my $s = $self->server(); my $p = $self->port(); @@ -174,17 +174,23 @@ sub submit { my %response; if ( $action eq 'post authorization' ) { - $page =~ s/<HTML>.*//s; - $page =~ s/\n+$//; - %response = - map { /^(\w+)\=(.*)$/ or /^()()$/ or die $_; lc($1) => $2 } - split(/\r/, $page); +# warn $page; + #$page =~ s/<HTML>.*//s; + #$page =~ s/\n+$//g; + $page =~ s/\r//g; + %response = + map { /^(\w+)\=(.*)$/ or /^()()$/ or die "unparsable response: $_"; + lc($1) => $2 } + #split(/\r/, $page); + split(/\n/, $page); } else { %response = - map { /^(\w+)\=(.*)$/ or die $_; lc($1) => $2 } split(/\<BR\>/i, $page); + map { /^(\w+)\=(.*)$/ or die "unparsable response: $_"; + lc($1) => $2 } + split(/\<BR\>/i, $page); } - warn "$_ => $response{$_}\n" for keys %response; + #warn "$_ => $response{$_}\n" for keys %response; $self->server_response($page); @@ -1,5 +1,8 @@ Revision history for Perl extension Business::OnlinePayment::BankOfAmerica. +1.02 Tue Nov 19 15:40:05 2002 + - update for new incompatible BofA settlement return + 1.01 Tue Aug 13 18:00:25 2002 - update README - declare dependancy on Business::OnlinePayment diff --git a/Makefile.PL b/Makefile.PL index 2f2ada7..db1ef2a 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -4,10 +4,10 @@ use ExtUtils::MakeMaker; WriteMakefile( 'NAME' => 'Business::OnlinePayment::BankOfAmerica', 'VERSION_FROM' => 'BankOfAmerica.pm', # finds $VERSION - 'AUTHOR' => 'Ivan Kohler <ivan-authorizenet@420.am>', + 'AUTHOR' => 'Ivan Kohler <ivan-bankofamerica@420.am>', #'NORECURS' => 1, # dont descend into subdirectories - 'PREREQ_PM' => { 'Net::SSLeay' => 0, - 'Business::OnlinePayment' => 0, + 'PREREQ_PM' => { 'Net::SSLeay' => '0', + 'Business::OnlinePayment' => '0', }, #'dist' => {CI => 'ci -l'}, ); |