lib/Grep/Dispatcher.pm

package Grep::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

before '*' => run {
        my $top = Jifty->web->navigation;
        my $user = Jifty->web->current_user->user_object;

#       Jifty->log->debug("current_user = ", dump( $user ));

        if ( $user and $user->id ) {
                $top->child( 'Search' => url => '/search' );
                $top->child( 'Add feed' => url => '/add' );
                $top->child( 'Fetch new results' => url => '/fetch' );
                my $acc = $top->child( $user->email => url => '/user' );
                $acc->child( 'Change password' => url => '/chgpasswd' );
                $acc->child( 'Logout' => url => '/logout' );

        } else {
                my $acc = $top->child( 'Login' => url => '/login' );
                $acc->child( 'Lost password?' => url => '/passwordreminder' );
                $acc->child( 'Signup' => url => '/signup' );

        }

};

1;
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( 'Search' => url => '/search' );
18	$top->child( 'Add feed' => url => '/add' );
19	$top->child( 'Fetch new results' => url => '/fetch' );
20	my $acc = $top->child( $user->email => url => '/user' );
21	$acc->child( 'Change password' => url => '/chgpasswd' );
22	$acc->child( 'Logout' => url => '/logout' );
23
24	} else {
25	my $acc = $top->child( 'Login' => url => '/login' );
26	$acc->child( 'Lost password?' => url => '/passwordreminder' );
27	$acc->child( 'Signup' => url => '/signup' );
28
29	}
30
31	};
32
33	1;