gitweb: git_get_heads_list accepts an optional list of refs
authorGiuseppe Bilotta <giuseppe.bilotta@gmail.com>
Thu, 11 Nov 2010 12:26:10 +0000 (13:26 +0100)
committerJunio C Hamano <gitster@pobox.com>
Wed, 17 Nov 2010 21:02:18 +0000 (13:02 -0800)
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>
gitweb/gitweb.perl

index e1787c2..951bb0d 100755 (executable)
@@ -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;