@@ -5,6 +5,9 @@

 ;;; Git command path

 ;git_bin=/usr/local/bin/git

+;;; Tags limit

+;tags_limit=1000

+

 [admin]

 ;;; If you forget admin password,

 ;;; set this value to 1 and access /reset-password page.

@@ -686,8 +686,33 @@ sub tag {

   return;

 }

+sub tags_count {

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

+  

+  my $limit = 1000;

+  

+  # Get tags

+  my @cmd = $self->cmd(

+    $user,

+    $project,

+    'for-each-ref',

+    ($limit ? '--count='.($limit+1) : ()),

+    'refs/tags'

+  );

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

+  

+  # Tags count

+  my @lines = <$fh>;

+  

+  return scalar @lines;

+}

+

 sub tags {

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

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

+  

+  $limit ||= 1000;

+  $count ||= 50;

+  $offset ||= 0;

   # Get tags

   my @cmd = $self->cmd(

@@ -702,46 +727,55 @@ sub tags {

   );

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

+  

   # Parse Tags

   my @tags;

+  my $line_num = 1;

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

-    my %tag;

-

-    chomp $line;

-    my ($refinfo, $creatorinfo) = split(/\0/, $line);

-    my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);

-    my ($creator, $epoch, $tz) =

-      ($creatorinfo =~ /^(.*) ([0-9]+) (.*)$/);

-    $tag{fullname} = $name;

-    $name =~ s!^refs/tags/!!;

-

-    $tag{type} = $type;

-    $tag{id} = $id;

-    $tag{name} = $name;

-    if ($type eq 'tag') {

-      $tag{subject} = $title;

-      $tag{reftype} = $reftype;

-      $tag{refid}   = $refid;

-    } else {

-      $tag{reftype} = $type;

-      $tag{refid}   = $id;

-    }

-

-    if ($type eq 'tag' || $type eq 'commit') {

-      $tag{epoch} = $epoch;

-      if ($epoch) {

-        $tag{age} = $self->_age_string(time - $tag{epoch});

+    if ($line_num > $offset && $line_num < $offset + $count + 1) {

+    

+      my %tag;

+

+      chomp $line;

+      my ($refinfo, $creatorinfo) = split(/\0/, $line);

+      my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);

+      my ($creator, $epoch, $tz) =

+        ($creatorinfo =~ /^(.*) ([0-9]+) (.*)$/);

+      $tag{fullname} = $name;

+      $name =~ s!^refs/tags/!!;

+

+      $tag{type} = $type;

+      $tag{id} = $id;

+      $tag{name} = $name;

+      if ($type eq 'tag') {

+        $tag{subject} = $title;

+        $tag{reftype} = $reftype;

+        $tag{refid}   = $refid;

       } else {

-        $tag{age} = 'unknown';

+        $tag{reftype} = $type;

+        $tag{refid}   = $id;

       }

-    }

-    

-    $tag{comment_short} = $self->_chop_str($tag{subject}, 30, 5)

-      if $tag{subject};

-    push @tags, \%tag;

+      if ($type eq 'tag' || $type eq 'commit') {

+        $tag{epoch} = $epoch;

+        if ($epoch) {

+          $tag{age} = $self->_age_string(time - $tag{epoch});

+        } else {

+          $tag{age} = 'unknown';

+        }

+      }

+      

+      $tag{comment_short} = $self->_chop_str($tag{subject}, 30, 5)

+        if $tag{subject};

+

+      $tag{commit} = $self->get_commit($user, $project, $name);

+

+      push @tags, \%tag;

+    }

+    $line_num++;

   }

+  

   close $fh;

   return \@tags;

@@ -1,12 +1,10 @@

 <%

-  my $tags_count = stash('tags_count') || 0;

-  my $branches_count = stash('branches_count') || 0;

   my $display = stash('display') || '';

   my $rev = stash('rev');

   $rev = app->manager->default_branch($user, $project)

     unless defined $rev;

-  my $no_merged_branch = app->git->no_merged_branches($user, $project);

-  my $tags = app->git->tags($user, $project);

+  my $branches_count = @{app->git->no_merged_branches($user, $project)};

+  my $tags_count = app->git->tags_count($user, $project);

 %>

 <ul class="nav nav-tabs" style="margin-bottom:20px">

@@ -38,13 +36,13 @@

   <li class="<%= $display eq 'branches' ? 'active' : '' %>">

     <a href="<%= url_for("/$user/$project/branches") %>">

       Branches

-      <span class="badge"><%= @$no_merged_branch || 0 %></span>

+      <span class="badge"><%= $branches_count %></span>

     </a>

   </li>

   <li class="<%= $display eq 'tags' ? 'active' : '' %>">

     <a href="<%= url_for("/$user/$project/tags") %>">

       Tags

-      <span class="badge"><%= @$tags || 0 %></span>

+      <span class="badge"><%= $tags_count > 999 ? '999+' : $tags_count %></span>

     </a>

   </li>

 </ul>

@@ -5,19 +5,21 @@

   # Parameters

   my $user = param('user');

   my $project = param('project');

+  my $page = param('page') || 1;

   # Git

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

   # Ref names

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

-  @$tags = sort {

-    $b->{commit}{age_string_date} cmp $a->{commit}{age_string_date}

-    || $b->{name} cmp $a->{name}

-  } @$tags;

-  for my $tag (@$tags) {

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

-  }

+  my $limit = app->config->{basic}{tags_limit};

+  my $page_count = 10;

+  my $tags = $git->tags(

+    $user,

+    $project,

+    $limit,

+    $page_count,

+    $page_count * ($page - 1)

+  );

 %>

 % layout 'common';

@@ -31,7 +33,6 @@

     <h3 style="font-size:20px">Tags</h3>

     % if (@$tags) {

-      % use D;d $tags;

       <div style="margin-bottom:30px">

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

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

@@ -70,6 +71,25 @@

             </div>

           </div>

         % }

+

+        <ul class="pager" style="text-align:left">

+          % if ($page == 1) {

+            <li class="disabled">&laquo; Newer</li>

+          % } else {

+            % my $newer_page = $page - 1;

+            <li class="disable">

+              <a href="<%= url_for("/$user/$project/tags?page=$newer_page") %>">&laquo; Newer</a>

+            </li>

+          % }

+          % if (@$tags < $page_count) {

+            <li class="disabled">Older &raquo;</li>

+          % } else {

+            % my $older_page = $page + 1;

+            <li>

+              <a href="<%= url_for("/$user/$project/tags?page=$older_page") %>">Older &raquo;</a>

+            </li>

+          % }

+        </ul>

       </div>

     % } else {

       <div class="well">