From 98c39a0ae9692556bf567e5f9cb8cc06f9393510 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 10 Jul 2008 01:50:48 +0000
Subject: [PATCH] more debugging

---
 IPPay.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/IPPay.pm b/IPPay.pm
index 00dffd5..f544718 100644
--- a/IPPay.pm
+++ b/IPPay.pm
@@ -11,7 +11,7 @@ use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
 $VERSION = '0.02';
-$DEBUG = 0;
+$DEBUG = 1;
 $me = 'Business::OnlinePayment::IPPay';
 
 sub set_defaults {
@@ -190,6 +190,11 @@ sub submit {
   my $transaction_id = $content{'order_number'};
   unless ($transaction_id) {
     my ($page, $server_response, %headers) = $self->https_get('dummy' => 1);
+    warn "fetched transaction id: (HTTPS response: $server_response) ".
+         "(HTTPS headers: ".
+         join(", ", map { "$_ => ". $headers{$_} } keys %headers ). ") ".
+         "(Raw HTTPS content: $page)"
+      if $DEBUG;
     return unless $server_response=~ /^200/;
     $transaction_id = $page;
   }
-- 
2.20.1