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( 'Logout' => url => '/logout' );
                $acc->child( 'Change password' => url => '/chgpasswd' );

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

        }

};

on '/' => run {
        show '/user' if Jifty->web->current_user->id;
};

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	dpavlin	107	my $acc = $top->child( 'Logout' => url => '/logout' );
21	dpavlin	36	$acc->child( 'Change password' => url => '/chgpasswd' );
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	dpavlin	107	on '/' => run {
33			show '/user' if Jifty->web->current_user->id;
34			};
35
36	dpavlin	20	1;