blob: 4561d00aa81289623edb80690a59672ccd54578a (
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 StackTrace 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;
|