Hi Keith,
I'm not a Perl programmer but there is nothing you can't do with
(Activestate) Perl on Windows:
It works like this:
1. create a database, a table and a DSN connection in ODBC data sources;
2. find a suitable place to insert the Perl/database code into (a good place
is in Sub Register, after the system sends Thankyou mail to customer, line
763 in version 2.4, module reg_system.cgi);
3. test the Perl/SQL code in a new module until it works well, then insert
into reg_system.cgi (or elsewhere), and test again;
4. retrieve data from database using ASP and passing order# in some way from
CGI to ASP (no matter if using cookies, hidden fields or querystring);
5. make the transaction.
This implementation supposes the "Process orders immediately" flag set to NO
in the RWI.
The Perl/SQL code should look like this (complete version is attached):
use OLE;
$Conn = CreateObject OLE "ADODB.Connection";
$Conn->Open("your_connection_DSN_name");
my $SQL = "INSERT INTO tblDomains (fields_list) VALUES(values_list)";
$Conn->Execute($SQL);
$Conn->Close;
#print $Conn->Errors(0);
#print $SQL;
I understand that this solution can make pure Perl programmers a bit
hangry...but
don't blame me.
_______________________________________________________
Giuseppe Simone Aielli
ASPDns and EasyWhois administrator at Sourceforge, needing help.
----- Original Message -----
From: "Keith Bent" <[EMAIL PROTECTED]>
To: "Giuseppe Simone Aielli" <[EMAIL PROTECTED]>
Cc: <>
Sent: Tuesday, July 31, 2001 2:55 PM
Subject: Re: NT Com Component
> Hello,
>
> If you saved it to a database, did you do so using CGI/PERL???.
> The problem that I am having is that we want to ensure that all
> credit cards are valid before we accept the risk of reserving there
> domain, to do this we must use our real time credit card
> processing vendor, and it has to happen during the reservation
> session before final processing is done. TUCOWS however do not
> seem to live in the same world as me, because my bosses want to
> actually ensure the person reserving can actually pay before the
> web address is reserved and did not write there software in this
> manner. I think the database is a great idea, but it all has to
> happen before the session is completed, and there has to be
> something that stops the session if the person reserving the the
> address cannot pay, otherwise there are going to be groups of
> companies spending a great deal of time calling people back when
> we try to recover payment on NFG cards and can't get money from
> them. If you have hacked a solution around this, I would definantly
> like to hear back on how you worked this out.
>
use OLE;
$Conn = CreateObject OLE "ADODB.Connection";
$Conn->Open("edromeSQL");
my $SQL = "INSERT INTO tblDomains (";
$SQL .= "id,reg_type,domain,period_text,affiliate_id";
$SQL .=
",owner_first_name,owner_last_name,owner_org_name,owner_address1,owner_address2,owner_address3,owner_city,owner_state,owner_country,owner_postal_code,owner_phone,owner_fax,owner_email";
$SQL .=
",billing_first_name,billing_last_name,billing_org_name,billing_address1,billing_address2,billing_address3,billing_city,billing_state,billing_country,billing_postal_code,billing_phone,billing_fax,billing_email";
$SQL .=
",tech_first_name,tech_last_name,tech_org_name,tech_address1,tech_address2,tech_address3,tech_city,tech_state,tech_country,tech_postal_code,tech_phone,tech_fax,tech_email";
$SQL .= ") VALUES
('$id','$data{reg_type}','$data{domain}','$data{period}','$data{affiliate_id}'";
$SQL .=
",'$data{owner_first_name}','$data{owner_last_name}','$data{owner_org_name}','$data{owner_address1}','$data{owner_address2}','$data{owner_address3}','$data{owner_city}','$data{owner_state}','$data{owner_country}','$data{owner_postal_code}','$data{owner_phone}','$data{owner_fax}','$data{owner_email}'";
$SQL .=
",'$data{billing_first_name}','$data{billing_last_name}','$data{billing_org_name}','$data{billing_address1}','$data{billing_address2}','$data{billing_address3}','$data{billing_city}','$data{billing_state}','$data{billing_country}','$data{billing_postal_code}','$data{billing_phone}','$data{billing_fax}','$data{billing_email}'";
$SQL .=
",'$data{tech_first_name}','$data{tech_last_name}','$data{tech_org_name}','$data{tech_address1}','$data{tech_address2}','$data{tech_address3}','$data{tech_city}','$data{tech_state}','$data{tech_country}','$data{tech_postal_code}','$data{tech_phone}','$data{tech_fax}','$data{tech_email}'";
$SQL .= ")";
$Conn->Execute($SQL);
$Conn->Close;
#print $Conn->Errors(0);
#print $SQL;
