/[transports]/trunk/lib/Transports/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/Transports/Dispatcher.pm

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

revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC revision 65 by dpavlin, Sun Jun 11 02:59:18 2006 UTC
# Line 6  use Jifty::Dispatcher -base; Line 6  use Jifty::Dispatcher -base;
6  #    redirect( '/new');  #    redirect( '/new');
7  #};  #};
8    
9  on '/transports', run {  =head1 Transports operations
         my $transports = Transports::Model::TransportCollection->new();  
     $transports->unlimit();  
10    
11          set transports => $transports;  =head2 /edit/42
 };  
12    
13  on '/new', run {  edit transport with request number C<42>
         my $t = Jifty->web->new_action(  
                 class => 'CreateTransport',  
                 monkier => 'create',  
         );  
14    
15          set transport => $t;  =cut
 };  
16    
17  on qr'/edit/(\d+)', run {  on qr'^/edit/(\d+)', run {
18          my $id = $1;          my $id = $1;
19          my $t = Transports::Model::Transport->new();          my $t = Transports::Model::Transport->new();
20          $t->load_by_cols( id => $id );          $t->load_by_cols( id => $id );
# Line 32  on qr'/edit/(\d+)', run { Line 24  on qr'/edit/(\d+)', run {
24          show('/edit');          show('/edit');
25  };  };
26    
27    =head2 /import/42
28    
29    import transport with request number C<42>
30    
31    =cut
32    
33    on qr'^/import/(\d+)', run {
34            my $id = $1;
35            my $t = Transports::Model::Transport->new();
36            $t->load_by_cols( id => $id );
37            Jifty->web->redirect( '/transports' ) unless ( $t->id );
38    
39            set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
40            show('/import');
41    };
42    
43    =head1 Login and logout operations
44    
45    =head2 login
46    
47    =cut
48    
49    on qr'^/login(/.*)?$', run {
50    
51            my $return_url = $1 || '/';
52    
 # Login  
 on 'login', run {  
53      set 'action' =>      set 'action' =>
54          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
55      set 'next' => Jifty->web->request->continuation      set 'next' => Jifty->web->request->continuation
56          || Jifty::Continuation->new(          || Jifty::Continuation->new(
57          request => Jifty::Request->new( path => "/" ) );          request => Jifty::Request->new( path => $return_url ) );
58            show '/login';
59  };  };
60    
61  # Log out  =head2 logout
62    
63    =cut
64    
65  before 'logout', run {  before 'logout', run {
66      Jifty->web->request->add_action(      Jifty->web->request->add_action(
67          moniker => 'logout',          moniker => 'logout',
Legend:
Removed from v.27  
changed lines
  Added in v.65
  ViewVC Help
Powered by ViewVC 1.1.26