On Wed, 13 Mar 2002 [EMAIL PROTECTED] wrote:
> Date: Wed, 13 Mar 2002 06:07:01 GMT
> From: [EMAIL PROTECTED]
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: Blank Pages ( Revisited )
>
> In the past someone posted a problem with mod_perl and DbI giving blank
> pages from a SQL query. I did some digging around and found some info but I
> need someone to fill in the holes for me a little.
>
> I created a DB Table "webtest". In the table, I filled it with the contents
> of /usr/local/dict/propernames. Fine! it worked beautifully.
>
> However, when I do a "random" query I get some blank pages. I traced this to
> the DBI Log using the "DBH->Trace(2, /tmp/DBI.log)". I found that sometimes
> the "execute()" returns "0E0". Does anybody knows why??
>
> I did a simple logic to check for the value return by "execute()", if the
> value is "0E0" then do the same query. Do this same query until the value
> return by "execute()" is not "0E0". However, I am still getting blank pages.
>
> I am sending the actual script that I have been working on to provide a
> complete picture.
>
> Thank you in advanced
A floating point "0" or 0E0 is sometimes returned since it will test as
True, when then number is unknown. Someone who undersands DBI's innards
may comment on if this is the case here.
>
> -max
> ====================SCRIPT==========================
> 1 package DBNE2;
> 2
> 3 use strict;
> 4 use vars qw($DBH);
> 5 use Apache;
> 6 use DBI();
> 7
> 8 sub handler {
> 9 $DBH = DBI->connect("DBI:mysql:test","webuser","mult1scan")
> || die $DBH->errstr;
> 10 my $r = shift;
> 11 my $h = $DBH->trace(2,"/tmp/DBNE2.log");
> 12
> 13 my $IdHandle = $DBH->prepare("SELECT MAX(id) FROM webtest");
> 14 $IdHandle->execute;
> 15 my $id = $IdHandle->fetchrow;
> 16
> 17 my $RowHandlesth = $DBH->prepare("SELECT * FROM webtest WHERE
> id = ROUND( (RAND() * ?) + 1)");
> 18 $RowHandlesth->execute($id);
> 19
> 20 while (! $RowHandlesth ) {
> 21 $RowHandlesth->execute($id);
> 22
> 23 if ( $RowHandlesth ) {
> 24 # my @row = $RowHandlesth->fetchrow;
> 25 last;
> 26 }
> 27 }
> 28 my @row = $RowHandlesth->fetchrow;
> 29
> 30 $r->content_type("text/html");
> 31 $r->send_http_header;
> 32 $r->print(@row);
> 33 $RowHandlesth->finish;
> 34 }
> 35
> 36 1;
>
Sincerely,
William Mussatto, Senior Systems Engineer
CyberStrategies, Inc
ph. 909-920-9154 ext. 27
