k, so I'm trying to use Storable to make a persistant object.
when I use it in a test script run from the command line it works fine,
but when I use it in my cgi it gets up to "tim" then nothing.
it's creating the session file but the file is 0-byte. permissions on
that file are 644 and it's owned by the apache servers user/group
i did try to "warn freeze ($self)" w/ the same result, it'd get to the
line before the freeze, then nothing.
any ideas?
TIA,
code follows:
jjv
sub DESTROY
{
my $self = shift;
my $directory = $self->{_directory};
my $sessionid = $self->{_sessionid};
warn "Destroying: $directory/$sessionid\n";
if ($self->GetStatus () == EXPIRED) {
unlink "$directory/$sessionid" or die ("Unable to remove
session");
} else {
$self->{_atime} = time;
delete @{$self}{qw(_directory _status)};
warn "storing: $directory/$sessionid\n";
eval {
warn "tim\n";
lock_store ($self, "$directory/$sessionid") or die ("Unable
to save session");
warn "bob\n";
};
warn "joe\n";
warn $@ if $@;
warn "jim\n" unless $@;
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
