summaryrefslogtreecommitdiff
path: root/GroLUG/lib/GroLUG.pm
blob: 4f4f26cabf3a575e0e6069448755180dab562f48 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
package GroLUG; 
use strict;
use warnings;
 
use Catalyst qw{
                -Debug
                ConfigLoader Static::Simple DefaultEnd
                Session Session::Store::DBI Session::State::Cookie
                Authentication Authentication::Store::Htpasswd Authentication::Credential::Password
                Authorization::Roles
            };
use Catalyst::Log::Log4perl;
 
our $VERSION = '0.01';
 
__PACKAGE__->setup;
__PACKAGE__->log(Catalyst::Log::Log4perl->new(__PACKAGE__->path_to("logger.conf")->stringify));
 
sub index : Private {
    my ( $self$c ) = @_;
 
    if ($c->user_exists) {
        $c->res->redirect($c->uri_for('/iscritti'));
    }
    else {
        $c->res->redirect($c->uri_for('/login'))
    }
}
 
1;