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->id ) {
                $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			if ( $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	dpavlin	20	};
31
32			1;