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->web->current_user->role('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);
                my $url = '/list/database/' . $db->id;
                my $path = Jifty->web->request->path;
#               warn "url: $url path: $path\n";
                $l->child( $label => url => $url => active => ( $url eq $path ) );
        }

        if ( Jifty->web->current_user->id ) {
                $top->child( 'Logout' => url => '/logout' );
        } else {
                $top->child( 'Login' => url => '/login' );
                $top->child( 'Signup' => url => '/signup' );
        }

        if ( Jifty->web->current_user->role( 'admin' ) ) {
                $top->child( 'Docs' => url => '/__jifty/online_docs/' );
                $top->child( 'Administration' => url => '/__jifty/admin/' );
        }

};


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	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	dpavlin	58	my $edit = Jifty->web->current_user->role('edit');
13	dpavlin	33	$top->child( 'New' => url => '/new' ) if ($edit);
14	dpavlin	40	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	dpavlin	49	my $url = '/list/database/' . $db->id;
22			my $path = Jifty->web->request->path;
23	dpavlin	57	# warn "url: $url path: $path\n";
24	dpavlin	49	$l->child( $label => url => $url => active => ( $url eq $path ) );
25	dpavlin	40	}
26
27	dpavlin	46	if ( Jifty->web->current_user->id ) {
28			$top->child( 'Logout' => url => '/logout' );
29			} else {
30			$top->child( 'Login' => url => '/login' );
31			$top->child( 'Signup' => url => '/signup' );
32			}
33
34	dpavlin	58	if ( Jifty->web->current_user->role( 'admin' ) ) {
35			$top->child( 'Docs' => url => '/__jifty/online_docs/' );
36			$top->child( 'Administration' => url => '/__jifty/admin/' );
37			}
38
39	dpavlin	33	};
40
41
42
43	dpavlin	20	under qr{sql/(\d+)} => run {
44
45			my $q = SQLSession::Model::Query->new();
46			$q->load( $1 ) or next_rule;
47
48	dpavlin	75	# warn "q = ",dump( $q );
49	dpavlin	20
50			set sql_query => $q->sql_query;
51			set name => $q->name;
52	dpavlin	21	set database => $q->on_database->id;
53	dpavlin	20
54	dpavlin	22	show '/sql';
55	dpavlin	20
56			};
57
58	dpavlin	39	under 'list' => [
59
60			on qr{database/(\d+)} => run {
61			set database_id => $1;
62			},
63
64			show '/list',
65			];
66
67	dpavlin	22	on 'new' => run {
68			show '/sql';
69	dpavlin	21	};
70
71	dpavlin	22	on '/' => run {
72	dpavlin	28	redirect '/list';
73	dpavlin	22	};
74
75	dpavlin	20	1;