projects
/
Business-OnlinePayment-IPPay.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
92884f8
)
more debugging
author
jeff
<jeff>
Thu, 10 Jul 2008 01:50:48 +0000
(
01:50
+0000)
committer
jeff
<jeff>
Thu, 10 Jul 2008 01:50:48 +0000
(
01:50
+0000)
IPPay.pm
patch
|
blob
|
history
diff --git
a/IPPay.pm
b/IPPay.pm
index
00dffd5
..
f544718
100644
(file)
--- 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';
@ISA = qw(Business::OnlinePayment::HTTPS);
$VERSION = '0.02';
-$DEBUG =
0
;
+$DEBUG =
1
;
$me = 'Business::OnlinePayment::IPPay';
sub set_defaults {
$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);
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;
}
return unless $server_response=~ /^200/;
$transaction_id = $page;
}