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' );
        my $o = $top->child( _('Organizations') => url => '/organizations' );
        $o->child( _('New') => url => '/organizations/new' );

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