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);