@@ -58,8 +58,80 @@ sub startup {

     }

   });

+  # DBI

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

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

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

+    connector => 1,

+    option => {sqlite_unicode => 1}

+  );

+  $self->dbi($dbi);

+

+  # Create user table

+  eval {

+    my $sql = <<"EOS";

+create table user (

+  row_id integer primary key autoincrement,

+  id not null unique,

+  config not null

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Create project table

+  eval {

+    my $sql = <<"EOS";

+create table project (

+  row_id integer primary key autoincrement,

+  user_id not null,

+  name not null,

+  config not null,

+  unique(user_id, name)

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Model

+  my $models = [

+    {table => 'user', primary_key => 'id'},

+    {table => 'project', primary_key => ['user_id', 'name']}

+  ];

+  $dbi->create_model($_) for @$models;

+

+  # Fiter

+  $dbi->register_filter(json => sub {

+    my $value = shift;

+    

+    if (ref $value) {

+      return decode('UTF-8', Mojo::JSON->new->encode($value));

+    }

+    else {

+      return Mojo::JSON->new->decode(encode('UTF-8', $value));

+    }

+  });

+  

+  # Validator

+  my $validator = Validator::Custom->new;

+  $self->validator($validator);

+  

+  # 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

+      );

+    };

+  }

   # Home

   $r->get('/')->to('#home');

@@ -124,49 +196,6 @@ sub startup {

     # Compare

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

   }

-  

-  # DBI

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

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

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

-    connector => 1,

-    option => {sqlite_unicode => 1}

-  );

-

-  eval {

-  # Create table

-    my $sql = <<"EOS";

-create table user (

-  row_id integer primary key autoincrement,

-  id not null unique,

-  config not null

-);

-EOS

-    $dbi->execute($sql);

-  };

-  $self->dbi($dbi);

-  

-  # Model

-  $dbi->create_model({table => 'user', primary_key => 'id'});

-  

-  # Fiter

-  $dbi->register_filter(json => sub {

-    my $value = shift;

-    

-    if (ref $value) {

-      return decode('UTF-8', Mojo::JSON->new->encode($value));

-    }

-    else {

-      return Mojo::JSON->new->decode(encode('UTF-8', $value));

-    }

-  });

-  

-  # Validator

-  my $validator = Validator::Custom->new;

-  $self->validator($validator);

-  

-  # Helper

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

 }

 1;

@@ -5,7 +5,7 @@ use Carp 'croak';

 use File::Find 'find';

 use File::Basename qw/basename dirname/;

 use Fcntl ':mode';

-use File::Path 'mkpath';

+use File::Path qw/mkpath rmtree/;

 use File::Copy 'move';

 # Attributes

@@ -198,69 +198,6 @@ sub blob_size_kb {

   return $size_kb;

 }

