[ic] How do I get the errors to show on CC processing with Authorize.net
Robert Trembath
interchange-users@lists.akopia.com
Fri Jun 8 11:35:00 2001
I finally got it to enter something in the error log:
131.226.161.178 mKSFVWZR:131.226.161.178 - [08/June/2001:09:27:11 -0500]
catalog /cgi-bin/catalog/process.html bad custom payment GlobalSub:
authorizenet
Here is what's in my authorizenet:
GlobalSub <<EOS
sub authorizenet {
my ($user, $secret, $amount) = @_;
my (%actual) = Vend::Order::map_actual();
if (! $user ) {
$user = $::Variable->{MV_PAYMENT_ID} ||
$::Variable->{CYBER_ID}
or return undef;
}
if(! $secret) {
$secret = $::Variable->{MV_PAYMENT_SECRET} ||
$::Variable->{CYBER_SECRET}
or return undef;
}
my $server = $::Variable->{MV_PAYMENT_SERVER} ||
$::Variable->{CYBER_SERVER} ||
'secure.authorize.net';
my $script = $::Variable->{MV_PAYMENT_SCRIPT} ||
$::Variable->{CYBER_SCRIPT} ||
'/gateway/transact.dll';
my $port = $::Variable->{MV_PAYMENT_PORT} ||
$::Variable->{CYBER_PORT} ||
443;
my $precision = $::Variable->{MV_PAYMENT_PRECISION} ||
$::Variable->{CYBER_PRECISION} ||
2;
my $referer = $::Variable->{MV_PAYMENT_REFERER};
$actual{mv_credit_card_exp_month} =~ s/\D//g;
$actual{mv_credit_card_exp_month} =~ s/^0+//;
$actual{mv_credit_card_exp_year} =~ s/\D//g;
$actual{mv_credit_card_exp_year} =~ s/\d\d(\d\d)/$1/;
$actual{mv_credit_card_number} =~ s/\D//g;
my $exp = sprintf '%02d%02d',
$actual{mv_credit_card_exp_month},
$actual{mv_credit_card_exp_year};
$actual{cyber_mode} = 'AUTH_CAPTURE'
unless $actual{cyber_mode};
my %type_map = (
mauth_capture => 'AUTH_CAPTURE',
mauthonly => 'AUTH_ONLY',
CAPTURE_ONLY => 'CAPTURE_ONLY',
CREDIT => 'CREDIT',
VOID => 'VOID',
PRIOR_AUTH_CAPTURE => 'PRIOR_AUTH_CAPTURE',
);
if (defined $type_map{$actual{cyber_mode}}) {
$actual{cyber_mode} = $type_map{$actual{cyber_mode}};
}
else {
$actual{cyber_mode} = 'AUTH_CAPTURE';
}
if(! $amount) {
$amount = Vend::Interpolate::total_cost();
$amount = sprintf("%.${precision}f", $amount);
}
my($orderID);
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
gmtime(time());
# We'll make an order ID based on date, time, and MiniVend session
# $mon is the month index where Jan=0 and Dec=11, so we use
# $mon+1 to get the more familiar Jan=1 and Dec=12
$orderID = sprintf("%02d%02d%02d%02d%02d%05d%s",
$year + 1900,$mon + 1,$mday,$hour,$min,$Vend::SessionName);
my %query = (
x_Card_Num => $actual{mv_credit_card_number},
x_First_Name => $actual{b_fname},
x_Last_Name => $actual{b_lname},
x_Address => $actual{b_address1},
x_City => $actual{b_city},
x_State => $actual{b_state},
x_Zip => $actual{b_zip},
x_Type => $actual{mv_payment_mode},
x_Amount => $amount,
x_Exp_Date => $exp,
x_Method => 'CC',
x_Invoice_Num => $actual{mv_order_number},
# x_Company => $actual{company},
# x_Phone => $actaul{day_phone},
x_Password => $secret,
x_Login => $user,
x_Version => '3.0',
x_ADC_URL => 'FALSE',
x_ADC_Delim_Data => 'TRUE',
);
my @query;
for (keys %query) {
my $key = $_;
my $val = $query{$key};
$val =~ s/["\$\n\r]//g;
$val =~ s/\$//g;
my $len = length($val);
if($val =~ /[&=]/) {
$key .= "[$len]";
}
push @query, "$key=$val";
}
my $string = join '&', @query;
use Net::SSLeay qw(post_https make_form make_headers);
my ($page, $response, %reply_headers)
= post_https($server, $port, $script,
make_headers( Referer => $referer),
make_form(
%query
));
# Minivend names are on the left, Authorize.Net on the right
my %result_map = ( qw/
MStatus x_response_code
pop.status x_response_code
MErrMsg x_response_reason_text
pop.error-message x_response_reason_text
order-id x_trans_id
pop.order-id x_trans_id
pop.auth-code x_auth_code
pop.avs_code x_avs_code
pop.avs_zip x_zip
pop.avs_addr x_address
/
);
#::logError(qq{\nauthorizenet page: $page response: $response\n});
my ($response_code,
$response_subcode,
$response_reason_code,
$response_reason_text,
$auth_code,
$avs_code,
$trans_id) = split (/,/,$page);
#::logError(qq{authorizenet response_reason_text=$response_reason_text
response_code: $response_code});
my %result;
if ($response_code == 1) {
$result{MStatus} = 'success';
$result{'order-id'} = 1; # ? Why this this set to 1? -mark
} else {
$result{MStatus} = 'failure';
# NOTE: A lot more AVS codes could be checked for here.
if ($avs_code eq 'N') {
$result{MErrMsg} = "You must enter the correct billing address of your
credit card. The bank returned the following error: " .
$response_reason_text;
} else {
$result{MErrMsg} = "$response_reason_text" ;
my $msg = errmsg("Authorizenet error: %s. Please call in your order or
try again.",
$response_reason_text,
);
}
}
return (%result);
}
EOS
This is located in /usr/lib/interchange/eg/globalsub
I've followed Mike's directions in this file and added the needed lines to
interchange.cfg and catalog.cfg
Please help ASAP as I am past deadline!
Robert
-----Original Message-----
From: interchange-users-admin@developer.akopia.com
[mailto:interchange-users-admin@developer.akopia.com]On Behalf Of Robert
Trembath
Sent: Friday, June 08, 2001 10:13 AM
To: interchange-users@developer.akopia.com
Subject: RE: [ic] How do I get the errors to show on CC processing with
Authorize.net
Did some searching through the list made some changes that Mike mentioned in
a previous post to variables in the authorizenet page on the x_address and
x_zip lines. But still encountering a problem.
Please Help!
Robert
-----Original Message-----
From: interchange-users-admin@developer.akopia.com
[mailto:interchange-users-admin@developer.akopia.com]On Behalf Of Robert
Trembath
Sent: Friday, June 08, 2001 8:52 AM
To: interchange-users@developer.akopia.com
Subject: [ic] How do I get the errors to show on CC processing with
Authorize.net
Good morning everyone,
A small question, I don't seem to be getting any error messages back from
authorize.net if a card doen't go through. Any time I try to use a credir
card I get redirected back to the payment screen and it says my errors will
be in red, although there are no errors in red!
If I use a different payment type it goes through just fine.
So I need to see what errors are coming back from authorize.net or what else
might be stopping the process.
Thanks,
Robert
_______________________________________________
Interchange-users mailing list
Interchange-users@lists.akopia.com
http://lists.akopia.com/mailman/listinfo/interchange-users
_______________________________________________
Interchange-users mailing list
Interchange-users@lists.akopia.com
http://lists.akopia.com/mailman/listinfo/interchange-users