lib/Transports/Dispatcher.pm

package Transports::Dispatcher;
use Jifty::Dispatcher -base;

# Default page
#on '/', run {
#    redirect( '/new');
#};

=head1 Transports operations

=head2 transports

list of all transports

=cut

on 'transports', run {
        my $transports = Transports::Model::TransportCollection->new();
    $transports->unlimit();

        set transports => $transports;
};

=head2 new

new transport

=cut

on 'new', run {
        my $t = Jifty->web->new_action(
                class => 'CreateTransport',
                monkier => 'create',
        );

        set transport => $t;
};

=head2 /edit/42

edit transport with request number C<42>

=cut

on qr'^/edit/(\d+)', run {
        my $id = $1;
        my $t = Transports::Model::Transport->new();
        $t->load_by_cols( id => $id );
        Jifty->web->redirect( '/new' ) unless ( $t->id );

        set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
        show('/edit');
};

=head1 User operations

=head2 /user/42

edit user with id C<42>

=cut

on qr'^/users?/?(\d*)', run {
        my $id = $1;

        if ($id) {
                my $u = Transports::Model::User->new();
                $u->load_by_cols( id => $id );

                set user => Jifty->web->new_action(
                        class => $u->id ? 'UpdateUser' : 'CreateUser',
                        record => $u
                );
                show('/user_form');
        } else {
                my $u = Transports::Model::UserCollection->new();
                $u->unlimit();
                set users => $u;
                show('/users');
        }
};

=head1 Login and logout operations

=head2 login

=cut

on 'login', run {
    set 'action' =>
        Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
    set 'next' => Jifty->web->request->continuation
        || Jifty::Continuation->new(
        request => Jifty::Request->new( path => "/" ) );
};

=head2 logout

=cut

before 'logout', run {
    Jifty->web->request->add_action(
        moniker => 'logout',
        class   => 'Transports::Action::Logout'
    );
};


# These are dispatcher rules that halos and error handling need to be
# able to edit files in place.  These should become a plugin of some
# sort, when we have that infrastructure.

before '*', run {
    Jifty->api->allow(qr/^Jifty::Action::Devel/)
      if Jifty->config->framework('DevelMode');
};

on qr'^/__jifty/edit/(.*?)/(.*)$', run {
    my $editor = Jifty->web->new_action(
        class     => 'Jifty::Action::Devel::FileEditor',
        moniker   => 'editpage',
        arguments => {
            source_path => $2,
            file_type   => $1,
        }
    );

    set editor => $editor;
    show '/__jifty/edit_file';
};

1;
1	dpavlin	5	package Transports::Dispatcher;
2			use Jifty::Dispatcher -base;
3
4			# Default page
5	dpavlin	25	#on '/', run {
6			# redirect( '/new');
7			#};
8	dpavlin	5
9	dpavlin	31	=head1 Transports operations
10
11			=head2 transports
12
13			list of all transports
14
15			=cut
16
17			on 'transports', run {
18	dpavlin	12	my $transports = Transports::Model::TransportCollection->new();
19			$transports->unlimit();
20
21			set transports => $transports;
22			};
23
24	dpavlin	31	=head2 new
25
26			new transport
27
28			=cut
29
30			on 'new', run {
31	dpavlin	13	my $t = Jifty->web->new_action(
32			class => 'CreateTransport',
33			monkier => 'create',
34			);
35	dpavlin	12
36	dpavlin	13	set transport => $t;
37			};
38
39	dpavlin	31	=head2 /edit/42
40
41			edit transport with request number C<42>
42
43			=cut
44
45			on qr'^/edit/(\d+)', run {
46	dpavlin	26	my $id = $1;
47			my $t = Transports::Model::Transport->new();
48			$t->load_by_cols( id => $id );
49			Jifty->web->redirect( '/new' ) unless ( $t->id );
50	dpavlin	13
51	dpavlin	26	set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
52			show('/edit');
53			};
54	dpavlin	13
55	dpavlin	31	=head1 User operations
56	dpavlin	26
57	dpavlin	31	=head2 /user/42
58
59			edit user with id C<42>
60
61			=cut
62
63			on qr'^/users?/?(\d*)', run {
64			my $id = $1;
65
66			if ($id) {
67			my $u = Transports::Model::User->new();
68			$u->load_by_cols( id => $id );
69
70			set user => Jifty->web->new_action(
71			class => $u->id ? 'UpdateUser' : 'CreateUser',
72			record => $u
73			);
74			show('/user_form');
75			} else {
76			my $u = Transports::Model::UserCollection->new();
77			$u->unlimit();
78			set users => $u;
79			show('/users');
80			}
81			};
82
83			=head1 Login and logout operations
84
85			=head2 login
86
87			=cut
88
89	dpavlin	5	on 'login', run {
90			set 'action' =>
91			Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
92			set 'next' => Jifty->web->request->continuation
93			\|\| Jifty::Continuation->new(
94			request => Jifty::Request->new( path => "/" ) );
95			};
96
97	dpavlin	31	=head2 logout
98
99			=cut
100
101	dpavlin	5	before 'logout', run {
102			Jifty->web->request->add_action(
103			moniker => 'logout',
104			class => 'Transports::Action::Logout'
105			);
106			};
107
108	dpavlin	14
109			# These are dispatcher rules that halos and error handling need to be
110			# able to edit files in place. These should become a plugin of some
111			# sort, when we have that infrastructure.
112
113			before '*', run {
114			Jifty->api->allow(qr/^Jifty::Action::Devel/)
115			if Jifty->config->framework('DevelMode');
116			};
117
118			on qr'^/__jifty/edit/(.?)/(.)$', run {
119			my $editor = Jifty->web->new_action(
120			class => 'Jifty::Action::Devel::FileEditor',
121			moniker => 'editpage',
122			arguments => {
123			source_path => $2,
124			file_type => $1,
125			}
126			);
127
128			set editor => $editor;
129			show '/__jifty/edit_file';
130			};
131
132	dpavlin	5	1;