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(); |
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 |
|
|
69 |
redirect '/list'; |
redirect '/list'; |
70 |
}; |
}; |
71 |
|
|
72 |
|
on qr{^/feed/(atom|rss|rss2)}, run { |
73 |
|
my $type = 'RSS'; |
74 |
|
$type = 'Atom' if ($1 eq 'atom'); |
75 |
|
set type => $type; |
76 |
|
show('/feed'); |
77 |
|
}; |
78 |
|
|
79 |
1; |
1; |