devslashneil has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
I have written a subroutine to test if a user is in the database or not. It returns 1 if the user is in the database and 0 if the user is not in the database.
Here is the code i have written:
I have also tried the sql statement: SELECT S_Email,MID FROM ML_Subscribers WHERE MID = '$mid' AND S_Email = '$email' and then tested if $row[0] is true.
None of these things worked so i am pretty stuck for ideas.
I'm sure it has to be something stupid i am over looking, i would appreciate any input.
Cheers
Neil Archibald
- /dev/IT -
I have written a subroutine to test if a user is in the database or not. It returns 1 if the user is in the database and 0 if the user is not in the database.
Here is the code i have written:
However this will always return 0 for all cases. When i remove and $row[1] == $mid it works fine, but i need the $email and $mid to be the same. I've tried changing "==" to "eq" but that doesn't work either.sub member_exists { my ($email,$mid) = @_; chomp ($email,$mid); my $db = "nMail"; my $sock = "/tmp/mysql.sock"; my $user = ""; my $pass = ''; my $dsn = "DBI:mysql:$db;mysql_socket=$sock"; my $mid = (); my $dbh = DBI->connect($dsn,$user,$pass); my $sth = $dbh->prepare("SELECT S_Email,MID FROM ML_Subscribers"); $sth->execute() || die "Error: Could not get mailing list data\n"; while (my @row = $sth->fetchrow_array) { if($row[0] eq $email and $row[1] == $mid){ return 1; } } $sth->finish(); $dbh->disconnect(); return 0; }
I have also tried the sql statement: SELECT S_Email,MID FROM ML_Subscribers WHERE MID = '$mid' AND S_Email = '$email' and then tested if $row[0] is true.
None of these things worked so i am pretty stuck for ideas.
I'm sure it has to be something stupid i am over looking, i would appreciate any input.
Cheers
Neil Archibald
- /dev/IT -
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: SQL - Subroutine always returning true
by gmax (Abbot) on Jul 11, 2003 at 07:17 UTC | |
by devslashneil (Friar) on Jul 11, 2003 at 07:32 UTC | |
by nite_man (Deacon) on Jul 11, 2003 at 11:58 UTC | |
Re: SQL - Subroutine always returning true
by nysus (Parson) on Jul 11, 2003 at 06:25 UTC | |
by nysus (Parson) on Jul 11, 2003 at 07:47 UTC | |
by devslashneil (Friar) on Jul 11, 2003 at 06:27 UTC | |
One more minor item to consider.
by htoug (Deacon) on Jul 11, 2003 at 08:28 UTC | |
Re: SQL - Subroutine always returning true
by devslashneil (Friar) on Jul 11, 2003 at 06:49 UTC |
Back to
Seekers of Perl Wisdom