Levon,
Thanks for the swift reply - but nope - no different.
--- Levon Barker <[EMAIL PROTECTED]> wrote: > Not sure
but I would try changing the query:
>
> my $sth = $dbh->prepare("
> SELECT id from session
> WHERE field = ?
> ");
> $sth->bind_param( 1, $SessionID );
> $sth->execute;
>
> That might help.
>
>
>
> -----Original Message-----
> From: Jason Wilkes [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, July 04, 2002 11:46 AM
> To: [EMAIL PROTECTED]
> Subject: Understanding why this "fixes" my
> perlaccess script
>
>
> Hi folks,
>
> I use the following modperl script to control page
> access, based on a sessionid held in a cookie. A
> database is queried to get the user id from the db
> based on the cookie value. (No cookie, and your
> bounced to the logon screen).
>
> So far so good, and all works well. Except for one
> user id (actually id=333), which causes an "internal
> server error". If I put print debugging lines in -
> everything works (even for user 333). If I take them
> out again all other users work fine except 333.
> Can anybody throw any light on this??
>
> BTW: when the "internal server error" happens there
> is
> no log of it in the error_log - although the HTTP
> response code in access_log is 333 (which I don't
> think is a valid response code).
>
> Any thoughts would be much appreciated.
>
> The code is: -
>
> package My::Package;
>
> use strict;
> use Apache::Constants qw(:common);
> use CGI::Cookie;
> use DBI;
>
> sub handler {
>
> open (DBG, ">>/tmp/debug.txt"); # DEBUG LINE
>
> my $r = shift;
> my %cookies =
> CGI::Cookie->parse($r->header_in('Cookie'));
> return (FORBIDDEN) unless $cookies{'SessionID'};
>
> my $SessionID = $cookies{'SessionID'}->value;
>
> ...
> stuff to set up the DBI connection
> ...
>
> my $sth = $dbh->prepare("
> SELECT id from session
> WHERE field = '$SessionID'
> ");
> $sth->execute;
> my $answer = $sth->fetchrow;
>
> print DBG "The id is $answer\n"; # DEBUG LINE
>
> $sth->finish;
> $dbh->disconnect;
>
> return (FORBIDDEN) unless $answer;
>
> close (DBG);
>
> }
>
> 1;
> __END__
>
>
>
>
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Everything you'll ever need on one web page
> from News and Sport to Email and Music Charts
> http://uk.my.yahoo.com
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
