unless ($self->session->param('user_id'))
{
    $self->prerun_mode('login');
}

##</code><code>##

my $s = CGI::Session->load("driver:mysql", 
    undef, 
    {
        DataSource  => "dbi:mysql:$DB_Name",
        User        => $DB_User,
        Password    => $DB_Pass 
    });

$app->redirect() if ($s->is_empty);

##</code><code>##

$s = $s->new;
$s->param('user_id', $user->id);