lib/A3C/Dispatcher.pm

package A3C::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

before '*' => run {
        warn "## ", Jifty->web->request->path;
        Jifty->web->tangent(url => '/ldaplogin')
                if ( ! Jifty->web->current_user->id && Jifty->web->request->path !~ m{^/(?:ldaplogin|__jifty)} );

        my $top = Jifty->web->navigation;
        my $user = Jifty->web->current_user->user_object;

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

        $top->child( _('Find People') => url => '/search-users' );
        $top->child( _('Sync Organization') => url => '/sync' );
#       $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;

};

1;
1	package A3C::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	warn "## ", Jifty->web->request->path;
12	Jifty->web->tangent(url => '/ldaplogin')
13	if ( ! Jifty->web->current_user->id && Jifty->web->request->path !~ m{^/(?:ldaplogin\|__jifty)} );
14
15	my $top = Jifty->web->navigation;
16	my $user = Jifty->web->current_user->user_object;
17
18	# Jifty->log->debug("current_user = ", dump( $user ));
19
20	$top->child( _('Find People') => url => '/search-users' );
21	$top->child( _('Sync Organization') => url => '/sync' );
22	# $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;
23
24	};
25
26	1;