From 4c2d2e639d14092cdd13301565db5facf42ef9a8 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 2 Mar 2007 22:17:56 +0000
Subject: [PATCH] Trim the extra 'ip_addr="1.2.3.4"' added by
 eProcessingNetwork's AuthorizetNet compatability mode.

---
 AuthorizeNet.pm | 5 ++++-
 Changes         | 4 ++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index ea8869e..54f1514 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -12,7 +12,7 @@ require Exporter;
 @ISA = qw(Exporter Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '3.16';
+$VERSION = '3.17';
 
 sub set_defaults {
     my $self = shift;
@@ -209,6 +209,9 @@ sub submit {
     #escape NULL (binary 0x00) values
     $page =~ s/\x00/\^0/g;
 
+    #trim 'ip_addr="1.2.3.4"' added by eProcessingNetwork Authorize.Net compat
+    $page =~ s/,ip_addr="[\d\.]+"$//;
+
     my $csv = new Text::CSV_XS({ 'binary'=>1 });
     $csv->parse($page);
     my @col = $csv->fields();
diff --git a/Changes b/Changes
index 4bebcfc..599e3d2 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
 
+3.17  unreleased
+        - Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's
+          AuthorizetNet compatability mode.
+
 3.16  Tue Nov 14 02:35:30 PST 2006
 	- Update link to API docs, now it is called "Advanced Integration
 	  Method (AIM)"
-- 
2.11.0