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( _('People') => url => 'people' );
        $top->child( _('Organizations') => url => 'organizations' );

        $top->child( _('Sync') => url => 'sync' );
        $top->child( _('LDAP') => url => 'ldap' );

#       $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;

};

1;
1	dpavlin	50	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	dpavlin	67	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	dpavlin	50	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	dpavlin	71	$top->child( _('People') => url => 'people' );
21	dpavlin	125	$top->child( _('Organizations') => url => 'organizations' );
22	dpavlin	71
23			$top->child( _('Sync') => url => 'sync' );
24			$top->child( _('LDAP') => url => 'ldap' );
25
26	dpavlin	50	# $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;
27
28			};
29
30			1;