lib/Transports/Dispatcher.pm

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

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

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

        set transports => $transports;
};

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

        set transport => $t;
};

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


# Login
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 => "/" ) );
};

# Log out
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	25	on '/transports', run {
10	dpavlin	12	my $transports = Transports::Model::TransportCollection->new();
11			$transports->unlimit();
12
13			set transports => $transports;
14			};
15
16	dpavlin	25	on '/new', run {
17	dpavlin	13	my $t = Jifty->web->new_action(
18			class => 'CreateTransport',
19			monkier => 'create',
20			);
21	dpavlin	12
22	dpavlin	13	set transport => $t;
23			};
24
25	dpavlin	26	on qr'/edit/(\d+)', run {
26			my $id = $1;
27			my $t = Transports::Model::Transport->new();
28			$t->load_by_cols( id => $id );
29			Jifty->web->redirect( '/new' ) unless ( $t->id );
30	dpavlin	13
31	dpavlin	26	set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
32			show('/edit');
33			};
34	dpavlin	13
35	dpavlin	26
36	dpavlin	5	# Login
37			on 'login', run {
38			set 'action' =>
39			Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
40			set 'next' => Jifty->web->request->continuation
41			\|\| Jifty::Continuation->new(
42			request => Jifty::Request->new( path => "/" ) );
43			};
44
45			# Log out
46			before 'logout', run {
47			Jifty->web->request->add_action(
48			moniker => 'logout',
49			class => 'Transports::Action::Logout'
50			);
51			};
52
53	dpavlin	14
54			# These are dispatcher rules that halos and error handling need to be
55			# able to edit files in place. These should become a plugin of some
56			# sort, when we have that infrastructure.
57
58			before '*', run {
59			Jifty->api->allow(qr/^Jifty::Action::Devel/)
60			if Jifty->config->framework('DevelMode');
61			};
62
63			on qr'^/__jifty/edit/(.?)/(.)$', run {
64			my $editor = Jifty->web->new_action(
65			class => 'Jifty::Action::Devel::FileEditor',
66			moniker => 'editpage',
67			arguments => {
68			source_path => $2,
69			file_type => $1,
70			}
71			);
72
73			set editor => $editor;
74			show '/__jifty/edit_file';
75			};
76
77	dpavlin	5	1;