diff options
Diffstat (limited to 'GroLUG/lib/GroLUG/C/Iscritto.pm')
-rw-r--r-- | GroLUG/lib/GroLUG/C/Iscritto.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/GroLUG/lib/GroLUG/C/Iscritto.pm b/GroLUG/lib/GroLUG/C/Iscritto.pm index 3e733ca..f3b9975 100644 --- a/GroLUG/lib/GroLUG/C/Iscritto.pm +++ b/GroLUG/lib/GroLUG/C/Iscritto.pm @@ -5,6 +5,16 @@ use warnings; use base 'Catalyst::Controller'; use DateTime; +sub auto :Private { + my ( $self, $c ) = @_; + + unless ($c->user_exists) { + $c->res->redirect($c->uri_for('/login')); + return; + } + return 1; +} + sub iscritti :Global { my ( $self, $c ) = @_; |