diff options
| author | ivan <ivan> | 2002-04-23 01:34:54 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-23 01:34:54 +0000 |
| commit | f0129cade2265fea564ea56cb7dbcd70cb4776f0 (patch) | |
| tree | 3302e1a6d0ffdff28e90cb1c9fd48b7b8ac3a40b | |
| parent | b80246e68a219a7812eef1150b66b2a9ecae2c1d (diff) | |
debugging information
| -rw-r--r-- | AuthorizeNet.pm | 13 | ||||
| -rw-r--r-- | Changes | 12 | ||||
| -rw-r--r-- | Makefile.PL | 5 |
3 files changed, 27 insertions, 3 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index b312a28..b8d6c4d 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,6 +1,6 @@ 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; @@ -13,7 +13,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '3.10'; +$VERSION = '3.11'; 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]); + 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)" + ); + } } } @@ -1,5 +1,17 @@ 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 diff --git a/Makefile.PL b/Makefile.PL index daa21a6..f6d8bd9 100644 --- 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 - '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'}, ); |