I am wondering if anyone has had any problems
with the .name script. I am using Net::SSLeay to connect
to our Gateway provider to charge credit cards,
without it leaving the actual page. It works great on
reg_system.cgi
but will not work right in the .name pre reg
script.
OpenSRS support said to ask on here, that maybe
someone would have some tips they could share.
Here is my problem.
If I use an existing profile to pre-register a
.name domain, it will work just fine, at least it will try to process the
credit card. If it is successful,
then it gives this message:
Registration Error
That is ONLY if I use an existing profile, from a
previously registered .name domain. It is in the TEST version. NOT
live.
I would appreciate any tips.
Let me go over this again. 2 problems. 1, if it's
a new profile, it just denies the card, it will not even attempt to charge it.
So I wonder if it is
Net::SSLeay since that is what is used to contact
the Gateway company to charge the card. It does do so if it's an existing
profile, but NOT
on a new one.
2nd is the error that I get if it's an existing
profile for .name. I get that error pasted above. If I use a NEW profile, and
I use card number
4111111111111111 I have it completely bypass the
charging of the card, that is why It don't give me the card declined error,
which it does without checking on a valid card.
thank you in advance for any advice you may
have.
Richard.
Just so you can see, here is what I
have:
AT: sub process_order {
AFTER
if (@list)
{
$data->{nameserver_list} = \@list;
} else
{
$data->{use_default_nameservers} = 1;
}
my $xcp_request =
{
action =>
"sw_register",
object =>
"domain",
attributes =>
$data,
};
my $register_results =
$XML_Client->send_cmd( $xcp_request );
I put this:
# Begin Addition
my $testcharge =
charge;
if($in{p_cc_num} ne "4111111111111111") {
if($testcharge == 0)
{
throw Exception "Register", "Sorry, Your card was
denied. Please use a different card.\nSorry for any inconvenience this may
cause.\n";
}
}
THEN this is the last of the code in that
subroutine and I think this is the command that registers the
domain...Therefore, I have the charge card call in the right spot, and it
should be the same for both, either the new profile, or existing
profile.
unless
($register_results->{is_success})
{
throw Exception
"Register","Error occured while was trying to process your
order:<br>\n".$register_results->{response_text};
}
my $id =
$register_results->{attributes}->{id};
my $x =
sprintf ("%s processed with order \# %d.\n", $data->{domain},
$id);
my %HTML;
$HTML{status} =
$x."<br>".$register_results->{response_text};
$HTML{partner_email} = $ADMIN_EMAIL;
$HTML{CGI} =
$cgi;
$HTML{affiliate_id} =
$in{affiliate_id};
print_form(template=>"$path_templates/thankyou.html",data=">\%HTML);
}