@@ -88,7 +88,7 @@ sub startup {

   $r->get('/:user/:repository')->to('#repository');

   # Commit

-  $r->get('/:user/:repository/commit/:id')->to('#new_commit');

+  $r->get('/:user/:repository/commit/:id')->to('#commit');

   # Commits

   $r->get('/:user/:repository/commits/(:id)', {id => 'HEAD'})->to('#commits');

@@ -97,16 +97,16 @@ sub startup {

   $r->get('/:user/:repository/branches')->to('#branches');

   # Tags

-  $r->get('/:user/:repository/tags')->to('#new_tags');

+  $r->get('/:user/:repository/tags')->to('#tags');

   # Downloads

   $r->get('/:user/:repository/downloads')->to('#downloads');

   # Tree

-  $r->get('/:user/:repository/tree/(*id_dir)')->to('#new_tree');

+  $r->get('/:user/:repository/tree/(*id_dir)')->to('#tree');

   # Blob

-  $r->get('/:user/:repository/blob/(*id_file)')->to('#new_blob');

+  $r->get('/:user/:repository/blob/(*id_file)')->to('#blob');

   # Projects

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

@@ -115,19 +115,6 @@ sub startup {

   {

     my $r = $r->route('/(*project)', project => qr/.+?\.git/);

-    # Summary

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

-    

-    # Short log

-    $r->get('/shortlog/(*id)', {id => 'HEAD'})

-      ->to('#log', short => 1)->name('shortlog');

-    

-    # Log

-    $r->get('/log/(*id)', {id => 'HEAD'})->to('#log')->name('log');

-    

-    # Commit

-    $r->get('/commit/(*id)')->to('#commit')->name('commit');

-    

     # Commit diff

     $r->get('/commitdiff/(*diff)')->to('#commitdiff')->name('commitdiff');

@@ -135,22 +122,6 @@ sub startup {

     $r->get('/commitdiff-plain/(*diff)')

       ->to('#commitdiff', plain => 1)->name('commitdiff_plain');

-    # Tags

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

-    

-    # Tag

-    $r->get('/tag/(*id)')->to('#tag')->name('tag');

-    

-    # Heads

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

-    

-    # Tree

-    $r->get('/tree/(*id_dir)', {id_dir => 'HEAD'})

-      ->to('#tree')->name('tree');

-    

-    # Blob

-    $r->get('/blob/(*id_file)')->to('#blob')->name('blob');

-    

     # Blob plain

     $r->get('/blob-plain/(*id_file)')

       ->to('#blob', plain => 1)->name('blob_plain');

@@ -162,10 +133,6 @@ sub startup {

     # Blob diff plain

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

       ->to('#blobdiff', plain => 1)->name('blobdiff_plain');

-    

-    # Snapshot

-    $r->get('/snapshot/(:id)', {id => 'HEAD'})

-      ->to('#snapshot')->name('snapshot');

   }

   # File cache

@@ -388,414 +388,4 @@ sub _quote_command {

     map { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ );

 }

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-#---------- No need -------------#

-sub log {

-  my ($self, %opt) = @_;

-

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id = $self->param('id');

-  my $page = $self->param('page');

-  $page = 0 if !defined $page;

-  my $short = $self->param('short');

-  

-  # Git

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

-  

-  # Commit

-  my $commit = $git->parse_commit($project, $id);

-  

-  # Commits

-  my $page_count = $short ? 50 : 20;

-  my $commits = $git->parse_commits(

-    $project, $commit->{id},$page_count, $page_count * $page);

-  for my $commit (@$commits) {

-    my $author_date

-      = $git->parse_date($commit->{author_epoch}, $commit->{author_tz});

-    $commit->{author_date} = $git->timestamp($author_date);

-  }

-  

-  # References

-  my $refs = $git->references($project);

-

-  # Render

-  $self->stash->{action} = 'shortlog' if $short;

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    id => $id,

-    commits => $commits,

-    refs => $refs,

-    page => $page,

-    page_count => $page_count

-  );

-};

-

-sub tags {

-  my $self = shift;

-  

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  

-  # Git

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

-  

-  # Ref names

-  my $tags  = $git->tags($project);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    tags => $tags,

-  );

-}

-

-=pod

-sub branches {

-  my $self = shift;

-

-  # API

-  my $api = Gitprep::API->new($self);

-

-  my $user = $self->param('user');

-  my $repository = $self->param('repository');

-

-  my $root_ns = $api->root_ns($self->config->{root});

-  

-  # Parameters

-  my $project_ns = "$root_ns/$user/$repository.git";

-  my $project = "/$project_ns";

-  my $home_ns = $api->dirname($project_ns);

-  my $home = "/$home_ns";

-  

-  # Git

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

-  

-  # Ref names

-  my $heads  = $git->heads($project);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    heads => $heads,

-  );

-}

-

-=cut

-

-=pod

-sub commits {

-  my ($self, %opt) = @_;

-  

-  # API

-  my $api = Gitprep::API->new($self);

-  

-  my $user = $self->param('user');

-  my $repository = $self->param('repository');

-

-  my $root_ns = $api->root_ns($self->config->{root});

-  

-  # Parameters

-  my $project_ns = "$root_ns/$user/$repository.git";

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id = $self->param('id');

-  my $page = $self->param('page');

-  $page = 0 if !defined $page;

-  my $short = $self->param('short');

-  

-  # Git

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

-  

-  # Commit

-  my $commit = $git->parse_commit($project, $id);

-  

-  # Commits

-  my $page_count = $short ? 50 : 20;

-  my $commits = $git->parse_commits(

-    $project, $commit->{id},$page_count, $page_count * $page);

-  for my $commit (@$commits) {

-    my $author_date

-      = $git->parse_date($commit->{author_epoch}, $commit->{author_tz});

-    $commit->{author_date} = $git->timestamp($author_date);

-  }

-  

-  # References

-  my $refs = $git->references($project);

-

-  # Render

-  $self->stash->{action} = 'shortlog' if $short;

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    id => $id,

-    commits => $commits,

-    refs => $refs,

-    page => $page,

-    page_count => $page_count

-  );

-};

-=cut

-

-sub heads {

-  my $self = shift;

-  

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  

-  # Git

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

-  

-  # Ref names

-  my $heads  = $git->heads($project);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    heads => $heads,

-  );

-}

