/[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 78 by dpavlin, Mon Jan 29 20:11:20 2007 UTC revision 91 by dpavlin, Mon Feb 5 21:29:48 2007 UTC
# Line 55  under qr{sql/(\d+)} => run { Line 55  under qr{sql/(\d+)} => run {
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',
# Line 69  on '/' => run { Line 73  on '/' => run {
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;
Legend:
Removed from v.78  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.26