@@ -12,9 +12,6 @@ sub raw {

   # Git

   my $git = $self->app->git;

-

-  # Commit

-  my $commit_log = $git->latest_commit_log($user, $project, $rev, $file);

   # Blob raw

   my $blob_raw = $git->blob_raw($user, $project, $rev, $file);

@@ -339,15 +339,6 @@ sub commits_number {

   return $commits_num;

 }

-sub delete_project {

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

-  

-  croak "Invalid user name or project"

-    unless defined $user && defined $project;

-  my $rep = $self->rep($user, $project);

-  rmtree($rep);

-}

-

 sub description {

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

@@ -369,6 +360,28 @@ sub description {

   }

 }

+sub blob_mode {

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

+  

+  # Mode

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

+  my @cmd = $self->cmd(

+    $user,

+    $project,

+    'ls-tree',

+    $rev,

+    '--',

+    $file

+  );

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

+    or croak 'Open git-ls-tree failed';

+  my $line = $self->_dec(scalar <$fh>);

+  close $fh or return;

+  my ($mode) = ($line || '') =~ m/^([0-9]+) /;

+  

+  return $mode;

+}

+

 sub file_type {

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

@@ -390,11 +403,11 @@ sub file_type_long {

   # File type

   if ($mode !~ m/^[0-7]+$/) { return $mode }

   else { $mode = oct $mode }

-  if (S_ISGITLINK($mode)) { return 'submodule' }

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

   elsif (S_ISDIR($mode & S_IFMT)) { return 'directory' }

   elsif (S_ISLNK($mode)) { return 'symlink' }

   elsif (S_ISREG($mode)) {

-    if ($mode & S_IXUSR) { return 'executable' }

+    if ($mode & S_IXUSR) { return 'executable file' }

     else { return 'file' }

   }

   else { return 'unknown' }

@@ -594,13 +607,13 @@ sub path_by_id {

   # Command "git ls-tree"

   my @cmd = $self->cmd($user, $project, 'ls-tree', '-r', '-t', '-z', $base);

-  open my $fh, '-|' or return;

+  open my $fh, '-|', @cmd or return;

   # Get path

   local $/ = "\0";

   while (my $line = <$fh>) {

-    $line = d$line;

     chomp $line;

+    $line = $self->_dec($line);

     if ($line =~ m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {

       close $fh;

@@ -851,49 +864,6 @@ sub id_set_multi {

   else { push @{$cid->{$key}}, $value }

 }

-sub latest_commit_log {

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

-  

-  my $commit_log = {};

-  $file = '' unless defined $file;

-  

-  my @cmd = $self->cmd(

-    $user,

-    $project,

-    '--no-pager',

-    'log',

-    '-n',

-    '1',

-    '--pretty=format:%H - %an - %ar : %s', 

-    $rev,

-    '--',

-    $file

-  );

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

-    or croak 'Open git-log failed';

-  

-  local $/;

-  my $commit_log_text = $self->_dec(scalar <$fh>);

-

-  if ($commit_log_text =~ /^([0-9a-zA-Z]+) - (.+) - (.+?) : (.+)/) {

-    $commit_log->{commit} = $1;

-    $commit_log->{author} = $2;

-    $commit_log->{author_date} = $3;

-    my $comment = $4;

-    my $comment_short

-      = length $comment > 60

-      ? substr($comment, 0, 60) . '...'

-      : $comment;

-    $commit_log->{comment} = $comment_short;

-  }

-  

-  $commit_log->{author_date} =~ s/,.*$//;

-  $commit_log->{author_date} =~ s/ +ago.*$//;

-  $commit_log->{author_date} .= ' ago';

-  

-  return $commit_log;

-}

-

 sub last_change_commit {

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

@@ -11,11 +11,8 @@

   # Git

   my $git = $self->app->git;

-  # Commit log

-  my $commit_log = $git->latest_commit_log($user, $project, $rev, $file);

-

   # Commit

-  my $commit = $git->get_commit($user, $project, $rev);

+  my $commit = $git->last_change_commit($user, $project, $rev, $file);

   # Authors

   my $authors = $git->authors($user, $project, $rev, $file);

@@ -26,6 +23,10 @@

   # File size

   my $file_size = $git->blob_size_kb($user, $project, $rev, $file);

+  # File mode

+  my $mode = $git->blob_mode($user, $project, $rev, $file);

+  my $file_type = $git->file_type_long($mode);

+  

   # MIME type

   my $mimetype = $git->blob_mimetype($user, $project, $rev, $file);

@@ -43,28 +44,29 @@

     %= include '/include/page_path', type => 'blob', Path => $file;

     <div class="border-gray" style="margin-bottom:20px">

-      <div class="bk-blue-light padding5">

-        <%= $commit_log->{author} %>

-        <span class="muted"><%= $commit_log->{author_date} %></span>

-        <a href="<%= url_for("/$user/$project/commit/$rev") %>">

+      <div class="bk-blue-light" style="padding:5px">

+        <a style="color:#333;font-weight:bold" href="#" title="<%= $commit->{author_email} %>"><%= $commit->{author_name} %></a>

+        <span class="muted" title="<%= $commit->{age_string_date} %>"><%= $commit->{age_string} %></span>

+        <a style="color:#666" href="<%= url_for("/$user/$project/commit/$rev") %>">

           <%= $commit->{title} %>

         </a>

       </div>

-      <div class="padding5">

-        <%= @$authors %> contributor

+      <div style="padding:5px">

+        <b><%= @$authors %></b> <span class="muted">contributor</span>

       </div>

     </div>

-    <div class="border-gray bk-gray-light padding5">

+    <div class="border-gray bk-gray-light" style="padding:5px">

       <div class="row">

         <div class="span7" style="padding-top:5px">

           <i class="icon-file icon-white"></i>

-          <span style="color:gray">|</span>

+          <%= $file_type %>

+          <span class="muted">|</span>

           <%= @$lines %> lines

-          <span style="color:gray">|</span>

+          <span class="muted">|</span>

           <%= $file_size %>kb

         </div>

-        <div class="span4 offset1-mini text-right">

+        <div class="text-right">

           <a class="btn" href="<%= url_for("/$user/$project/raw/$rev/$file") %>">Raw</a><a class="btn" href="<%= url_for("/$user/$project/commits/$rev/$file") %>">History</a>

         </div>

       </div>