lib/Transports/Dispatcher.pm

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

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

=head1 Transports operations

=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 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	package Transports::Dispatcher;
2	use Jifty::Dispatcher -base;
3
4	# Default page
5	#on '/', run {
6	# redirect( '/new');
7	#};
8
9	=head1 Transports operations
10
11	=head2 /edit/42
12
13	edit transport with request number C<42>
14
15	=cut
16
17	on qr'^/edit/(\d+)', run {
18	my $id = $1;
19	my $t = Transports::Model::Transport->new();
20	$t->load_by_cols( id => $id );
21	Jifty->web->redirect( '/new' ) unless ( $t->id );
22
23	set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
24	show('/edit');
25	};
26
27	=head2 /import/42
28
29	import transport with request number C<42>
30
31	=cut
32
33	on qr'^/import/(\d+)', run {
34	my $id = $1;
35	my $t = Transports::Model::Transport->new();
36	$t->load_by_cols( id => $id );
37	Jifty->web->redirect( '/transports' ) unless ( $t->id );
38
39	set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
40	show('/import');
41	};
42
43	=head1 Login and logout operations
44
45	=head2 login
46
47	=cut
48
49	on qr'^/login(/.*)?$', run {
50
51	my $return_url = $1 \|\| '/';
52
53	set 'action' =>
54	Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
55	set 'next' => Jifty->web->request->continuation
56	\|\| Jifty::Continuation->new(
57	request => Jifty::Request->new( path => $return_url ) );
58	show '/login';
59	};
60
61	=head2 logout
62
63	=cut
64
65	before 'logout', run {
66	Jifty->web->request->add_action(
67	moniker => 'logout',
68	class => 'Transports::Action::Logout'
69	);
70	};
71
72
73	# These are dispatcher rules that halos and error handling need to be
74	# able to edit files in place. These should become a plugin of some
75	# sort, when we have that infrastructure.
76
77	before '*', run {
78	Jifty->api->allow(qr/^Jifty::Action::Devel/)
79	if Jifty->config->framework('DevelMode');
80	};
81
82	on qr'^/__jifty/edit/(.?)/(.)$', run {
83	my $editor = Jifty->web->new_action(
84	class => 'Jifty::Action::Devel::FileEditor',
85	moniker => 'editpage',
86	arguments => {
87	source_path => $2,
88	file_type => $1,
89	}
90	);
91
92	set editor => $editor;
93	show '/__jifty/edit_file';
94	};
95
96	1;