1 |
package Grep::Dispatcher; |
2 |
|
3 |
use strict; |
4 |
use warnings; |
5 |
|
6 |
use Jifty::Dispatcher -base; |
7 |
|
8 |
use Data::Dump qw/dump/; |
9 |
|
10 |
before '*' => run { |
11 |
my $top = Jifty->web->navigation; |
12 |
my $user = Jifty->web->current_user->user_object; |
13 |
|
14 |
# Jifty->log->debug("current_user = ", dump( $user )); |
15 |
|
16 |
if ( $user and $user->id ) { |
17 |
$top->child( 'Add feed' => url => '/add' ); |
18 |
$top->child( 'Fetch new results' => url => '/fetch' ); |
19 |
my $acc = $top->child( $user->email => url => '/user' ); |
20 |
$acc->child( 'Change password' => url => '/chgpasswd' ); |
21 |
$acc->child( 'Logout' => url => '/logout' ); |
22 |
|
23 |
} else { |
24 |
my $acc = $top->child( 'Login' => url => '/login' ); |
25 |
$acc->child( 'Lost password?' => url => '/passwordreminder' ); |
26 |
$acc->child( 'Signup' => url => '/signup' ); |
27 |
|
28 |
} |
29 |
|
30 |
}; |
31 |
|
32 |
1; |