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/cgiapp@lists.vm.com/ To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]