lib/Transports/Dispatcher.pm

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

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

=head1 Transports operations

=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');
};

=head2 /import/42

import transport with request number C<42>

=cut

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

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

=head1 User operations

=head2 /user/42

edit user with id C<42>

=cut

on qr'^/user/(\d+)', run {
        my $u = Transports::Model::User->new();
        $u->load_by_cols( id => $1 );

        set user_id => $1;

        set user => Jifty->web->new_action(
                class => $u->id ? 'UpdateUser' : 'CreateUser',
                record => $u
        );

        show('/user_form');
};

=head1 Login and logout operations

=head2 login

=cut

on qr'^/login(/.*)?$', run {

        my $return_url = $1 || '/';

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

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