kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

gitweb: git_get_heads_list accepts an optional list of refs 

git_get_heads_list(limit, class1, class2, ...) can now be used to retrieve
refs/class1, refs/class2 etc. Defaults to ('heads', 'remotes') or ('heads')
depending on whether the 'remote_heads' feature is enabled or not.

Signed-off-by: Giuseppe Bilotta <giuseppe.bilotta@gmail.com>
Acked-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
maint
Giuseppe Bilotta 2010-11-11 13:26:10 +01:00 committed by Junio C Hamano
parent 60efa2451e
commit 9b3f3de16c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gitweb/gitweb.perl
View File

@ -3169,15 +3169,18 @@ sub parse_from_to_diffinfo {
## parse to array of hashes functions

sub git_get_heads_list {
my $limit = shift;
my ($limit, @classes) = @_;
unless (@classes) {
my $remote_heads = gitweb_check_feature('remote_heads');
@classes = ('heads', $remote_heads ? 'remotes' : ());
}
my @patterns = map { "refs/$_" } @classes;
my @headslist;

my $remote_heads = gitweb_check_feature('remote_heads');

open my $fd, '-|', git_cmd(), 'for-each-ref',
($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate',
'--format=%(objectname) %(refname) %(subject)%00%(committer)',
'refs/heads', ($remote_heads ? 'refs/remotes' : ())
@patterns
or return;
while (my $line = <$fd>) {
my %ref_item;