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;
        },

        run {
                show '/rev'
        },
];

under 'filter' => [

        on qr{path(/.+)} => run {
                set rel_path => $1;
        },

        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 {
                my $next = Jifty->web->request->continuation;

                if (Jifty->web->response->results) {
                        $next = Jifty::Continuation->new(
                                request => Jifty->web->request,
                                response => Jifty->web->response,
                        );
#                       warn "created continuation: ", dump($next);
                } elsif ($next) {
#                       warn "next = ", dump( $next );
                        $next->call;
                }

                set 'next' => $next;

                if ( get 'mason' ) {
                        show '/list';
                } else {
                        show '/x-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	dpavlin	39	run {
19			show '/rev'
20			},
21	dpavlin	24	];
22
23			under 'filter' => [
24
25	dpavlin	47	on qr{path(/.+)} => run {
26			set rel_path => $1;
27			},
28
29	dpavlin	22	on qr{author/([^/]+)} => run {
30			set author => $1;
31			},
32	dpavlin	5
33	dpavlin	22	on qr{actions} => run {
34			set show_actions => 1;
35			},
36
37			on qr{page/(\d+)} => run {
38	dpavlin	23	set per_page => $1;
39	dpavlin	22	},
40
41			on qr{from/([^/]+)} => run {
42			set from_date => $1;
43			},
44
45			on qr{to/([^/]+)} => run {
46			set to_date => $1;
47			},
48
49	dpavlin	23	on qr{search/([^/]+)} => run {
50			set search => $1;
51			},
52
53	dpavlin	22	run {
54	dpavlin	39	my $next = Jifty->web->request->continuation;
55
56			if (Jifty->web->response->results) {
57			$next = Jifty::Continuation->new(
58			request => Jifty->web->request,
59			response => Jifty->web->response,
60			);
61	dpavlin	40	# warn "created continuation: ", dump($next);
62	dpavlin	39	} elsif ($next) {
63			# warn "next = ", dump( $next );
64			$next->call;
65			}
66
67			set 'next' => $next;
68
69	dpavlin	76	if ( get 'mason' ) {
70			show '/list';
71			} else {
72			show '/x-list';
73			}
74	dpavlin	22	},
75
76			];
77
78	dpavlin	24	on '' => run {
79			redirect '/filter';
80			};
81
82	dpavlin	5	1;