diff options
| -rw-r--r-- | AuthorizeNet.pm | 14 | ||||
| -rw-r--r-- | Changes | 1 |
2 files changed, 12 insertions, 3 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 028b6d8..8a389b9 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,11 +1,11 @@ package Business::OnlinePayment::AuthorizeNet; -# $Id: AuthorizeNet.pm,v 1.11 2002-07-31 14:38:17 ivan Exp $ +# $Id: AuthorizeNet.pm,v 1.12 2002-08-03 21:20:51 ivan Exp $ use strict; use Carp; use Business::OnlinePayment; -use Net::SSLeay qw/make_form post_https/; +use Net::SSLeay qw/make_form post_https make_headers/; use Text::CSV_XS; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -49,6 +49,10 @@ sub map_fields { $content{'type'} = $types{lc($content{'type'})} || $content{'type'}; $self->transaction_type($content{'type'}); + $content{'referer'} = defined( $content{'referer'} ) + ? make_headers( 'Referer' => $content{'referer'} ) + : ""; + # stuff it back into %content $self->content(%content); } @@ -141,7 +145,8 @@ sub submit { my $s = $self->server(); my $p = $self->port(); my $t = $self->path(); - my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd); + my $r = $self->{_content}->{referer}; + my($page,$server_response,%headers) = post_https($s,$p,$t,$r,$pd); #escape NULL (binary 0x00) values $page =~ s/\x00/\^0/g; @@ -202,6 +207,7 @@ Business::OnlinePayment::AuthorizeNet - AuthorizeNet backend for Business::Onlin card_number => '4007000000027', expiration => '09/02', cvv2 => '1234', #optional + referer => 'http://valid.referer.url/', ); $tx->submit(); @@ -263,6 +269,8 @@ Jason Spence <jspence@lightconsulting.com> contributed support for separate Authorization Only and Post Authorization steps and wrote some docs. OST <services@ostel.com> paid for it. +T.J. Mather <tjmather@maxmind.com> sent a patch for the CVV2 field. + =head1 SEE ALSO perl(1). L<Business::OnlinePayment>. @@ -2,6 +2,7 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. 3.12 unreleased - Added cvv2 field, patch from "T.J. Mather" <tjmather@maxmind.com> + - Added referer field, patch from Mike Barry <mbarry@cos.com> 3.11 Sat May 4 00:43:36 PDT 2002 - forgot 3.10 changelog in 3.10 :) |