Still need help?? Please

Thu, 14 Feb 2002 08:52:29 -0800

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

Reply via email to