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);
        my $l = $top->child( 'List' => url => '/list' );

        my $databases = SQLSession::Model::DatabaseCollection->new();
        $databases->unlimit;
        while ( my $db = $databases->next ) {
                my $label = $db->name;
#               $label .= ' [' . $db->dsn . ']' if ($edit);
                $l->child( $label => url => '/list/database/' . $db->id );
        }

};


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

};

under 'list' => [

        on qr{database/(\d+)} => run {
                set database_id => $1;
        },

        show '/list',
];

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

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

1;
1	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	before '*' => run {
11	my $top = Jifty->web->navigation;
12	my $edit = Jifty->config->app('edit');
13	$top->child( 'New' => url => '/new' ) if ($edit);
14	my $l = $top->child( 'List' => url => '/list' );
15
16	my $databases = SQLSession::Model::DatabaseCollection->new();
17	$databases->unlimit;
18	while ( my $db = $databases->next ) {
19	my $label = $db->name;
20	# $label .= ' [' . $db->dsn . ']' if ($edit);
21	$l->child( $label => url => '/list/database/' . $db->id );
22	}
23
24	};
25
26
27
28	under qr{sql/(\d+)} => run {
29
30	my $q = SQLSession::Model::Query->new();
31	$q->load( $1 ) or next_rule;
32
33	warn "q = ",dump( $q );
34
35	set sql_query => $q->sql_query;
36	set name => $q->name;
37	set database => $q->on_database->id;
38
39	show '/sql';
40
41	};
42
43	under 'list' => [
44
45	on qr{database/(\d+)} => run {
46	set database_id => $1;
47	},
48
49	show '/list',
50	];
51
52	on 'new' => run {
53	show '/sql';
54	};
55
56	on '/' => run {
57	redirect '/list';
58	};
59
60	1;