-

-sub commit {

-  my $self = shift;

-

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id = $self->param('id');

-  

-  # Git

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

-

-  # Commit

-  my $commit = $git->parse_commit($project, $id);

-  my $committer_date

-    = $git->parse_date($commit->{committer_epoch}, $commit->{committer_tz});

-  my $author_date

-    = $git->parse_date($commit->{author_epoch}, $commit->{author_tz});

-  $commit->{author_date} = $git->timestamp($author_date);

-  $commit->{committer_date} = $git->timestamp($committer_date);

-  

-  # References

-  my $refs = $git->references($project);

-  

-  # Diff tree

-  my $parent = $commit->{parent};

-  my $parents = $commit->{parents};

-  my $difftrees = $git->difftree($project, $commit->{id}, $parent, $parents);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    id => $id,

-    commit => $commit,

-    refs => $refs,

-    difftrees => $difftrees,

-  );

-}

-

-sub tree {

-  my $self = shift;

-  

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id_dir = $self->param('id_dir');

-

-  # Id and directory

-  my ($id, $dir) = $self->_parse_id_path($project, $id_dir);

-

-  # Git

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

-  

-  # Tree id

-  my $tid;

-  my $commit = $git->parse_commit($project, $id);

-  unless (defined $tid) {

-    if (defined $dir && $dir ne '') {

-      $tid = $git->id_by_path($project, $id, $dir, 'tree');

-    }

-    else { $tid = $commit->{tree} }

-  }

-  $self->render_not_found unless defined $tid;

-

-  # Get tree (command "git ls-tree")

-  my @entries = ();

-  my $show_sizes = 0;

-  open my $fh, '-|', $git->cmd($project), 'ls-tree', '-z',

-      ($show_sizes ? '-l' : ()), $tid

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

-  local $/ = "\0";

-  @entries = map { chomp; $git->dec($_) } <$fh>;

-  close $fh

-    or croak 404, "Reading tree failed";

-  

-  # Parse tree

-  my @trees;

-  for my $line (@entries) {

-    my $tree = $git->parse_ls_tree_line($line, -z => 1, -l => $show_sizes);

-    $tree->{mode_str} = $git->_mode_str($tree->{mode});

-    push @trees, $tree;

-  }

-  

-  # References

-  my $refs = $git->references($project);

-  

-  # Render

-  $self->render(

-    home => $home,

-    home_ns => $home_ns,

-    project => $project,

-    project_ns => $project_ns,

-    dir => $dir,

-    id => $id,

-    tid => $tid,

-    commit => $commit,

-    trees => \@trees,

-    refs => $refs

-  );

-}

-

