/[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 14 by dpavlin, Fri May 26 09:29:25 2006 UTC revision 57 by dpavlin, Mon Jun 5 15:09:51 2006 UTC
# Line 2  package Transports::Dispatcher; Line 2  package Transports::Dispatcher;
2  use Jifty::Dispatcher -base;  use Jifty::Dispatcher -base;
3    
4  # Default page  # Default page
5  on '/', run {  #on '/', run {
6      redirect( '/new_transport');  #    redirect( '/new');
7    #};
8    
9    =head1 Transports operations
10    
11    =head2 /edit/42
12    
13    edit transport with request number C<42>
14    
15    =cut
16    
17    on qr'^/edit/(\d+)', run {
18            my $id = $1;
19            my $t = Transports::Model::Transport->new();
20            $t->load_by_cols( id => $id );
21            Jifty->web->redirect( '/new' ) unless ( $t->id );
22    
23            set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );
24            show('/edit');
25  };  };
26    
27  on '/all_transports', run {  =head2 /import/42
28          my $transports = Transports::Model::TransportCollection->new();  
29      $transports->unlimit();  import transport with request number C<42>
30    
31    =cut
32    
33          set transports => $transports;  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  on '/new_transport', run {  =head1 User operations
44          my $t = Jifty->web->new_action(  
45                  class => 'CreateTransport',  =head2 /user/42
46                  monkier => 'create',  
47    edit user with id C<42>
48    
49    =cut
50    
51    on qr'^/user/(\d+)', run {
52            my $u = Transports::Model::User->new();
53            $u->load_by_cols( id => $1 );
54    
55            set user_id => $1;
56    
57            set user => Jifty->web->new_action(
58                    class => $u->id ? 'UpdateUser' : 'CreateUser',
59                    record => $u
60          );          );
61    
62          set transport => $t;          show('/user_form');
         set viewer => Jifty->web->new_action( class => 'UpdateTransport', record => $t );  
63  };  };
64    
65    =head1 Login and logout operations
66    
67    =head2 login
68    
69    =cut
70    
71    on qr'^/login(/.*)?$', run {
72    
73            my $return_url = $1 || '/';
74    
 # Login  
 on 'login', run {  
75      set 'action' =>      set 'action' =>
76          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );          Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
77      set 'next' => Jifty->web->request->continuation      set 'next' => Jifty->web->request->continuation
78          || Jifty::Continuation->new(          || Jifty::Continuation->new(
79          request => Jifty::Request->new( path => "/" ) );          request => Jifty::Request->new( path => $return_url ) );
80            show '/login';
81  };  };
82    
83  # Log out  =head2 logout
84    
85    =cut
86    
87  before 'logout', run {  before 'logout', run {
88      Jifty->web->request->add_action(      Jifty->web->request->add_action(
89          moniker => 'logout',          moniker => 'logout',
Legend:
Removed from v.14  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.26