Sorry to be a little slow about this, the code below does appear to working
now. But I am concerned that it might not be the correct way of doing it.
I seem to have a little disfunctional code at the end; last two lines. Is
that right?
sub cgiapp_init {
my $self = shift;
my $q = $self->query();
my $c_sid = $q->cookie(COOKIE) || $q->param("c_sid") || undef;
my $session = new CGI::Session::File($c_sid,
{
LockDirectory => '/tmp/locks',
Directory => '/tmp/sessions'
});
my $new_cookie =
$self->header_props(-name=>COOKIE, -value=>$session->id);
$self->header_props(-cookie=>$new_cookie);
}
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
