projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b80246e
)
debugging information
author
ivan
<ivan>
Tue, 23 Apr 2002 01:34:54 +0000
(
01:34
+0000)
committer
ivan
<ivan>
Tue, 23 Apr 2002 01:34:54 +0000
(
01:34
+0000)
AuthorizeNet.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
Makefile.PL
patch
|
blob
|
history
diff --git
a/AuthorizeNet.pm
b/AuthorizeNet.pm
index
b312a28
..
b8d6c4d
100644
(file)
--- a/
AuthorizeNet.pm
+++ b/
AuthorizeNet.pm
@@
-1,6
+1,6
@@
package Business::OnlinePayment::AuthorizeNet;
package Business::OnlinePayment::AuthorizeNet;
-# $Id: AuthorizeNet.pm,v 1.
6 2002-03-13 16:11:55
ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.
7 2002-04-23 01:34:54
ivan Exp $
use strict;
use Business::OnlinePayment;
use strict;
use Business::OnlinePayment;
@@
-13,7
+13,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 = '3.1
0
';
+$VERSION = '3.1
1
';
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-154,6
+154,15
@@
sub submit {
$self->is_success(0);
$self->result_code($col[2]);
$self->error_message($col[3]);
$self->is_success(0);
$self->result_code($col[2]);
$self->error_message($col[3]);
+ unless ( $self->result_code() ) { #additional logging information
+ $self->error_message($col[3].
+ " DEBUG: No x_response_code from server, ".
+ "(HTTPS response: $server_response) ".
+ "(HTTPS headers: ".
+ join(", ", map { "$_ => ". $headers{$_} } keys %headers ). ") "
+ "(Raw HTTPS content: $page)"
+ );
+ }
}
}
}
}
diff --git
a/Changes
b/Changes
index
7fd8f73
..
8a1735b
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,17
@@
Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
+3.11 unreleased
+ - forgot 3.10 changelog in 3.10 :)
+ - extremely verbose debugging information for responses without
+ response code
+ - PREREQ_PM on Business::OnlinePayment
+
+3.10 Wed Mar 13 2002
+ - updated for Authorize.Net API 3.1
+ - enable t/credit_card.t test again; testing account seems to work
+ - working Post Authorization support
+ - s/CSV/CSV_XS/
+
3.01 Wed Nov 14 13:42:06 2001
- update README
- disable t/credit_card.t test; testdrive account no longer valid
3.01 Wed Nov 14 13:42:06 2001
- update README
- disable t/credit_card.t test; testdrive account no longer valid
diff --git
a/Makefile.PL
b/Makefile.PL
index
daa21a6
..
f6d8bd9
100644
(file)
--- a/
Makefile.PL
+++ b/
Makefile.PL
@@
-7,6
+7,9
@@
WriteMakefile(
'AUTHOR' => 'Ivan Kohler <ivan-authorizenet@420.am>', #really just
#the maintainer
#'NORECURS' => 1, # dont descend into subdirectories
'AUTHOR' => 'Ivan Kohler <ivan-authorizenet@420.am>', #really just
#the maintainer
#'NORECURS' => 1, # dont descend into subdirectories
- 'PREREQ_PM' => {'Net::SSLeay' => 0, 'Text::CSV_XS' => 0},
+ 'PREREQ_PM' => { 'Net::SSLeay' => 0,
+ 'Text::CSV_XS' => 0
+ 'Business::OnlinePayment' => 0,
+ },
#'dist' => {CI => 'ci -l'},
);
#'dist' => {CI => 'ci -l'},
);