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 {

        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 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) {
                redirect( '/login' . $url );
        }
};

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