/[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 58 by dpavlin, Thu Jan 25 13:08:06 2007 UTC revision 102 by dpavlin, Fri Feb 16 23:40:21 2007 UTC
# Line 39  before '*' => run { Line 39  before '*' => run {
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 );          set parent => $1;
48            set q => $q;
49    
50          set sql_query => $q->sql_query;  #       Jifty->log->debug( "parent = $1, q = ",dump($q) );
         set name => $q->name;  
         set database => $q->on_database->id;  
51    
52          show '/sql';          show '/sql';
53    
# Line 58  under qr{sql/(\d+)} => run { Line 56  under qr{sql/(\d+)} => run {
56  under 'list' => [  under 'list' => [
57    
58          on qr{database/(\d+)} => run {          on qr{database/(\d+)} => run {
59                  set database_id => $1;                  set on_database => $1;
60            },
61    
62            on qr{date/(\d{4}-\d+-\d+)} => run {
63                    set created_on => $1;
64          },          },
65    
66          show '/list',          show '/list',
# Line 72  on '/' => run { Line 74  on '/' => run {
74          redirect '/list';          redirect '/list';
75  };  };
76    
77    on qr{^/feed/(atom|rss|rss2)}, run {
78            my $type = 'RSS';
79            $type = 'Atom' if ($1 eq 'atom');
80            set type => $type;
81            show('/feed');
82    };
83    
84  1;  1;
Legend:
Removed from v.58  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.26