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	dpavlin	20	package Grep::Dispatcher;
2
3			use strict;
4			use warnings;
5
6			use Jifty::Dispatcher -base;
7
8	dpavlin	36	use Data::Dump qw/dump/;
9	dpavlin	20
10			before '*' => run {
11			my $top = Jifty->web->navigation;
12	dpavlin	36	my $user = Jifty->web->current_user->user_object;
13
14			# Jifty->log->debug("current_user = ", dump( $user ));
15
16	dpavlin	39	if ( $user and $user->id ) {
17	dpavlin	106	$top->child( 'Search' => url => '/search' );
18	dpavlin	36	$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	dpavlin	20	};
32
33			1;