lib/SQLSession/Dispatcher.pm

package SQLSession::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

before '*' => run {
        my $top = Jifty->web->navigation;
        my $edit = Jifty->config->app('edit');
        $top->child( 'New' => url => '/new' ) if ($edit);
        $top->child( 'List' => url => '/list' );
};


under qr{sql/(\d+)} => run {

        my $q = SQLSession::Model::Query->new();
        $q->load( $1 ) or next_rule;

        warn "q = ",dump( $q );

        set sql_query => $q->sql_query;
        set name => $q->name;
        set database => $q->on_database->id;

        show '/sql';

};

on 'new' => run {
        show '/sql';
};

on '/' => run {
        redirect '/list';
};

1;
1	dpavlin	20	package SQLSession::Dispatcher;
2
3			use strict;
4			use warnings;
5
6			use Jifty::Dispatcher -base;
7
8			use Data::Dump qw/dump/;
9
10	dpavlin	33	before '*' => run {
11			my $top = Jifty->web->navigation;
12			my $edit = Jifty->config->app('edit');
13			$top->child( 'New' => url => '/new' ) if ($edit);
14			$top->child( 'List' => url => '/list' );
15			};
16
17
18
19	dpavlin	20	under qr{sql/(\d+)} => run {
20
21			my $q = SQLSession::Model::Query->new();
22			$q->load( $1 ) or next_rule;
23
24			warn "q = ",dump( $q );
25
26			set sql_query => $q->sql_query;
27			set name => $q->name;
28	dpavlin	21	set database => $q->on_database->id;
29	dpavlin	20
30	dpavlin	22	show '/sql';
31	dpavlin	20
32			};
33
34	dpavlin	22	on 'new' => run {
35			show '/sql';
36	dpavlin	21	};
37
38	dpavlin	22	on '/' => run {
39	dpavlin	28	redirect '/list';
40	dpavlin	22	};
41
42	dpavlin	20	1;