projects
/
Business-OnlinePayment-BankOfAmerica.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.02 version can now parse BofA's new, incompatible settlement return
[Business-OnlinePayment-BankOfAmerica.git]
/
BankOfAmerica.pm
diff --git
a/BankOfAmerica.pm
b/BankOfAmerica.pm
index
23ca8c9
..
8eeac99
100644
(file)
--- a/
BankOfAmerica.pm
+++ b/
BankOfAmerica.pm
@@
-1,6
+1,6
@@
package Business::OnlinePayment::BankOfAmerica;
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);
use strict;
use Carp qw(croak);
@@
-14,7
+14,7
@@
require Exporter;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '1.0
1
';
+$VERSION = '1.0
2
';
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-162,8
+162,8
@@
sub submit {
my %post_data = $self->get_fields( @fields );
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();
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' ) {
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 =
} 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);
$self->server_response($page);