X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=BankOfAmerica.pm;h=8eeac99d18e25f85265a146bbc0ba49250e219bf;hb=78429ceb2371b6391925008c697f0757db085a7b;hp=23ca8c9cc9b43c44b6bdd95bdbc8d4cfc4c15632;hpb=2b847ae10c7b42b9207fddb94579c7f67bf9a004;p=Business-OnlinePayment-BankOfAmerica.git 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/.*//s; - $page =~ s/\n+$//; - %response = - map { /^(\w+)\=(.*)$/ or /^()()$/ or die $_; lc($1) => $2 } - split(/\r/, $page); +# warn $page; + #$page =~ s/.*//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(/\/i, $page); + map { /^(\w+)\=(.*)$/ or die "unparsable response: $_"; + lc($1) => $2 } + split(/\/i, $page); } - warn "$_ => $response{$_}\n" for keys %response; + #warn "$_ => $response{$_}\n" for keys %response; $self->server_response($page);