package Business::OnlinePayment::BankOfAmerica;
-# $Id: BankOfAmerica.pm,v 1.1 2001-09-26 03:33:32 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.00';
+$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);
Ivan Kohler <ivan-bofa@420.am>
-Based on Businss::OnlinePayment::AuthorizeNet written by Jason Kohles.
+Based on Business::OnlinePayment::AuthorizeNet written by Jason Kohles.
=head1 SEE ALSO