set a timestamp in your sessions before untying.

> -----Original Message-----
> From: Octavian Rasnita [mailto:[EMAIL PROTECTED] 
> Sent: Wednesday, October 05, 2005 2:51 PM
> To: modperl@perl.apache.org
> Subject: What am I missing?
> 
> Hi,
> 
> I am trying to use Apache::Session with mod_perl because I 
> heard that it is a little faster than CGI::Session. The 
> problem is that I cannot save variables in the created 
> sessions. They are created, but no data is saved.
> 
> Here is what I have tried and I am sure I am missing something:
> 
> #Create session:
> my %session;
> eval {
> tie(%session, 'Apache::Session::MySQL', undef, {Handle => 
> $dbh, LockHandle => $dbh}); };
> 
> #Put a variable in it:
> $session{username} = 'etc';
> 
> #get the session id:
> my $session_id = $session{_session_id};
> 
> undef %session;
> 
> #Get the saved session:
> my %new_session;
> eval {
> tie(%new_session, 'Apache::Session::MySQL', $session_id, 
> {Handle => $dbh, LockHandle => $dbh}); };
> 
> #Get the var from the session:
> print $new_session{username};
> 
> undef %new_session;
> 
> ###
> 
> After running this script, nothing is printed and the hash 
> element "username" is not saved in the MySQL table, but just 
> the session ID.
> 
> I have created the MySQL table using:
> 
> create table sessions(id varchar(32) not null primary key, 
> a_session text);
> 
> Thank you.
> 
> Teddy
> 
> 
> 

Reply via email to