Instead of presenting us with bits of isolated code, please provide an SSCCE that reproduces your problem and is written in such a way that we can run it and help you towards a solution.
I cannot reproduce the problem myself...
To try and get to the bottom of the problem, I have written this script:
#!/usr/bin/perl -T
use CGI::Carp qw(fatalsToBrowser);
use FindBin qw($RealBin);
my $safepath;
BEGIN {
if ($RealBin =~ m!^(/home/username/uk/www)!) {
$safepath = "$1/../lib";
} else {
die "Illegal use of software - visit www.example.com to use th
+is site";
}
}
use lib "$safepath";
use Site::HTML;
use Site::Wayfinder;
use Bod::CRM;
use strict;
use warnings;
my $crm = Bod::CRM->new('test');
print "Content-type: text/plain\n\n";
my $db = '...';
my $un = '...';
my $pw = '...';
##### Uncomment one line #####
#my $dbh = DBI->connect("dbi:mysql:$db:localhost:3306",$un,$pw) || die
+ "DB ERROR: " . $dbh->errstr;
my $dbh = $crm->db;
$dbh->do("CREATE TEMPORARY TABLE Temp_Test (
idTest INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
fname VARCHAR(40),
nname VARCHAR(40),
sname VARCHAR(60),
email VARCHAR(100),
altEmail VARCHAR(100)
)
ENGINE MyISAM");
print "ERROR: " . $dbh->errstr if $dbh->err;
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Ian', 'Bod', 'Boddison', 'me\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Boomer', 'Boo', 'Dog', 'dog\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('
+Oi', '', 'You', 'you\@example.com')");
my $query = $dbh->prepare("SELECT * FROM Temp_Test");
$query->execute;
$, = ' - ';
while (my @row = $query->fetchrow_array) {
print @row;
print "\n";
}
my %data;
$data{'email'} = 'dog@example.com';
my $crid = $dbh->selectrow_array("SELECT idTest FROM Temp_Test WHERE e
+mail = ? OR altEmail = ?", undef, $data{'email'}, $data{'email'});
print "ERROR: " . $dbh->errstr if $dbh->err;
print "\nCRID: $crid\n";
This correctly dumps the table data and then displays
CRID: 2
So what I have done is to go back to the code that is behaving strangely and double check it.
It has been stripped back to bare minimum and the strange result still happens:
#!/usr/bin/perl -T
use CGI::Carp qw(fatalsToBrowser);
use FindBin qw($RealBin);
my $safepath;
BEGIN {
if ($RealBin =~ m!^(/home/username/uk/www)!) {
$safepath = "$1/../lib";
} else {
die "Illegal use of software - visit www.example.com to use th
+is site";
}
}
use lib "$safepath";
use Site::HTML;
use Site::Wayfinder;
use Bod::CRM;
use strict;
use warnings;
my $html = Site::HTML->new;
my $wf = Site::Wayfinder->new;
my $crm = Bod::CRM->new('test');
$html->head;
my $logbox = 'log_login';
$logbox = 'log_fpass' if $data{'command'} eq 'fpass';
# Reset password
if ($data{'command'} eq 'rpass') {
my $test = $crm->db->selectrow_array("SELECT idPerson FROM Person
+WHERE email = ? OR altEmail = ?", undef, $data{'email'}, $data{'email
+'});
print "<p>TEST: $test</p>\n";
my $query = $crm->db->prepare("SELECT idPerson FROM Person WHERE e
+mail = ? OR altEmail = ?");
$query->execute($data{'email'}, $data{'email'});
my $crid = $query->fetchrow_array;
print "<p>CRID: $crid</p>\n";
exit;
}
__END__
This has two ways of getting the same data from the database.
The output is:
TEST: 0
CRID: 1
The
selectrow_array function should not be able to return zero when zero does not exist anywhere in the
idPerson field of the database.
update:
Just to prove it is not something that is happening in Site::HTML->head, I have changed:
$html->head;
for
#$html->head;
print "Content-type: text/plain\n\n";
and the output now is:
<p>TEST: 0</p>
<p>CRID: 1</p>
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.