lib/SVNBrowser/Dispatcher.pm

#
package SVNBrowser::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

under 'rev' => [

        on qr{rev/(\d+)(/*.*)} => run {
                set revision => $1;
                set path => $2;
        },

        show '/rev',
];

under 'filter' => [

        on qr{author/([^/]+)} => run {
                set author => $1;
        },

        on qr{actions} => run {
                set show_actions => 1;
        },

        on qr{page/(\d+)} => run {
                set per_page => $1;
        },

        on qr{from/([^/]+)} => run {
                set from_date => $1;
        },

        on qr{to/([^/]+)} => run {
                set to_date => $1;
        },

        on qr{search/([^/]+)} => run {
                set search => $1;
        },

        run {
                show '/list';
        },

];

on '' => run {
        redirect '/filter';
};

1;
1	dpavlin	5	#
2			package SVNBrowser::Dispatcher;
3
4			use strict;
5			use warnings;
6
7			use Jifty::Dispatcher -base;
8
9			use Data::Dump qw/dump/;
10
11	dpavlin	24	under 'rev' => [
12	dpavlin	5
13	dpavlin	24	on qr{rev/(\d+)(/.)} => run {
14			set revision => $1;
15			set path => $2;
16			},
17
18			show '/rev',
19			];
20
21			under 'filter' => [
22
23	dpavlin	22	on qr{author/([^/]+)} => run {
24			set author => $1;
25			},
26	dpavlin	5
27	dpavlin	22	on qr{actions} => run {
28			set show_actions => 1;
29			},
30
31			on qr{page/(\d+)} => run {
32	dpavlin	23	set per_page => $1;
33	dpavlin	22	},
34
35			on qr{from/([^/]+)} => run {
36			set from_date => $1;
37			},
38
39			on qr{to/([^/]+)} => run {
40			set to_date => $1;
41			},
42
43	dpavlin	23	on qr{search/([^/]+)} => run {
44			set search => $1;
45			},
46
47	dpavlin	22	run {
48			show '/list';
49			},
50
51			];
52
53	dpavlin	24	on '' => run {
54			redirect '/filter';
55			};
56
57	dpavlin	5	1;