-sub check_head_link {

-  my ($self, $dir) = @_;

-  

-  # Chack head

-  my $head_file = "$dir/HEAD";

-  return ((-e $head_file) ||

-    (-l $head_file && readlink($head_file) =~ /^refs\/heads\//));

-}

-

-sub _cmd {

-  my ($self, $user, $project, @cmd) = @_;

-  

-  my $home = $self->rep_home;

-  

-  my $rep = "$home/$user/$project.git";

-  

-  # Execute git command

-  return ($self->bin, "--git-dir=$rep", @cmd);

-}

-

-sub create_repository {

-  my ($self, $user, $project, $opts) = @_;

-  

-  # Repository

-  my $rep_home = $self->rep_home;

-  my $rep = "$rep_home/$user/$project.git";

-  mkpath $rep;

-    

-  # Git init

-  my @git_init_cmd = $self->_cmd($user, $project, 'init', '--bare');

-  system(@git_init_cmd) == 0

-    or croak "Can't execute git init";

-    

-  # Add git-daemon-export-ok

-  {

-    my $file = "$rep/git-daemon-export-ok";

-    open my $fh, '>', $file

-      or croak "Can't create git-daemon-export-ok: $!"

-  }

-  

-  # HTTP support

-  my @git_update_server_info_cmd = $self->_cmd(

-    $user,

-    $project,

-    '--bare',

-    'update-server-info'

-  );

-  system(@git_update_server_info_cmd) == 0

-    or croak "Can't execute git --bare update-server-info";

-  move("$rep/hooks/post-update.sample", "$rep/hooks/post-update")

-    or croak "Can't move post-update";

-  

-  # Description

-  if (my $description = $opts->{description}) {

-    my $file = "$rep/description";

-    open my $fh, '>', $file

-      or croak "Can't open $file: $!";

-    print $fh $description

-      or croak "Can't write $file: $!";

-    close $fh;

-  }

-}

-

 sub branch_exists {

   my ($self, $user, $project) = @_;

@@ -316,31 +253,63 @@ sub branch_commits {

   return $commits;

 }

-sub separated_commit {

-  my ($self, $user, $project, $rev1, $rev2) = @_;

+sub check_head_link {

+  my ($self, $dir) = @_;

-  # Command "git diff-tree"

-  my @cmd = $self->_cmd(

-    $user,

-    $project,

-    'show-branch',

-    $rev1,

-    $rev2

-  );

-  open my $fh, "-|", @cmd

-    or croak 500, "Open git-show-branch failed";

+  # Chack head

+  my $head_file = "$dir/HEAD";

+  return ((-e $head_file) ||

+    (-l $head_file && readlink($head_file) =~ /^refs\/heads\//));

+}

-  my $commits = [];

-  my $start;

-  my @lines = <$fh>;

-  my $last_line = pop @lines;

-  my $commit;

-  if (defined $last_line) {

-      my ($id) = $last_line =~ /^.*?\[(.+)?\]/;

-      $commit = $self->parse_commit($user, $project, $id);

-  }

+sub create_repository {

+  my ($self, $user, $project, $opts) = @_;

-  return $commit;

+  my $rep_home = $self->rep_home;

+  my $rep = "$rep_home/$user/$project.git";

+  eval {

+    # Repository

+    mkpath $rep;

+      

+    # Git init

+    my @git_init_cmd = $self->_cmd($user, $project, 'init', '--bare');

+    system(@git_init_cmd) == 0

+      or croak "Can't execute git init";

+      

+    # Add git-daemon-export-ok

+    {

+      my $file = "$rep/git-daemon-export-ok";

+      open my $fh, '>', $file

+        or croak "Can't create git-daemon-export-ok: $!"

+    }

+    

+    # HTTP support

+    my @git_update_server_info_cmd = $self->_cmd(

+      $user,

+      $project,

+      '--bare',

+      'update-server-info'

+    );

+    system(@git_update_server_info_cmd) == 0

+      or croak "Can't execute git --bare update-server-info";

+    move("$rep/hooks/post-update.sample", "$rep/hooks/post-update")

+      or croak "Can't move post-update";

+    

+    # Description

+    if (my $description = $opts->{description}) {

+      my $file = "$rep/description";

+      open my $fh, '>', $file

+        or croak "Can't open $file: $!";

+      print $fh $description

+        or croak "Can't write $file: $!";

+      close $fh;

+    }

+  };

+  if ($@) {

+    my $error = $@;

+    $self->remove_repository($user, $project);

+    die "$error\n";

+  }

 }

 sub commits_number {

@@ -363,6 +332,12 @@ sub commits_number {

   return $commits_num;

 }

+sub exists_repository {

+  my ($self, $user, $project) = @_;

+  

+  return -e $self->rep($user, $project);

+}

+

 sub file_type {

   my ($self, $mode) = @_;

@@ -732,6 +707,7 @@ sub projects {

       $rep->{age} = $activity[0];

       $rep->{age_string} = $activity[1];

     }

+    else { $rep->{age} = 0 }

     my $description = $self->description($user, $project) || '';

     $rep->{description} = $self->_chop_str($description, 25, 5);

@@ -1151,6 +1127,16 @@ sub parse_ls_tree_line {

   return \%res;

 }

+sub remove_repository {

+  my ($self, $user, $project) = @_;

+

+  my $rep_home = $self->rep_home;

+  croak "Can't remove repository. repositry home is empty"

+    if !defined $rep_home || $rep_home eq '';

+  my $rep = "$rep_home/$user/$project.git";

+  rmtree $rep;

+}

+

 sub search_bin {

   my $self = shift;

@@ -1175,6 +1161,33 @@ sub search_bin {

   return;

 }

+sub separated_commit {

+  my ($self, $user, $project, $rev1, $rev2) = @_;

+  

+  # Command "git diff-tree"

+  my @cmd = $self->_cmd(

+    $user,

+    $project,

+    'show-branch',

+    $rev1,

+    $rev2

+  );

+  open my $fh, "-|", @cmd

+    or croak 500, "Open git-show-branch failed";

+

+  my $commits = [];

+  my $start;

+  my @lines = <$fh>;

+  my $last_line = pop @lines;

+  my $commit;

+  if (defined $last_line) {

+      my ($id) = $last_line =~ /^.*?\[(.+)?\]/;

+      $commit = $self->parse_commit($user, $project, $id);

+  }

+

+  return $commit;

+}

+

 sub snapshot_name {

   my ($self, $project, $cid) = @_;

@@ -1285,33 +1298,6 @@ sub _chop_str {

   }

 }

-sub _mode_str {

-  my $self = shift;

-  my $mode = oct shift;

-

-  # Mode to string

-  if ($self->_s_isgitlink($mode)) { return 'm---------' }

-  elsif (S_ISDIR($mode & S_IFMT)) { return 'drwxr-xr-x' }

-  elsif (S_ISLNK($mode)) { return 'lrwxrwxrwx' }

-  elsif (S_ISREG($mode)) {

-    if ($mode & S_IXUSR) {

-      return '-rwxr-xr-x';

-    } else {

-      return '-rw-r--r--'

-    }

-  } else { return '----------' }

-  

-  return;

-}

-

-sub _s_isgitlink {

-  my ($self, $mode) = @_;

-  

-  # Check if git link

-  my $s_ifgitlink = 0160000;

-  return (($mode & S_IFMT) == $s_ifgitlink)

-}

-

 sub timestamp {

   my ($self, $date) = @_;

@@ -1370,6 +1356,44 @@ sub trees {

   return $trees;

 }

+sub _cmd {

+  my ($self, $user, $project, @cmd) = @_;

+  

+  my $home = $self->rep_home;

+  

+  my $rep = "$home/$user/$project.git";

+  

+  # Execute git command

+  return ($self->bin, "--git-dir=$rep", @cmd);

+}

+

+sub _mode_str {

+  my $self = shift;

+  my $mode = oct shift;

+

+  # Mode to string

+  if ($self->_s_isgitlink($mode)) { return 'm---------' }

+  elsif (S_ISDIR($mode & S_IFMT)) { return 'drwxr-xr-x' }

+  elsif (S_ISLNK($mode)) { return 'lrwxrwxrwx' }

+  elsif (S_ISREG($mode)) {

+    if ($mode & S_IXUSR) {

+      return '-rwxr-xr-x';

+    } else {

+      return '-rw-r--r--'

+    }

+  } else { return '----------' }

+  

+  return;

+}

+

+sub _s_isgitlink {

+  my ($self, $mode) = @_;

+  

+  # Check if git link

+  my $s_ifgitlink = 0160000;

+  return (($mode & S_IFMT) == $s_ifgitlink)

+}

+

 sub _slurp {

   my ($self, $file) = @_;

@@ -1,5 +1,5 @@

 <%

-  my $op = param('op');

+  my $op = param('op') || '';

   my $errors;

   if ($op eq 'create') {

@@ -8,7 +8,7 @@

     # Validation

     my $params = $api->params;

-    my $project_check = sub {

+    my $keyword_check = sub {

       my $value = shift;

       return ($value || '') =~ /^[a-zA-Z0-9_\-]+$/

@@ -16,7 +16,7 @@

     my $rule = [

       project => [

         ['not_blank' => 'Repository name is empty'],

-        [$project_check => 'Invalid repository name']

+        [$keyword_check => 'Invalid repository name']

       ],

       description => [

         'any'

@@ -25,20 +25,49 @@

     my $validator = app->validator;

     my $vresult = $validator->validate($params, $rule);

+    # Git

+    my $git = app->git;

     if ($vresult->is_ok) {

-      my $user = session('user_id');

+      # Not logined

+      unless ($api->logined) {

+        return $self->render_exception;

+      }

+      

       my $data = $vresult->data;

+      my $user = session('user_id');

       my $project = $data->{project};

       my $description = $data->{description};

-      

-      app->git->create_repository(

-        $user,

-        $project,

-        {description => $description}

-      );

-      

-      $self->redirect_to("/$user/$project");

-      return 1;

+

+      if ($git->exists_repository($user, $project)) {

+        $errors = ['Repositry already exists'];

+      }

+      else {

+        # Create repository

+        eval {

+          $git->create_repository(

+            $user,

+            $project,

+            {description => $description}

+          );

+        };

+        $api->croak($@) if $@;

+        

+        # Create repository data

+        eval {

+          app->dbi->model('project')

+            ->insert({config => '{}'}, id => [$user, $project]);

+        };

+        if ($@) {

+          my $error = $@;

+          $git->remove_repository($user, $project);

+          $api->croak($error);

+        }

+        

+        # Go to user page

+        $self->redirect_to("/$user/$project");

+        

+        return 1;

+      }

     }

     else { $errors = $vresult->messages }

   }

@@ -2,3 +2,9 @@

 <div class="text-center" style="margin-bottom:10px">

   <a href="https://github.com/yuki-kimoto/gitprep">Gitprep</a>

 </div>

+

+% if (app->mode eq 'development') {

+  <div class="text-center">

+    <a href="<%= url_for('/dbviewer') %>">DBViewer</a>

+  </div>

+% }

@@ -19,7 +19,7 @@

       <h3>Repositories</h3>

       <table class="table">

-        % for my $rep (@$reps) {

+        % for my $rep (sort { $a->{age} <=> $b->{age} } @$reps) {

           <tr>

             % my $pname = $rep->{name};

               <td>