Ok I can't seem to get this. Now is it possible to have MySQL on a other
computer and run the script.
In other words  the perl script is on foo.com and MySQL database is on
foo2.com. What is need to make the script work. What I have in the
script is:
 
Configure.pl
 
sub configure {
########################################
# CGI CONFIGURATION VARIABLES
########################################
$mailprogram = "/usr/sbin/sendmail -t";
$mysqlhost = "mysql.foo2.com 3306";
$mysqldatabase = "matchpro";
$mysqlusername = "username";
$mysqlpassword = "password";
add.pl 
 
#!/usr/bin/perl -s
use Socket;
use DBI;
 
require "configure.pl";
&configure; 
open (HEADERHTML, "$headerhtml");
@header = <HEADERHTML>;
close HEADERHTML;
open (FOOTERHTML, "$footerhtml");
@footer = <FOOTERHTML>;
close FOOTERHTML;
 
$orderid = &generateorderid;
$profilenumber = $orderid;
 
&form_parse;
           $AdHeadline = $FORM{'AdHeadline'};
           $EmailAddress = $FORM{'EmailAddress'};
           $TelephoneAreaCode = $FORM{'TelephoneAreaCode'};
           $City = $FORM{'City'};
           $StateProvince = $FORM{'StateProvince'};
           $Zip = $FORM{'Zip'};
           $Country = $FORM{'Country'};
           $RelationshipPreference = $FORM{'RelationshipPreference'};
           $SexualPreference = $FORM{'SexualPreference'};
           $Username = $FORM{'Username'};
           $Password = $FORM{'Password'};
           $VerifyPassword = $FORM{'VerifyPassword'};
           $SmokingPreference = $FORM{'SmokingPreference'};
           $DrinkingPreference = $FORM{'DrinkingPreference'};
           $MaritialStatus = $FORM{'MaritialStatus'};
           $HaveChildren = $FORM{'HaveChildren'};
           $BodyBuild = $FORM{'BodyBuild'};
           $Height = $FORM{'Height'};
           $Religion = $FORM{'Religion'};
           $Race = $FORM{'Race'};
           $AstrologicalSign = $FORM{'AstrologicalSign'};
           $Age = $FORM{'Age'};
           $Occupation = $FORM{'Occupation'};
           $MiscComments = $FORM{'MiscComments'};
                       $MiscComments =~ s/ /\|/g;
                       $MiscComments =~ s/\s/\|/g;
                       $MiscComments =~ s/\|+/ /g;
 
 
$dbh = DBI->connect("DBI:mysql:$mysqldatabase",
"$mysqlhost","$mysqlusername", "$mysqlpassword") || die("Couldn't
connect to database!\n");
print "Content-type: text/html\n\n";
&printheader;
&errcheck;
&checkuniqueusernames;
&checkuniqueemails;
&savedata;
&printconfirmation;
&printfooter;
&emailmember;
 
$dbh->disconnect;
 
There is more but the script never gets past $dbh = DBI
 


---------------------------------------------------------------------
Before posting, please check:
   http://www.mysql.com/manual.php   (the manual)
   http://lists.mysql.com/           (the list archive)

To request this thread, e-mail <[EMAIL PROTECTED]>
To unsubscribe, e-mail <mysql-unsubscribe-##L=##[EMAIL PROTECTED]>
Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php

Reply via email to