lib/Arh/Dispatcher.pm

package Arh::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;

        #set user => $user;
        #warn "##### ",dump( $user );

        $top->child( _('Units') => url => '/units' );

        if ( $user->id ) {
                $top->child( _('Pictures') => url => '/pictures' );
        }

};

on qr{/pictures/show/(.+)$} => run {
        warn "## showing raw_pic $1\n";
        set filename => $1;
        show 'raw_pic';
};

1;
1	package Arh::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;
13
14	#set user => $user;
15	#warn "##### ",dump( $user );
16
17	$top->child( _('Units') => url => '/units' );
18
19	if ( $user->id ) {
20	$top->child( _('Pictures') => url => '/pictures' );
21	}
22
23	};
24
25	on qr{/pictures/show/(.+)$} => run {
26	warn "## showing raw_pic $1\n";
27	set filename => $1;
28	show 'raw_pic';
29	};
30
31	1;