/[A3C]/lib/A3C/Dispatcher.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /lib/A3C/Dispatcher.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 231 - (show annotations)
Sun Aug 31 11:54:40 2008 UTC (10 years, 10 months ago) by dpavlin
File size: 1261 byte(s)
Added action SearchLDAP which replace old dump and enables us to issue
search requests directly to upstream LDAP to check it's current data
1 package A3C::Dispatcher;
2
3 use strict;
4 use warnings;
5
6 =head1 NAME
7
8 A3C::Displatcher
9
10 =head1 DESCRIPTION
11
12 Create top-level menu navigation
13
14 =cut
15
16 use Jifty::Dispatcher -base;
17
18 use Data::Dump qw/dump/;
19
20 before '*' => run {
21 warn "## ", Jifty->web->request->path;
22 Jifty->web->tangent(url => '/ldaplogin')
23 if ( ! Jifty->web->current_user->id && Jifty->web->request->path !~ m{^/(?:ldaplogin|__jifty)} );
24
25 my $top = Jifty->web->navigation;
26 my $user = Jifty->web->current_user->user_object;
27
28 # Jifty->log->debug("current_user = ", dump( $user ));
29
30 $top->child( _('People') => url => '/people' );
31 my $o = $top->child( _('Organizations') => url => '/organizations' );
32 $o->child( _('New') => url => '/organizations/new' );
33
34 my $ldap = $top->child( _('LDAP'), url => '/ldap/sync' ); # FIXME some kind of top-level ldap page?
35 $ldap->child( _('Sync') => url => '/ldap/sync' );
36 $ldap->child( _('Search') => url => '/ldap/search' );
37
38 my $strix = $top->child( _('Strix') => url => '/strix' );
39 $strix->child( _('Name differences') => url => '/strix/name_diff' );
40 $strix->child( _('SQL') => url => '/strix/sql' );
41 $strix->child( _('Navigation') => url => '/strix/navigation' );
42
43 # $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;
44
45 };
46
47 1;

  ViewVC Help
Powered by ViewVC 1.1.26