rework installation process to use git rev info
[bse.git] / site / util / bse_mkgitversion.pl
1 #!perl -w
2 use strict;
3
4 my $release = shift;
5
6 my $output = shift
7   or die "Usage: $0 <bserev> <outfile>\n";
8
9 $release =~ /^\d+\.\d+(_\d+)?$/
10   or die "Invalid revision";
11
12 if (-d ".git") {
13   my ($git_desc) = `git describe`;
14   chomp $git_desc;
15
16   my @status = `git status -s`;
17   if (@status) {
18     $git_desc .= " +" . scalar(@status) . " local modifications";
19   }
20
21   $release .= " GIT $git_desc";
22 }
23
24 open VERSION, "> $output"
25   or die "Cannot create $output: $!\n";
26 print VERSION <<EOS;
27 package BSE::Version;
28 use strict;
29
30 my \$RELEASE = "$release";
31
32 sub version { \$RELEASE }
33
34 1;
35 EOS
36
37 close VERSION;