sub cgiapp_init {
    my $self = shift;
    my $user = $self->get_user_from_cookie();

    unless ( defined $user ) {
        print $self->query->redirect('/login.pl');
        exit;
    }

    $self->{user} = $user;
    return 1;
}