/[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 55 by dpavlin, Mon Jun 5 14:27:50 2006 UTC revision 72 by dpavlin, Mon Jun 12 03:44:50 2006 UTC
# Line 6  use Jifty::Dispatcher -base; Line 6  use Jifty::Dispatcher -base;
6  #    redirect( '/new');  #    redirect( '/new');
7  #};  #};
8    
 =head1 Transports operations  
   
 =head2 new  
   
 new transport  
   
 =cut  
   
 on 'new', run {  
         my $t = Jifty->web->new_action(  
                 class => 'CreateTransport',  
                 monkier => 'create',  
         );  
   
         set transport => $t;  
 };  
   
 =head2 /edit/42  
   
 edit transport with request number C<42>  
   
 =cut  
   
 on qr'^/edit/(\d+)', run {  
         my $id = $1;  
         my $t = Transports::Model::Transport->new();  
         $t->load_by_cols( id => $id );  
         Jifty->web->redirect( '/new' ) unless ( $t->id );  
   
         set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );  
         show('/edit');  
 };  
   
 =head2 /import/42  
   
 import transport with request number C<42>  
   
 =cut  
   
 on qr'^/import/(\d+)', run {  
         my $id = $1;  
         my $t = Transports::Model::Transport->new();  
         $t->load_by_cols( id => $id );  
         Jifty->web->redirect( '/transports' ) unless ( $t->id );  
   
         set transport => Jifty->web->new_action( class => 'UpdateTransport', record => $t );  
         show('/import');  
 };  
   
 =head1 User operations  
   
 =head2 /user/42  
   
 edit user with id C<42>  
   
 =cut  
   
 on qr'^/user/(\d+)', run {  
         my $u = Transports::Model::User->new();  
         $u->load_by_cols( id => $1 );  
   
         set user_id => $1;  
   
         set user => Jifty->web->new_action(  
                 class => $u->id ? 'UpdateUser' : 'CreateUser',  
                 record => $u  
         );  
   
         show('/user_form');  
 };  
   
9  =head1 Login and logout operations  =head1 Login and logout operations
10    
11  =head2 login  =head2 login
# Line 111  before 'logout', run { Line 40  before 'logout', run {
40  # able to edit files in place.  These should become a plugin of some  # able to edit files in place.  These should become a plugin of some
41  # sort, when we have that infrastructure.  # sort, when we have that infrastructure.
42    
43  before '*', run {  before qr'^(.*)$', run {
44      Jifty->api->allow(qr/^Jifty::Action::Devel/)          my $url = $1 || '/';
45    
46            Jifty->api->allow(qr/^Jifty::Action::Devel/)
47        if Jifty->config->framework('DevelMode');        if Jifty->config->framework('DevelMode');
48    
49            return if ($url eq '/' || $url =~ m#^/login#);
50    
51            if (not Jifty->web->current_user->id) {
52                    redirect( '/login' . $url );
53            }
54  };  };
55    
56  on qr'^/__jifty/edit/(.*?)/(.*)$', run {  on qr'^/__jifty/edit/(.*?)/(.*)$', run {
Legend:
Removed from v.55  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.26