]> scm.dxcluster.org Git - spider.git/blob - perl/issue.pl
add dbg line to dxcron::spawn_cmd
[spider.git] / perl / issue.pl
1 #!/usr/bin/env perl
2 #
3 # create a version and build id for the project using git ids
4 #
5 #
6 #
7 # Copyright (c) 2007 Dirk Koopman, G1TLH
8 #
9
10 # Determine the correct place to put stuff
11 BEGIN {
12         # root of directory tree for this system
13         $root = "/spider";
14         $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
15 }
16
17 use strict;
18
19 use vars qw($root);
20 my $fn = "$root/perl/Version.pm";
21 my $desc = `git describe --long`;
22 my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
23 $b++;                   # to account for the commit that is about to happen
24
25 open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
26 print F qq(#
27 # Version information for DXSpider
28 #
29 # DO NOT ALTER THIS FILE. It is generated automatically
30 # and will be overwritten
31 #
32
33 package main;
34
35 use vars qw(\$version \$build \$gitversion);
36
37 \$version = '$v';
38 \$build = '$b';
39 \$gitversion = '$g\[i]';
40
41 1;
42 );
43
44 exit(0);