--- trunk/lib/Transports/Dispatcher.pm	2006/05/05 22:02:19	12
+++ trunk/lib/Transports/Dispatcher.pm	2006/05/27 13:30:54	34
@@ -2,19 +2,121 @@
 use Jifty::Dispatcher -base;
 
 # Default page
-on '/', run {
-    redirect( '/transport');
-};
+#on '/', run {
+#    redirect( '/new');
+#};
+
+=head1 Transports operations
+
+=head2 transports
+
+list of all transports
+
+=cut
 
-on '/all_transports', run {
+on 'transports', run {
 	my $transports = Transports::Model::TransportCollection->new();
     $transports->unlimit();
 
 	set transports => $transports;
 };
 
+=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');
+};
+
+=head1 User operations
+
+=head2 /user/42
+
+edit user with id C<42>
+
+=cut
+
+on qr'^/users?/?(\d*)', run {
+	my $id = $1;
+
+	if ($id) {
+		my $u = Transports::Model::User->new();
+		$u->load_by_cols( id => $id );
+
+		set user_id => $id;
+
+		set user => Jifty->web->new_action(
+			class => $u->id ? 'UpdateUser' : 'CreateUser',
+			record => $u
+		);
+
+		my $s = Transports::Model::UserOnSourceCollection->new;
+		$s->limit(
+			column		=> 'user_on',
+			value		=> $id,
+			quote_value	=> 0,
+		);
+		$s->order_by( { column => 'source' } );
+		set sources => $s;
+
+		set source => Jifty->web->new_action(
+			class => 'CreateUserOnSource',
+			monkier => 'create',
+		);
+
+		show('/user_form');
+	} else {
+		my $u = Transports::Model::UserCollection->new();
+		$u->unlimit();
+		set users => $u;
+		show('/users');
+	}
+};
+
+=head2 delete_user_on_system
+
+=cut
+
+on qr'^/delete_user_on_source/(\d+)', run {
+		my $id = $1;
+		my $u = Transports::Model::UserOnSource->new();
+		$u->load_by_cols( id => $id );
+		my $user_id = $u->user_on->id;
+		$u->delete;
+		redirect "/user/$user_id";
+};
+
+
+=head1 Login and logout operations
+
+=head2 login
+
+=cut
 
-# Login
 on 'login', run {
     set 'action' =>
         Jifty->web->new_action( class => 'Login', moniker => 'loginbox' );
@@ -23,7 +125,10 @@
         request => Jifty::Request->new( path => "/" ) );
 };
 
-# Log out
+=head2 logout
+
+=cut
+
 before 'logout', run {
     Jifty->web->request->add_action(
         moniker => 'logout',
@@ -31,4 +136,28 @@
     );
 };
 
+
+# These are dispatcher rules that halos and error handling need to be
+# able to edit files in place.  These should become a plugin of some
+# sort, when we have that infrastructure.
+
+before '*', run {
+    Jifty->api->allow(qr/^Jifty::Action::Devel/)
+      if Jifty->config->framework('DevelMode');
+};
+
+on qr'^/__jifty/edit/(.*?)/(.*)$', run {
+    my $editor = Jifty->web->new_action(
+        class     => 'Jifty::Action::Devel::FileEditor',
+        moniker   => 'editpage',
+        arguments => {
+            source_path => $2,
+            file_type   => $1,
+        }
+    );
+
+    set editor => $editor;
+    show '/__jifty/edit_file';
+};
+
 1;