projects
/
Business-OnlinePayment-BankOfAmerica.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b847ae
)
1.02 version can now parse BofA's new, incompatible settlement return
master
BUSINESS_ONLINEPAYMENT_BANKOFAMERICA_1_02
author
ivan
<ivan>
Tue, 19 Nov 2002 23:41:24 +0000
(23:41 +0000)
committer
ivan
<ivan>
Tue, 19 Nov 2002 23:41:24 +0000
(23:41 +0000)
BankOfAmerica.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
Makefile.PL
patch
|
blob
|
history
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);
diff --git
a/Changes
b/Changes
index
de927ac
..
6bfac9c
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::BankOfAmerica.
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
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
(file)
--- a/
Makefile.PL
+++ b/
Makefile.PL
@@
-4,10
+4,10
@@
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'Business::OnlinePayment::BankOfAmerica',
'VERSION_FROM' => 'BankOfAmerica.pm', # finds $VERSION
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
#'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'},
);
},
#'dist' => {CI => 'ci -l'},
);