[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 13:17:01 2001
Thanks Jason, I've already searched the list and found several. It's kind
of a mess trying to put the comment together to get it to work but I have
done this and already implemented many of the changes suggested.
There was a reference to adding [data session cybercash_errors] to the
checkout page. Is there a specific place this goes? I added it and get no
error messages. I don't even know if it's communicating to authorize.net as
it returns me to process.html within 1-2 seconds.
Where do I add this code?
Thanks, Robert
-----Original Message-----
From: interchange-users-admin@developer.akopia.com
[mailto:interchange-users-admin@developer.akopia.com]On Behalf Of Jason
Kohles
Sent: Friday, June 08, 2001 11:31 AM
To: interchange-users@developer.akopia.com
Subject: Re: [ic] How do I get the errors to show on CC processing with
Authorize.net
On Fri, Jun 08, 2001 at 11:24:00AM -0500, Robert Trembath wrote:
> I've posted 4 message in 3 hours and no dice. Is anyone out there today.
> Usually this group is terrific about responding, but wassup?
This is a question that nobody ever jumps to answer because it gets asked
every week or two, searching for authorize.net in the mailing list archives
will give you a lot or information. 'bad custome payment GlobalSub' means
that your GlobalSub couldn't be compiled, probably because it contains a
syntax error somewhere.
[error all=1 show_error=1 joiner="<BR>" keep=1] will display all the errors
in
the page, even ones that are not checked for explicitly.
> 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:38 AM
> To: interchange-users@developer.akopia.com
> Subject: RE: [ic] How do I get the errors to show on CC processing with
> Authorize.net
>
>
> 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
>
> _______________________________________________
> 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
--
Red Hat E-Business Solutions Jason Kohles
11480 Sunset Hills Road Senior System Architect
Reston, VA 20190 jkohles@redhat.com
_______________________________________________
Interchange-users mailing list
Interchange-users@lists.akopia.com
http://lists.akopia.com/mailman/listinfo/interchange-users