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);
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '1.01';
+$VERSION = '1.02';
sub set_defaults {
my $self = shift;
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 %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);
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
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'},
);