lib/Transports/Dispatcher.pm

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

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

=head1 Login and logout operations

=head2 login

=cut

on qr'^/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 => '/transports' ) );
        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 qr'^(.*)$', run {
        my $url = $1 || '/';

        Jifty->api->allow(qr/^Jifty::Action::Devel/)
      if Jifty->config->framework('DevelMode');

        return if ($url eq '/' || $url =~ m#^/login#);

        if (not Jifty->web->current_user->id) {
                Jifty->web->tangent( url => '/login' );
        }
};

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