gitweb: remotes view for a single remote

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index e4f292add74a2edc8d3060dcd3e9ba084fdfc77a1cc6f7ea8ffb000cd85b630a..589cd089259bfeea1f01f233a14e855b1dbaa26a18434bd689359dc2aac17e05 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -5557,14 +5557,36 @@ sub git_remotes {
                or die_error(403, "Remote heads view is disabled");
 
        my $head = git_get_head_hash($project);
-       git_header_html();
-       git_print_page_nav('','', $head,undef,$head,format_ref_views('remotes'));
-       git_print_header_div('summary', $project);
+       my $remote = $input_params{'hash'};
+
+       my @remotelist;
+
+       if (defined $remote) {
+               # only display the heads in a given remote, stripping the
+               # remote name which is already visible elsewhere
+               @remotelist = map {
+                       my $ref = $_ ;
+                       $ref->{'name'} =~ s!^$remote/!!;
+                       $ref
+               } git_get_heads_list(undef, "remotes/$remote");
+       } else {
+               @remotelist = git_get_heads_list(undef, 'remotes');
+       }
+
+       git_header_html(undef, undef, -action_extra => $remote);
+       git_print_page_nav('', '',  $head, undef, $head,
+               format_ref_views($remote ? '' : 'remotes'));
+
+       if (defined $remote) {
+               git_print_header_div('remotes', "$remote remote for $project");
+       } else {
+               git_print_header_div('summary', "$project remotes");
+       }
 
-       my @remotelist = git_get_heads_list(undef, 'remotes');
        if (@remotelist) {
                git_heads_body(\@remotelist, $head);
        }
+
        git_footer_html();
 }