8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
before '*' => run { |
before '*' => run { |
11 |
Jifty->web->tangent(url => '/ldaplogin') if (! Jifty->web->current_user->id); |
warn "## ", Jifty->web->request->path; |
12 |
|
Jifty->web->tangent(url => '/ldaplogin') |
13 |
|
if ( ! Jifty->web->current_user->id && Jifty->web->request->path !~ m{^/(?:ldaplogin|__jifty)} ); |
14 |
|
|
15 |
my $top = Jifty->web->navigation; |
my $top = Jifty->web->navigation; |
16 |
my $user = Jifty->web->current_user->user_object; |
my $user = Jifty->web->current_user->user_object; |
17 |
|
|