39 |
}; |
}; |
40 |
|
|
41 |
|
|
|
|
|
42 |
under qr{sql/(\d+)} => run { |
under qr{sql/(\d+)} => run { |
43 |
|
|
44 |
my $q = SQLSession::Model::Query->new(); |
my $q = SQLSession::Model::Query->new(); |
45 |
$q->load( $1 ) or next_rule; |
$q->load( $1 ) or next_rule; |
46 |
|
|
47 |
warn "q = ",dump( $q ); |
# warn "q = ",dump( $q ); |
48 |
|
|
49 |
set sql_query => $q->sql_query; |
set q => $q; |
|
set name => $q->name; |
|
|
set database => $q->on_database->id; |
|
50 |
|
|
51 |
show '/sql'; |
show '/sql'; |
52 |
|
|
55 |
under 'list' => [ |
under 'list' => [ |
56 |
|
|
57 |
on qr{database/(\d+)} => run { |
on qr{database/(\d+)} => run { |
58 |
set database_id => $1; |
set on_database => $1; |
59 |
}, |
}, |
60 |
|
|
61 |
|
on qr{date/(\d{4}-\d+-\d+)} => run { |
62 |
|
set created_on => $1; |
63 |
|
} |
64 |
|
|
65 |
show '/list', |
show '/list', |
66 |
]; |
]; |
67 |
|
|
73 |
redirect '/list'; |
redirect '/list'; |
74 |
}; |
}; |
75 |
|
|
76 |
|
on qr{^/feed/(atom|rss|rss2)}, run { |
77 |
|
my $type = 'RSS'; |
78 |
|
$type = 'Atom' if ($1 eq 'atom'); |
79 |
|
set type => $type; |
80 |
|
show('/feed'); |
81 |
|
}; |
82 |
|
|
83 |
1; |
1; |