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	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( 'Logout' => url => '/logout' );
21	$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	};
31
32	on '/' => run {
33	show '/user' if Jifty->web->current_user->id;
34	};
35
36	1;