-sub blob {

-  my $self = shift;

-

-  # Parameters

-  my $project_ns = $self->param('project');

-  my $project = "/$project_ns";

-  my $home_ns = dirname $project_ns;

-  my $home = "/$home_ns";

-  my $id_file = $self->param('id_file');

-

-  # Id and file

-  my ($id, $file) = $self->_parse_id_path($project, $id_file);

-

-  # Git

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

-

-  # Blob content

-  my $bid = $git->id_by_path($project, $id, $file, 'blob')

-    or croak 'Cannot find file';

-  my @cmd = ($git->cmd($project), 'cat-file', 'blob', $bid);

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

-    or croak qq/Couldn't cat "$file", "$bid"/;

-  

-  # Blob plain

-  if ($self->stash('plain')) {

-    # Content type

-    my $type = $git->blob_contenttype($fh, $file);

-

-    # Convert text/* content type to text/plain

-    if ($self->config('prevent_xss') &&

-      ($type =~ m#^text/[a-z]+\b(.*)$# ||

-      ($type =~ m#^[a-z]+/[a-z]\+xml\b(.*)$# && -T $fh)))

-    {

-      my $rest = $1;

-      $rest = defined $rest ? $rest : '';

-      $type = "text/plain$rest";

-    }

-

-    # File name

-    my $file_name = $id;

-    if (defined $file) { $file_name = $file }

-    elsif ($type =~ m/^text\//) { $file_name .= '.txt' }

-    

-    # Content

-    my $content = do { local $/; <$fh> };

-    my $sandbox = $self->config('prevent_xss') &&

-      $type !~ m#^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)#;

-    my $content_disposition = $sandbox ? 'attachment' : 'inline';

-    $content_disposition .= "; filename=$file_name";

-    

-    # Render

-    $self->res->headers->content_disposition($content_disposition);

-    $self->res->headers->content_type($type);

-    $self->render_data($content);

-  }

-  

-  # Blob

-  else {

-    # MIME type

-    my $mimetype = $git->blob_mimetype($fh, $file);

-    

-    # Redirect to blob-plain if no display MIME type

-    if ($mimetype !~ m#^(?:text/|image/(?:gif|png|jpeg)$)# && -B $fh) {

-      close $fh;

-      my $url = $self->url_for('blob_plain',

-        project => $project_ns, id_file => "$id/$file");

-      

-      return $self->redirect_to($url);

-    }

-    

-    # Commit

-    my $commit = $git->parse_commit($project, $id);

-

-    # Parse line

-    my @lines;

-    while (my $line = $git->dec(scalar <$fh>)) {

-      chomp $line;

-      $line = $git->_tab_to_space($line);

-      push @lines, $line;

-    }

-    

-    # Render

-    $self->render(

-      home => $home,

-      home_ns => $home_ns,

-      project => $project,

-      project_ns => $project_ns,

-      commit => $commit,

-      id => $id,

-      file => $file,

-      bid => $bid,

-      lines => \@lines,

-      mimetype => $mimetype

-    );

-  }

-}

-

 1;

@@ -43,7 +43,9 @@

         <a href="<%= url_for("/setting/profile") %>"><s>Account setting</s></a>

       </li>

       <li><a href="<%= url_for("/new") %>"><s>Create a new repo</s></a></li>

-      <li><a href="<%= url_for("/$user") %>"><%= $user %></a></li>

+      % if (my $user = stash('user')) {

+        <li><a href="<%= url_for("/$user") %>"><%= $user %></a></li>

+      % }

     </ul>

   </div>

 </div>

@@ -1,40 +1,154 @@

-% layout 'common';

-  %= include '/include/header', title => 'Blob', project => $project;

-  %= include '/include/current_directory', home_ns => $home_ns, home => $home;

-  %= include '/include/page_navi', current => 'blob', head_id => $id, project_ns => $project_ns;

-  <div class="page_nav">

-    <a href="<%= url_for('blob_plain', project => $project_ns, id_file => "$id/$file") %>">

-      Raw

-    </a>

-    |

-    % my $head_id = gitprep_get_head_id($project);

-    <a href="<%= url_for('blob', project => $project_ns, id_file => "HEAD/$file") %>">

-      HEAD

-    </a>

-    <br/>

-  </div>

-  <div class="header">

-  <a class="title" href= "<%= url_for('commit', project => $project_ns, id => $id) %>">

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

-  </a>

-  </div>

+<%

+  # API

+  my $api = Gitprep::API->new($self);

+  

+  my $user = param('user');

+  my $repository = param('repository');

+  my $plain = param('plain');

+

+  my $root_ns = $api->root_ns(config->{root});

+  

+  # Parameters

+  my $rep_ns = "$root_ns/$user/$repository.git";

+  my $rep = "/$rep_ns";

+  my $home_ns = $api->dirname($rep_ns);

+  my $home = "/$home_ns";

+  my $id_file = param('id_file');

+

+  # Id and file

+  my ($id, $file) = $api->parse_id_path($rep, $id_file);

+

+  # Git

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

+  

+  # Commit

+  my $commit_log = $git->latest_commit_log($rep, $id, $file);

+  

+  # Blob content

+  my $bid = $git->id_by_path($rep, $id, $file, 'blob')

+    or $api->croak('Cannot find file');

+  my @cmd = ($git->cmd($rep), 'cat-file', 'blob', $bid);

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

+    or $api->croak(qq/Couldn't cat "$file", "$bid"/);

+  

+  # Blob plain

+  my $commit;

+  my $mimetype;

+  my $lines =[];

+  if ($plain) {

+    # Content type

+    my $type = $git->blob_contenttype($fh, $file);

+

+    # Convert text/* content type to text/plain

+    if ($self->config('prevent_xss') &&

+      ($type =~ m#^text/[a-z]+\b(.*)$# ||

+      ($type =~ m#^[a-z]+/[a-z]\+xml\b(.*)$# && -T $fh)))

+    {

+      my $rest = $1;

+      $rest = defined $rest ? $rest : '';

+      $type = "text/plain$rest";

+    }

+

+    # File name

+    my $file_name = $id;

+    if (defined $file) { $file_name = $file }

+    elsif ($type =~ m/^text\//) { $file_name .= '.txt' }

+    

+    # Content

+    my $content = do { local $/; <$fh> };

+    my $sandbox = $self->config('prevent_xss') &&

+      $type !~ m#^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)#;

+    my $content_disposition = $sandbox ? 'attachment' : 'inline';

+    $content_disposition .= "; filename=$file_name";

+    

+    # Render

+    $self->res->headers->content_disposition($content_disposition);

+    $self->res->headers->content_type($type);

+    $self->render_data($content);

+  }

+  

+  # Blob

+  else {

+    # MIME type

+    $mimetype = $git->blob_mimetype($fh, $file);

+    

+    # Redirect to blob-plain if no display MIME type

+    if ($mimetype !~ m#^(?:text/|image/(?:gif|png|jpeg)$)# && -B $fh) {

+      close $fh;

+      my $url = $self->url_for('blob_plain',

+        project => $rep_ns, id_file => "$id/$file");

+      

+      return $self->redirect_to($url);

+    }

+    

+    # Commit

+    $commit = $git->parse_commit($rep, $id);

+

+    # Parse line

+    while (my $line = $git->dec(scalar <$fh>)) {

+      chomp $line;

+      $line = $git->_tab_to_space($line);

+      push @$lines, $line;

+    }

+  }

+  

+  # Global variable

+  stash(id => $id);

+%>

+

+% layout 'new_common';

+  %= include '/css/common';

+  

+  %= stylesheet begin

+    

+  % end

+

+  %= include '/include/header';

+

+  <div class="main_panel">

+    %= include '/include/sub_header';

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

+    %= include '/include/code_menu';

+    %= stylesheet begin

+      /* Code menu */

+      .code_menu_files {

+        border:1px solid #E5E5E5;

+        border-bottom:none;

+        background-color:white;

+        font-weight:bold;

+      }

+      .code_menu_files a {

+        color:#333

+      }

+    % end

-  <div class="page_body">

-    % if ($mimetype =~ m#^image/#) {

-      <img type="<%= $mimetype %>

-        % if (defined $file) {

-          alt="<%= $file %>" title="<%= $file %>"

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

+    

+    <div>

+      <div>

+        <div><%= $commit_log->{author} %></div>

+        <div><%= $commit_log->{author_date} %></div>

+        <div><%= $commit_log->{comment} %></div>

+      </div>

+      <div></div>

+    </div>

+    

+    <div class="page_body">

+      % if ($mimetype =~ m#^image/#) {

+        <img type="<%= $mimetype %>

+          % if (defined $file) {

+            alt="<%= $file %>" title="<%= $file %>"

+          % }

+          src="<%= url_for('blob_plain', project => $rep_ns, id_file => "$id/$file") %>"

+        />

+      % } else {

+        % my $nr = 1;

+        % for my $line (@$lines) {

+          % my $nr4 = sprintf("%4i", $nr);

+          <div class="pre"><a id="l<%= $nr %>" href="<%#l<%= $nr %>" class="linenr"><%= $nr4 %></a> <%= $line %></div>

+          % $nr++;

         % }

-        src="<%= url_for('blob_plain', project => $project_ns, id_file => "$id/$file") %>"

-      />

-    % } else {

-      % my $nr = 1;

-      % for my $line (@$lines) {

-        % my $nr4 = sprintf("%4i", $nr);

-        <div class="pre"><a id="l<%= $nr %>" href="<%#l<%= $nr %>" class="linenr"><%= $nr4 %></a> <%= $line %></div>

-        % $nr++;

       % }

-    % }

+    </div>

   </div>

+  %= include '/include/footer';

@@ -1,7 +1,44 @@

+<%

+  # API

+  my $api = Gitprep::API->new($self);

+  

+  my $user = param('user');

+  my $repository = param('repository');

+  my $id = param('id');

+

+  my $root_ns = $api->root_ns(config->{root});

+  

+  # Parameters

+  my $project_ns = "$root_ns/$user/$repository.git";

+  my $project = "/$project_ns";

+  my $home_ns = $api->dirname($project_ns);

+  my $home = "/$home_ns";

+  

+  # Git

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

+

+  # Commit

+  my $commit = $git->parse_commit($project, $id);

+  my $committer_date

+    = $git->parse_date($commit->{committer_epoch}, $commit->{committer_tz});

+  my $author_date

+    = $git->parse_date($commit->{author_epoch}, $commit->{author_tz});

+  $commit->{author_date} = $git->timestamp($author_date);

+  $commit->{committer_date} = $git->timestamp($committer_date);

+  

+  # References

+  my $refs = $git->references($project);

+  

+  # Diff tree

+  my $parent = $commit->{parent};

+  my $parents = $commit->{parents};

+  my $difftrees = $git->difftree($project, $commit->{id}, $parent, $parents);

+

+%>

+

 % layout 'common';

   %= include '/include/header', title => 'Commit', project => $project;

   %= include '/include/current_directory', home_ns => $home_ns, home => $home;

-  %= include '/include/page_navi', current => 'commit', project_ns => $project_ns, id => $commit->{id};

   <div class="page_nav">

     % my $parent = $commit->{parent};

@@ -41,7 +78,7 @@

     % }

   </div>

   <div class="title_text">

-    %= include 'include/refs', project => $project_ns, commit => $commit, refs => $refs;

+    %= include 'include/refs', project_ns => $project_ns, project => $project_ns, commit => $commit, refs => $refs;

     <table class="object_header">

       <tr>

         <td>author</td>

@@ -119,4 +156,4 @@

   <div class="list_head">

   </div>

   <%= include '/include/difftree', id => $commit->{id}, from_id => $from_id,

-    difftrees => $difftrees, parents => $commit->{parents} %>

+    difftrees => $difftrees, parents => $commit->{parents}, project_ns => $project_ns%>

@@ -1,154 +0,0 @@

-<%

-  # API

-  my $api = Gitprep::API->new($self);

-  

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

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

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

-

-  my $root_ns = $api->root_ns(config->{root});

-  

-  # Parameters

-  my $rep_ns = "$root_ns/$user/$repository.git";

-  my $rep = "/$rep_ns";

-  my $home_ns = $api->dirname($rep_ns);

-  my $home = "/$home_ns";

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

-

-  # Id and file

-  my ($id, $file) = $api->parse_id_path($rep, $id_file);

-

-  # Git

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

-  

-  # Commit

-  my $commit_log = $git->latest_commit_log($rep, $id, $file);

-  

-  # Blob content

-  my $bid = $git->id_by_path($rep, $id, $file, 'blob')

-    or $api->croak('Cannot find file');

-  my @cmd = ($git->cmd($rep), 'cat-file', 'blob', $bid);

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

-    or $api->croak(qq/Couldn't cat "$file", "$bid"/);

-  

-  # Blob plain

-  my $commit;

-  my $mimetype;

-  my $lines =[];

-  if ($plain) {

-    # Content type

-    my $type = $git->blob_contenttype($fh, $file);

-

-    # Convert text/* content type to text/plain

-    if ($self->config('prevent_xss') &&

-      ($type =~ m#^text/[a-z]+\b(.*)$# ||

-      ($type =~ m#^[a-z]+/[a-z]\+xml\b(.*)$# && -T $fh)))

-    {

-      my $rest = $1;

-      $rest = defined $rest ? $rest : '';

-      $type = "text/plain$rest";

-    }

-

-    # File name

-    my $file_name = $id;

-    if (defined $file) { $file_name = $file }

-    elsif ($type =~ m/^text\//) { $file_name .= '.txt' }

-    

-    # Content

-    my $content = do { local $/; <$fh> };

-    my $sandbox = $self->config('prevent_xss') &&

-      $type !~ m#^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)#;

-    my $content_disposition = $sandbox ? 'attachment' : 'inline';

-    $content_disposition .= "; filename=$file_name";

-    

-    # Render

-    $self->res->headers->content_disposition($content_disposition);

-    $self->res->headers->content_type($type);

-    $self->render_data($content);

-  }

-  

-  # Blob

-  else {

-    # MIME type

-    $mimetype = $git->blob_mimetype($fh, $file);

-    

-    # Redirect to blob-plain if no display MIME type

-    if ($mimetype !~ m#^(?:text/|image/(?:gif|png|jpeg)$)# && -B $fh) {

-      close $fh;

-      my $url = $self->url_for('blob_plain',

-        project => $rep_ns, id_file => "$id/$file");

-      

-      return $self->redirect_to($url);

-    }

-    

-    # Commit

-    $commit = $git->parse_commit($rep, $id);

-

-    # Parse line

-    while (my $line = $git->dec(scalar <$fh>)) {

-      chomp $line;

-      $line = $git->_tab_to_space($line);

-      push @$lines, $line;

-    }

-  }

-  

-  # Global variable

-  stash(id => $id);

-%>

-

-% layout 'new_common';

-  %= include '/css/common';

-  

-  %= stylesheet begin

-    

-  % end

-

-  %= include '/include/header';

-

-  <div class="main_panel">

-    %= include '/include/sub_header';

-

-    %= include '/include/code_menu';

-    %= stylesheet begin

-      /* Code menu */

-      .code_menu_files {

-        border:1px solid #E5E5E5;

-        border-bottom:none;

-        background-color:white;

-        font-weight:bold;

-      }

-      .code_menu_files a {

-        color:#333

-      }

-    % end

-

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

-    

-    <div>

-      <div>

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

-        <div><%= $commit_log->{author_date} %></div>

-        <div><%= $commit_log->{comment} %></div>

-      </div>

-      <div></div>

-    </div>

-    

-    <div class="page_body">

-      % if ($mimetype =~ m#^image/#) {

-        <img type="<%= $mimetype %>

-          % if (defined $file) {

-            alt="<%= $file %>" title="<%= $file %>"

-          % }

-          src="<%= url_for('blob_plain', project => $rep_ns, id_file => "$id/$file") %>"

-        />

-      % } else {

-        % my $nr = 1;

-        % for my $line (@$lines) {

-          % my $nr4 = sprintf("%4i", $nr);

-          <div class="pre"><a id="l<%= $nr %>" href="<%#l<%= $nr %>" class="linenr"><%= $nr4 %></a> <%= $line %></div>

-          % $nr++;

-        % }

-      % }

-    </div>

-  </div>

-  %= include '/include/footer';

@@ -1,159 +0,0 @@

-<%

-  # API

-  my $api = Gitprep::API->new($self);

-  

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

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

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

-

-  my $root_ns = $api->root_ns(config->{root});

-  

-  # Parameters

-  my $project_ns = "$root_ns/$user/$repository.git";

-  my $project = "/$project_ns";

-  my $home_ns = $api->dirname($project_ns);

-  my $home = "/$home_ns";

-  

-  # Git

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

-

-  # Commit

-  my $commit = $git->parse_commit($project, $id);

-  my $committer_date

-    = $git->parse_date($commit->{committer_epoch}, $commit->{committer_tz});

-  my $author_date

-    = $git->parse_date($commit->{author_epoch}, $commit->{author_tz});

-  $commit->{author_date} = $git->timestamp($author_date);

-  $commit->{committer_date} = $git->timestamp($committer_date);

-  

-  # References

-  my $refs = $git->references($project);

-  

-  # Diff tree

-  my $parent = $commit->{parent};

-  my $parents = $commit->{parents};

-  my $difftrees = $git->difftree($project, $commit->{id}, $parent, $parents);

-

-%>

-

-% layout 'common';

-  %= include '/include/header', title => 'Commit', project => $project;

-  %= include '/include/current_directory', home_ns => $home_ns, home => $home;

-

-  <div class="page_nav">

-    % my $parent = $commit->{parent};

-    % my $parents = $commit->{parents};

-    % my $from_id = $parent;

-    

-    % if (!defined $parent) {

-      (initial)

-    % }

-    % elsif (@$parents == 1) {

-      (

-        parent:

-        <a href="<%= url_for('commit', project => $project_ns, id => $parent) %>">

-          <%= substr($parent, 0, 7) %>

-        </a>

-      )

-    % } else {

-      (

-        merge:

-        % for my $parent (@$parents) {

-          <a href="<%= url_for('commit', project => $project_ns, id => $parent) %>">

-            <%= substr($parent, 0, 7) %></a>

-        % }

-      )

-    % }

-  </div>

-

-  <div class="header">

-    % if (defined $parent) {

-      <a class="title" href="<%= url_for('commitdiff', project => $project_ns, diff => $commit->{id}) %>">

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

-      </a>

-    % } else {

-      <a class="title" href="<%= url_for('tree', project => $project_ns, id_dir => $commit->{id}) %>">

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

-      </a>

-    % }

-  </div>

-  <div class="title_text">

-    %= include 'include/refs', project_ns => $project_ns, project => $project_ns, commit => $commit, refs => $refs;

-    <table class="object_header">

-      <tr>

-        <td>author</td>

-        <td><%= $commit->{author} %></td>

-        <td rowspan="2"></td>

-      </tr>

-      <tr>

-        <td></td>

-        <td><%= $commit->{author_date} %></td>

-      </tr>

-      <tr>

-        <td>committer</td>

-        <td><%= $commit->{committer} %></td>

-        <td rowspan="2"></td>

-      </tr>

-      <tr>

-        <td></td>

-        <td><%= $commit->{committer_date} %></td>

-      </tr>

-      <tr>

-        <td>commit</td>

-        <td class="sha1"><%= $commit->{id} %></td>

-      </tr>

-      <tr>

-        <td>tree</td>

-        <td class="sha1">

-          <a class="list" href="<%= url_for('tree', project => $project_ns, id_dir => $commit->{id}) %>">

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

-          </a>

-        </td>

-        <td class="link">

-          <a href="<%= url_for('tree', project => $project_ns, id_dir => $commit->{id}) %>">

-            tree

-          </a>

-          |

-          <a title="in format: tar.gz" rel="nofollow"

-              href="<%= url_for('snapshot', project => $project_ns, id => $commit->{id}) %>">

-            snapshot

-          </a>

-        </td>

-      </tr>

-      % for my $parent (@$parents) {

-        % my $from_id = $parent;

-        <tr>

-          <td>

-            parent

-          </td>

-          <td class="sha1">

-            <a class="list" href="<%= url_for('commit', project => $project_ns, id => $from_id) %>">

-              <%= $from_id %>

-            </a>

-          </td>

-          <td class="link">

-            <a href="<%= url_for('commit', project => $project_ns, id => $from_id) %>">

-              commit

-            </a>

-            |

-            <a href="<%= url_for('commitdiff', project => $project_ns,

-                diff => "$from_id..$commit->{id}") %>">

-              diff

-            </a>

-          </td>

-        </tr>

-      % }

-    </table>

-  </div>

-  <div class="page_body">

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

-    <br/>

-    % for (my $i = 1; $i < @{$commit->{comment}}; $i++) {

-      &nbsp;<%= $commit->{comment}->[$i] %>

-      <br>

-    % }

-  </div>

-  <div class="list_head">

-  </div>

-  <%= include '/include/difftree', id => $commit->{id}, from_id => $from_id,

-    difftrees => $difftrees, parents => $commit->{parents}, project_ns => $project_ns%>

@@ -1,137 +0,0 @@

-<%

-  # API

-  my $api = Gitprep::API->new($self);

-

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

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

-

-  my $root_ns = $api->root_ns(config->{root});

-  

-  # Parameters

-  my $project_ns = "$root_ns/$user/$repository.git";

-  my $project = "/$project_ns";

-  my $home_ns = $api->dirname($project_ns);

-  my $home = "/$home_ns";

-  

-  # Git

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

-  

-  # Ref names

-  my $tags  = $git->tags($project);

-  for my $tag (@$tags) {

-    $tag->{commit} = $git->parse_commit($project, $tag->{name});

-  }

-%>

-

-% layout 'new_common';

-  %= include '/css/common';

-  

-  %= stylesheet begin

-    /* h2 */

-    h2 {

-      font-size:120%;

-      padding-bottom:15px;

-    }

-    

-    /* tags number */

-    .tags_number {

-      color:#666;

-      padding-bottom:5px;

-    }

-    

-    /* tags */

-    .tags {

-      font-size:95%;

-      border-top:1px solid #E5E5E5;

-    }

-    .tag {

-      border-bottom:1px solid #E5E5E5;

-      padding:5px;

-    }

-    

-    .tag .top {

-      padding-bottom:3px;

-    }

-    .tag a.name {

-      font-weight:bold;

-      color:#4183C4;

-    }

-    .tag a.archive {

-      font-size:70%;

-      color:#4183C4;

-      display:none;

-    }

-    .tag a.commit {

-      color:#666;

-    }

-    .tag .uploaded {

-      color:#666;

-    }

-  % end

-  

-  %= javascript begin

-    $(document).ready(function () {

-      $(".tag").on({

-        "mouseenter": function () {

-          $(this).find('a.archive').css('display', 'inline');

-        },

-        "mouseleave": function () {

-          $(this).find('a.archive').css('display', 'none');

-        }

-      })

-    });

-  % end

-  

-  %= include '/include/header';

-

-  <div class="main_panel">

-    %= include '/include/sub_header';

-    

-    %= include '/include/code_menu';

-    %= stylesheet begin

-      /* Code menu */

-      .code_menu_tags {

-        border:1px solid #E5E5E5;

-        border-bottom:none;

-        background-color:white;

-        font-weight:bold;

-      }

-      .code_menu_tags a {

-        color:#333

-      }

-      

-    % end

-    

-    <h2><%= @$tags %> tags</h2>

-    

-    <div class="tags">

-      % for (my $i = 0; $i < @$tags; $i++) {

-        % my $tag = $tags->[$i];

-        % my $name = $tag->{name};

-        <div class="tag">

-          <div class="top">

-            <a class="name ubar" href="<%= url_for("/$user/$repository/archive/$name.zip") %>" title ="<%= $name %>">

-              <%= "$name.zip" %>

-            </a>

-            —

-            <span class="comment">

-              % if ($tag->{type} eq 'tag') {

-                <%= $tag->{comment_short} %>

-              % } else {

-                <%= $tag->{commit}{title_short} %>

-              % }

-            <span>

-            <a class="archive ubar" href="<%= url_for("/$user/$repository/archive/$name.zip") %>">ZIP</a>

-            <a class="archive ubar" href="<%= url_for("/$user/$repository/archive/$name.tar.gz") %>">TAR.GZ</a>

-          </div>

-          <div class="bottom">

-            <a class="commit ubar" href="<%= url_for("/$user/$repository/commit/$tag->{commit}{id}") %>"><%= substr($tag->{commit}{id}, 0, 10) %></a>

-             · 

-            <span class="uploaded">Uploaded <%= $tag->{commit}{age_string} %></span>

-          </div>

-        </div>

-      % }

-    </div>

-  </div>

-  

-  %= include '/include/footer';

@@ -1,231 +0,0 @@

-<%

-  use Gitprep::API;

-

-  # API

-  my $api = Gitprep::API->new($self);

-  

-  # Parameters

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

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

-  my $id_dir ||= param('id_dir') || 'master/';

-  my $root_ns = $api->root_ns(config->{root});

-  my $rep_ns = "$root_ns/$user/$repository.git";

-  my $rep = "/$rep_ns";

-  my $home_ns = $api->dirname($rep_ns);

-  my $home = "/$home_ns";

-

-  # Id and directory

-  my ($id, $dir) = $api->parse_id_path($rep, $id_dir);

-

-  # Git

-  my $git = app->git;

-  

-  # Tree id

-  my $tid;

-  my $commit = $git->parse_commit($rep, $id);

-  unless (defined $tid) {

-    if (defined $dir && $dir ne '') {

-      $tid = $git->id_by_path($rep, $id, $dir, 'tree');

-    }

-    else { $tid = $commit->{tree} }

-  }

-  $self->render_not_found unless defined $tid;

-  

-  # Commit log

-  my $latest_commit_log = $git->latest_commit_log($rep, $id);

-  

-  # Tree

-  my $trees = $api->trees($rep, $tid, $id, $dir);

-  

-  # Repository description

-  my $desc = $git->repository_description($rep);

-  

-  # Commits number

-  my $commits_number = $git->commits_number($rep, $id);

-  

-  # README

-  my $readme = $git->blob_plain($rep, $id, 'README');

-  

-  # Global variable

-  stash(

-    user => $user,

-    repository => $repository,

-    rep_ns => $rep_ns,

-    id => $id,

-    commit => $commit,

-    latest_commit_log => $latest_commit_log,

-    trees => $trees,

-    dir => $dir,

-    ref => $id,

-    title => "$repository/$dir at $id - $user/$repository"

-  );

-%>

-

-% layout 'new_common';

-  %= include '/css/common';

-  

-  %= javascript begin 

-    $(document).ready(function() {

-      

-      // Repository URL

-      var rep_url_bak_color = "#F5F5F5";

-      var http_rep_url = "<%= url_for("/$user/$repository.git")->to_abs %>";

-      var ssh_rep_url

-        = "<%= url_for("/$rep_ns")->to_abs->scheme('ssh')->userinfo($user)->port(config->{ssh_port}) %>";

-      var git_rep_url = "<%= url_for("/$user/$repository.git")->to_abs->scheme('git')->port('') %>";

-      $(".git_url_text").val(http_rep_url);

-      $(".git_url_http").css("background-color", "darkgray");

-      $(".git_url_http").on('click', function () {

-        $(".git_url_http").css("background-color", "darkgray");

-        $(".git_url_ssh").css("background-color", rep_url_bak_color);

-        $(".git_url_git").css("background-color", rep_url_bak_color);

-        

-        $(".git_url_text").val(http_rep_url);

-        $(".git_url_access").text("Read-only access");

-      });

-      $(".git_url_ssh").on('click', function () {

-        $(".git_url_http").css("background-color", rep_url_bak_color);

-        $(".git_url_ssh").css("background-color", "darkgray");

-        $(".git_url_git").css("background-color", rep_url_bak_color);

-        

-        $(".git_url_text").val(ssh_rep_url);

-        $(".git_url_access").text("Read-Write access");

-      });

-      $(".git_url_git").on('click', function () {

-        $(".git_url_http").css("background-color", rep_url_bak_color);

-        $(".git_url_ssh").css("background-color", rep_url_bak_color);

-        $(".git_url_git").css("background-color", "darkgray");

-        

-        $(".git_url_text").val(git_rep_url);

-        $(".git_url_access").text("Read-Only access");

-      });

-      

-    });

-  % end

-  

-  %= stylesheet begin

-    

-    /* Repository description */

-    .description {

-      padding:10px;

-      border:1px solid gray;

-      margin-top:-1px;

-    }

-    

-    /* Git URL */

-    .git_url {

-      border: 1px solid gray;

-      padding: 10px;

-      margin-top:-1px;

-      font-size:80%;

-    }

-    .git_url_zip {

-      padding:5px;

-      float:left;

-      border:1px solid gray;

-      margin-right:5px;

-      background-color:#F5F5F5;

-    }

-    .git_url_http {

-      padding:5px;

-      float:left;

-      border:1px solid gray;

-      background-color:#F5F5F5;

-    }

-    .git_url_ssh {

-      padding:5px;

-      float:left;

-      border:1px solid gray;

-      border-left:none;

-      background-color:#F5F5F5;

-    }

-    .git_url_git {

-      padding:5px;

-      float:left;

-      border:1px solid gray;

-      border-left:none;

-      background-color:#F5F5F5;

-    }

-    .git_url_text {

-      padding:3px;

-      float:left;

-      border:1px solid gray;

-      width:300px;

-      margin-right:10px;

-      border-left:none;

-      display:block;

-    }

-    .git_url_access {

-      padding:5px;

-    }

-    

-    /* Commit number */

-    .commit_number {

-      font-size:120%;

-    }

-    .commit_number_left {

-      width:700px;

-      float:left;

-    }

-    .commit_number_right {

-      text-align:right;

-    }

-    

-    /* README */

-    .readme {

-      width:100%;

-      margin: 5px auto;

-      border:2px solid gray;

-      margin-top:30px;

-      line-height:1.5em;

-    }

-    .readme_title {

-      border-bottom:1px solid gray;

-      font-size:130%;

-      font-weight:bold;

-      padding:10px;

-    }

-    .readme_body {

-      min-height: 50px;

-      font-size:120%;

-      padding:30px;

-    }

-  % end

-

-  %= include '/include/header';

-

-  <div class="main_panel">

-    %= include '/include/sub_header';

-

-    <div class="description"><%= $desc %></div>

-    

-    <div class="git_url">

-      <div class="git_url_zip"><a href="<%= url_for('/archive/master.zip') %>"><s>ZIP</s></a></div>

-      <div class="git_url_http">HTTP</div>

-      <div class="git_url_ssh">SSH</div>

-      <div class="git_url_git">Git Read-Only</div>

-      <input type="text" class="git_url_text">

-      <div class="git_url_access">Read-only access</div>

-    </div>

-    

-    %= include '/include/code_menu';

-    %= stylesheet begin

-      /* Code menu */

-      .code_menu_files {

-        border:1px solid #E5E5E5;

-        border-bottom:none;

-        background-color:white;

-        font-weight:bold;

-      }

-      .code_menu_files a {

-        color:#333

-      }

-    % end

-        

-    %= include '/include/new_page_path', type => 'tree', Path => $dir;

-

-    %= include '/include/tree';

-  </div>

-  

-  %= include '/include/footer';

-

@@ -1,8 +1,137 @@

-% layout 'common';

-  %= include '/include/header', title => 'Tags', project => $project;

-  %= include '/include/current_directory', home_ns => $home_ns, home => $home;

-  %= include '/include/page_navi', current => 'tags';

-  <div class="header">

-    <a class="title" href="<%= url_for('tags', project => $project_ns) %>">Tags</a>

+<%

+  # API

+  my $api = Gitprep::API->new($self);

+

+  my $user = param('user');

+  my $repository = param('repository');

+

+  my $root_ns = $api->root_ns(config->{root});

+  

+  # Parameters

+  my $project_ns = "$root_ns/$user/$repository.git";

+  my $project = "/$project_ns";

+  my $home_ns = $api->dirname($project_ns);

+  my $home = "/$home_ns";

+  

+  # Git

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

+  

+  # Ref names

+  my $tags  = $git->tags($project);

+  for my $tag (@$tags) {

+    $tag->{commit} = $git->parse_commit($project, $tag->{name});

+  }

+%>

+

+% layout 'new_common';

+  %= include '/css/common';

+  

+  %= stylesheet begin

+    /* h2 */

+    h2 {

+      font-size:120%;

+      padding-bottom:15px;

+    }

+    

+    /* tags number */

+    .tags_number {

+      color:#666;

+      padding-bottom:5px;

+    }

+    

+    /* tags */

+    .tags {

+      font-size:95%;

+      border-top:1px solid #E5E5E5;

+    }

+    .tag {

+      border-bottom:1px solid #E5E5E5;

+      padding:5px;

+    }

+    

+    .tag .top {

+      padding-bottom:3px;

+    }

+    .tag a.name {

+      font-weight:bold;

+      color:#4183C4;

+    }

+    .tag a.archive {

+      font-size:70%;

+      color:#4183C4;

+      display:none;

+    }