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     ! 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: