summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xindex.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/index.pl b/index.pl
index 78719f5..dfc3358 100755
--- a/index.pl
+++ b/index.pl
@@ -1162,7 +1162,11 @@ post '/action' => sub {
under sub {
my ($self) = @_;
- return $self->is_user_authenticated;
+ if ( $self->is_user_authenticated ) {
+ return 1;
+ }
+ $self->render('login');
+ return undef;
};
get '/account' => sub {