summaryrefslogtreecommitdiff
path: root/GroLUG/lib/GroLUG.pm
diff options
context:
space:
mode:
Diffstat (limited to 'GroLUG/lib/GroLUG.pm')
-rw-r--r--GroLUG/lib/GroLUG.pm21
1 files changed, 16 insertions, 5 deletions
diff --git a/GroLUG/lib/GroLUG.pm b/GroLUG/lib/GroLUG.pm
index 404fde1..267231f 100644
--- a/GroLUG/lib/GroLUG.pm
+++ b/GroLUG/lib/GroLUG.pm
@@ -1,19 +1,30 @@
package GroLUG;
-
use strict;
use warnings;
-use Catalyst qw/-Debug ConfigLoader Static::Simple DefaultEnd Session Session::Store::DBI Session::State::Cookie/;
+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 default : Private {
+sub index : Private {
my ( $self, $c ) = @_;
- # Hello World
- $c->response->body( $c->welcome_message );
+ if ($c->user_exists) {
+ $c->res->redirect($c->uri_for('/iscritti'));
+ }
+ else {
+ $c->res->redirect($c->uri_for('/login'))
+ }
}
1;