@@ -49,6 +49,11 @@ sub startup {

     croak $error;

   }

   $git->bin($git_bin);

+

+  # Repository Manager

+  my $manager = Gitprep::RepManager->new(app => $self);

+  weaken $manager->{app};

+  $self->manager($manager);

   # Repository home

   my $rep_home = $self->home->rel_file('rep');

@@ -59,18 +64,6 @@ sub startup {

   }

   $self->git($git);

-  # Reverse proxy support

-  $ENV{MOJO_REVERSE_PROXY} = 1;

-  $self->hook('before_dispatch' => sub {

-    my $self = shift;

-    

-    if ($self->req->headers->header('X-Forwarded-Host')) {

-      my $prefix = shift @{$self->req->url->path->parts};

-      push @{$self->req->url->base->path->parts}, $prefix

-        if defined $prefix;

-    }

-  });

-  

   # DBI

   my $db_file = $self->home->rel_file('db/gitprep.db');

   my $dbi = DBIx::Custom->connect(

@@ -143,100 +136,83 @@ EOS

   # Helper

   $self->helper(gitprep_api => sub { Gitprep::API->new(shift) });

-  

-  # Route

-  my $r = $self->routes->route->to('main#');

-  

+

   # DBViewer(only development)

   if ($self->mode eq 'development') {

     eval {

       $self->plugin(

         'DBViewer',

         dsn => "dbi:SQLite:database=$db_file",

-        route => $r

       );

     };

   }

+    

+  # Auto route

+  $self->plugin('AutoRoute');

-  # Repository Manager

-  my $manager = Gitprep::RepManager->new(app => $self);

-  weaken $manager->{app};

-  $self->manager($manager);

-

-  # Home

-  $r->get('/')->name('home');

-  

-  # Start

-  $r->any('/_start')->name('_start');

-  

-  # Sign in

-  $r->any('/_login')->name('login');

-  

-  # Admin

-  $r->get('/_admin')->name('_admin');

-  

-  # Admin

+  # User defined Routes

   {

-    my $r = $r->route('/_admin')->to('_admin#');

+    my $r = $self->routes->route->to('main#');

-    # Users

-    $r->any('/users')->to('#users');

-    

     # User

+    $r->get('/:user')->name('user');

+    

+    # Project

     {

-      my $r = $r->route('/user')->to('_admin-user#');

+      my $r = $r->route('/:user/:project');

+      $r->get('/')->name('project');

-      # Create user

-      $r->any('/create')->to('#create');

-    }

-  }

+      # Commit

+      $r->get('/commit/#diff')->name('commit');

+      

+      # Commits

+      $r->get('/commits/#rev', {id => 'HEAD'})->name('commits');

+      $r->get('/commits/#rev/(*blob)')->name('commits');

+      

+      # Branches

+      $r->get('/branches');

-  # User

-  $r->get('/:user')->name('user');

-  

-  # Project

-  {

-    my $r = $r->route('/:user/:project');

-    $r->get('/')->name('project');

-    

-    # Commit

-    $r->get('/commit/#diff')->name('commit');

-    

-    # Commits

-    $r->get('/commits/#rev', {id => 'HEAD'})->name('commits');

-    $r->get('/commits/#rev/(*blob)')->name('commits');

-    

-    # Branches

-    $r->get('/branches')->name('branches');

+      # Tags

+      $r->get('/tags');

-    # Tags

-    $r->get('/tags')->name('tags');

+      # Tree

+      $r->get('/tree/(*object)')->name('tree');

+      

+      # Blob

+      $r->get('/blob/(*object)')->name('blob');

+      

+      # Blob diff

+      $r->get('/blobdiff/(#diff)/(*file)')->name('blobdiff');

+      

+      # Raw

+      $r->get('/raw/(*object)')->name('raw');

+      

+      # Archive

+      $r->get('/archive/(#rev).tar.gz')->name('archive')->to(archive_type => 'tar');

+      $r->get('/archive/(#rev).zip')->name('archive')->to(archive_type => 'zip');

+      

+      # Compare

+      $r->get('/compare/(#rev1)...(#rev2)')->name('compare');

+      

+      # Settings

+      $r->any('/settings');

+      

+      # Fork

+      $r->any('/fork');

+    }

+  }

-    # Tree

-    $r->get('/tree/(*object)')->name('tree');

-    

-    # Blob

-    $r->get('/blob/(*object)')->name('blob');

