From f0129cade2265fea564ea56cb7dbcd70cb4776f0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 23 Apr 2002 01:34:54 +0000
Subject: [PATCH] debugging information

---
 AuthorizeNet.pm | 13 +++++++++++--
 Changes         | 12 ++++++++++++
 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)"
+          );
+        }
     }
 }
 
diff --git a/Changes b/Changes
index 7fd8f73..8a1735b 100644
--- a/Changes
+++ b/Changes
@@ -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'},
 );
-- 
2.11.0