3 # create a version and build id for the project using git ids
7 # Copyright (c) 2007 Dirk Koopman, G1TLH
10 # Determine the correct place to put stuff
12 # root of directory tree for this system
14 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
20 my $fn = "$root/perl/Version.pm";
21 my $desc = `git describe --long`;
22 my ($v, $s, $b) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-/;
23 $s ||= '0'; # account for missing subversion
24 $b++; # to account for the commit that is about to happen
26 open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
28 # Version information for DXSpider
30 # DO NOT ALTER THIS FILE. It is generated automatically
31 # and will be overwritten
36 use vars qw(\$version \$subversion \$build);