Login

Timing out the user's session


sub _relogin_test {
    my $self = shift;
    my $now  = time;
    my $then = $self->session->{_timestamp};
    if ( ($now - $then) < 15 * 60) {
        return 1; # session ok
    }
    return;
}