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{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;

                show '/list';
        },

];

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

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