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);
$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);
}
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;
card_number => '4007000000027',
expiration => '09/02',
cvv2 => '1234', #optional
+ referer => 'http://valid.referer.url/',
);
$tx->submit();
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>.
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 :)