diff options
Diffstat (limited to 'AuthorizeNet.pm')
| -rw-r--r-- | AuthorizeNet.pm | 13 |
1 files changed, 11 insertions, 2 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)" + ); + } } } |