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	dpavlin	6	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	dpavlin	47	$top->child( _('Units') => url => '/units' );
18
19	dpavlin	37	if ( $user->id ) {
20			$top->child( _('Pictures') => url => '/pictures' );
21			}
22
23	dpavlin	6	};
24
25	dpavlin	51	on qr{/pictures/show/(.+)$} => run {
26			warn "## showing raw_pic $1\n";
27			set filename => $1;
28			show 'raw_pic';
29			};
30
31	dpavlin	6	1;