Return to gitversion.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / lib

Annotation of embedaddon/quagga/lib/gitversion.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl -w
                      2: use strict;
                      3: 
                      4: my $dir = shift;
                      5: chdir $dir || die "$dir: $!\n";
                      6: 
                      7: my $gitdesc = `git describe --always --dirty || echo -- \"0-gUNKNOWN\"`;
                      8: chomp $gitdesc;
                      9: my $gitsuffix = ($gitdesc =~ /([0-9a-fA-F]{7}(-dirty)?)$/) ? $1 : "-gUNKNOWN";
                     10: 
                     11: printf STDERR "git suffix: %s\n", $gitsuffix;
                     12: printf "#define GIT_SUFFIX \"%s\"\n", $gitsuffix;
                     13: 
                     14: my $gitcommit = `git log -1 --format=\"%H\" || echo DEADBEEF`;
                     15: chomp $gitcommit;
                     16: open(BRANCHES, "git branch -a -v --abbrev=40|") || die "git branch: $!\n";
                     17: my @names = ();
                     18: while (<BRANCHES>) {
                     19:        chomp $_;
                     20:        if (/\s+(.*?)\s+$gitcommit/) {
                     21:                my $branch = $1;
                     22:                if ($branch =~ /^remotes\/(.*?)(\/.*)$/) {
                     23:                        my $path = $2;
                     24:                        my $url = `git config --get "remote.$1.url"`;
                     25:                        chomp $url;
                     26:                        $url =~ s/^(git:|https?:|git@)\/\/github\.com/github/i;
                     27:                        $url =~ s/^(ssh|git):\/\/git\.sv\.gnu\.org\/srv\/git\//savannah:/i;
                     28:                        $url =~ s/^(ssh|git):\/\/git\.savannah\.nongnu\.org\//savannah:/i;
                     29: 
                     30:                        push @names, $url.$path;
                     31:                } else {
                     32:                        push @names, 'local:'.$branch;
                     33:                }
                     34:        }
                     35: }
                     36: 
                     37: printf STDERR "git branches: %s\n", join(", ", @names);
                     38: 
                     39: my $cr = "\\r\\n\\";
                     40: printf <<EOF, $gitdesc, join($cr."\n\\t", @names);
                     41: #define GIT_INFO "$cr
                     42: This is a git build of %s$cr
                     43: Associated branch(es):$cr
                     44: \\t%s$cr
                     45: "
                     46: EOF
                     47: