diff options
Diffstat (limited to 'AuthorizeNet')
| -rw-r--r-- | AuthorizeNet/AIM.pm | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/AuthorizeNet/AIM.pm b/AuthorizeNet/AIM.pm index 5324e51..2906079 100644 --- a/AuthorizeNet/AIM.pm +++ b/AuthorizeNet/AIM.pm @@ -229,9 +229,33 @@ sub submit { $post_data{'x_Email_Customer'} = 'FALSE'; } + my $data_string = join("", values %post_data); + + my $encap_character; + # The first set of characters here are recommended by authorize.net in their + # encapsulating character example. + # The second set we made up hoping they will work if the first fail. + # The third chr(31) is the binary 'unit separator' and is our final last + # ditch effort to find something not in the input. + foreach my $char( qw( | " ' : ; / \ - * ), '#', qw( ^ + < > [ ] ~), chr(31) ){ + if( index($data_string, $char) == -1 ){ # found one. + $encap_character = $char; + last; + } + } + + if(!$encap_character){ + $self->is_success(0); + $self->error_message( + "DEBUG: Input contains all encapsulating characters." + . " Please remove | or ^ from your input if possible." + ); + return; + } + $post_data{'x_ADC_Delim_Data'} = 'TRUE'; $post_data{'x_delim_char'} = ','; - $post_data{'x_encap_char'} = '"'; + $post_data{'x_encap_char'} = $encap_character; $post_data{'x_ADC_URL'} = 'FALSE'; $post_data{'x_Version'} = '3.1'; @@ -247,7 +271,7 @@ sub submit { #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, escape_char=>'' }); + my $csv = new Text::CSV_XS({ binary=>1, escape_char=>'', quote_char => $encap_character }); $csv->parse($page); my @col = $csv->fields(); |