sub check_session { my ($obj,$s,$q)= @_; if ( !defined $s || $s->is_empty() || $s->is_expired() || defined $s->param("nogood") || !defined $s->param('id')) { return 0; } $s->expire("+30m"); return 1; # it's active return 0; # it's dead }