-    

-    # Blob diff

-    $r->get('/blobdiff/(#diff)/(*file)')->name('blobdiff');

-    

-    # Raw

-    $r->get('/raw/(*object)')->name('raw');

-    

-    # Archive

-    $r->get('/archive/(#rev).tar.gz')->name('archive')->to(archive_type => 'tar');

-    $r->get('/archive/(#rev).zip')->name('archive')->to(archive_type => 'zip');

-    

-    # Compare

-    $r->get('/compare/(#rev1)...(#rev2)')->name('compare');

-    

-    # Settings

-    $r->any('/settings')->name('settings');

+  # Reverse proxy support

+  $ENV{MOJO_REVERSE_PROXY} = 1;

+  $self->hook('before_dispatch' => sub {

+    my $self = shift;

-    # Fork

-    $r->any('/fork')->name('fork');

-  }

+    if ($self->req->headers->header('X-Forwarded-Host')) {

+      my $prefix = shift @{$self->req->url->path->parts};

+      push @{$self->req->url->base->path->parts}, $prefix

+        if defined $prefix;

+    }

+  });

 }

 1;

@@ -0,0 +1,118 @@

+package Mojolicious::Plugin::AutoRoute;

+use Mojo::Base 'Mojolicious::Plugin';

+

+our $VERSION = '0.07';

+

+sub register {

+  my ($self, $app, $conf) = @_;

+  

+  # Parent route

+  my $r = $conf->{route} || $app->routes;

+  

+  # Top directory

+  my $top_dir = $conf->{top_dir} || 'auto';

+  $top_dir =~ s#^/##;

+  $top_dir =~ s#/$##;

+  

+  # Condition

+  $app->routes->add_condition(__auto_route_plugin_file_exists => sub {

+    my ($r, $c, $captures, $pattern) = @_;

+    

+    my $path = $captures->{__auto_route_plugin_path};

+    $path = 'index' unless defined $path;

+    

+    return if $path =~ /\.\./;

+    

+    my $found;

+    for my $dir (@{$c->app->renderer->paths}) {

+      if (-f "$dir/$top_dir/$path.html.ep") {

+        return 1;

+      }

+    }

+    

+    return;

+  });

+  

+  # Index

+  $r->route('/')

+    ->over('__auto_route_plugin_file_exists')

+    ->to(cb => sub { shift->render("/$top_dir/index") });

+  

+  # Route

+  $r->route('/(*__auto_route_plugin_path)')

+    ->over('__auto_route_plugin_file_exists')

+    ->to(cb => sub {

+      my $c = shift;

+      

+      my $path = $c->stash('__auto_route_plugin_path');

+      

+      $c->render("/$top_dir/$path");

+    });

+}

+

+1;

+

+=head1 NAME

+

+Mojolicious::Plugin::AutoRoute - Mojolicious Plugin to create routes automatically

+

+=head1 CAUTION

+

+B<This is beta release. Implementation will be changed without warnings>. 

+

+=head1 SYNOPSIS

+

+  # Mojolicious

+  $self->plugin('AutoRoute');

+

+  # Mojolicious::Lite

+  plugin 'AutoRoute';

+

+=head1 DESCRIPTION

+

+L<Mojolicious::Plugin::AutoRoute> is a L<Mojolicious> plugin

+to create routes automatically.

+

+Routes corresponding to URL is created .

+

+  TEMPLATES                           ROUTES

+  templates/auto/index.html.ep        # /

+                /foo.html.ep          # /foo

+                /foo/bar.html.ep      # /foo/bar

+                /foo/bar/baz.html.ep  # /foo/bar/baz

+

+If you like C<PHP>, this plugin is very good.

+You only put file into C<auto> directory.

+

+=head1 OPTIONS

+

+=head2 C<route>

+

+  route => $route;

+

+You can set parent route if you need.

+This is L<Mojolicious::Routes> object.

+Default is C<$app->routes>.

+

+=head2 C<top_dir>

+

+  top_dir => 'myauto'

+

+Top directory. default is C<auto>.

+

+=head1 METHODS

+

+L<Mojolicious::Plugin::AutoRoute> inherits all methods from

+L<Mojolicious::Plugin> and implements the following new ones.

+

+=head2 C<register>

+

+  $plugin->register($app);

+

+Register plugin in L<Mojolicious> application.

+

+=head1 SEE ALSO

+

+L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.

+

+=cut