/[SQLSession]/trunk/lib/SQLSession/Dispatcher.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Dispatcher.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 46 by dpavlin, Sun Jan 21 12:40:13 2007 UTC revision 118 by dpavlin, Sun Jun 1 00:34:09 2008 UTC
# Line 9  use Data::Dump qw/dump/; Line 9  use Data::Dump qw/dump/;
9    
10  before '*' => run {  before '*' => run {
11          my $top = Jifty->web->navigation;          my $top = Jifty->web->navigation;
12          my $edit = Jifty->config->app('edit');          my $edit = Jifty->web->current_user->role('edit');
13          $top->child( 'New' => url => '/new' ) if ($edit);          $top->child( 'New' => url => '/new' ) if ($edit);
14          my $l = $top->child( 'List' => url => '/list' );          my $l = $top->child( 'List' => url => '/list' );
15    
# Line 18  before '*' => run { Line 18  before '*' => run {
18          while ( my $db = $databases->next ) {          while ( my $db = $databases->next ) {
19                  my $label = $db->name;                  my $label = $db->name;
20  #               $label .= ' [' . $db->dsn . ']' if ($edit);  #               $label .= ' [' . $db->dsn . ']' if ($edit);
21                  $l->child( $label => url => '/list/database/' . $db->id );                  my $url = '/list/database/' . $db->id;
22                    my $path = Jifty->web->request->path;
23    #               warn "url: $url path: $path\n";
24                    $l->child( $label => url => $url => active => ( $url eq $path ) );
25          }          }
26    
27          if ( Jifty->web->current_user->id ) {          if ( Jifty->web->current_user->id ) {
# Line 26  before '*' => run { Line 29  before '*' => run {
29          } else {          } else {
30                  $top->child( 'Login' => url => '/login' );                  $top->child( 'Login' => url => '/login' );
31                  $top->child( 'Signup' => url => '/signup' );                  $top->child( 'Signup' => url => '/signup' );
32                    $top->child( 'Password reminder' => url => '/passwordreminder' );
33          }          }
34    
35  };          if ( Jifty->web->current_user->role( 'admin' ) ) {
36                    $top->child( 'Docs' => url => '/__jifty/online_docs/' );
37                    $top->child( 'Administration' => url => '/__jifty/admin/' );
38            }
39    
40    };
41    
42    
43  under qr{sql/(\d+)} => run {  under qr{sql/(\d+)} => run {
# Line 37  under qr{sql/(\d+)} => run { Line 45  under qr{sql/(\d+)} => run {
45          my $q = SQLSession::Model::Query->new();          my $q = SQLSession::Model::Query->new();
46          $q->load( $1 ) or next_rule;          $q->load( $1 ) or next_rule;
47    
48          warn "q = ",dump( $q );          set parent => $1;
49            set q => $q;
50    
51          set sql_query => $q->sql_query;          Jifty->log->debug( "parent = $1, q = ",dump($q) );
         set name => $q->name;  
         set database => $q->on_database->id;  
52    
53          show '/sql';          show '/sql';
54    
# Line 50  under qr{sql/(\d+)} => run { Line 57  under qr{sql/(\d+)} => run {
57  under 'list' => [  under 'list' => [
58    
59          on qr{database/(\d+)} => run {          on qr{database/(\d+)} => run {
60                  set database_id => $1;                  set on_database => $1;
61            },
62    
63            on qr{date/(\d{4}-\d+-\d+)} => run {
64                    set created_on => $1;
65          },          },
66    
67          show '/list',          show '/list',
# Line 60  on 'new' => run { Line 71  on 'new' => run {
71          show '/sql';          show '/sql';
72  };  };
73    
74  on '/' => run {  on '/' => redirect '/list';
75          redirect '/list';  
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;
Legend:
Removed from v.46  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.26