From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 14 Jun 2007 13:56:05 +0000 (+0100)
Subject: use no of commits as the build no on a tag
X-Git-Tag: 1.55~171
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=8313e2686aa5384c6a9fd0e56e913db7a68f10bb

use no of commits as the build no on a tag

use the no of commits from git-describe as the build no
relative to the the version no tag.
---

diff --git a/perl/.gitignore b/perl/.gitignore
new file mode 100644
index 00000000..e69de29b
diff --git a/perl/Version.pm b/perl/Version.pm
index 6e0c1a35..9fe21c15 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -1,10 +1,15 @@
 #
+# Version information for DXSpider
 #
+# DO NOT ALTER THIS FILE. It is generated automatically
+# and will be overwritten
+#
+
 package main;
 
 use vars qw($version $build);
 
-$version = "1.53";
-$build = 466;
+$version = '1.53';
+$build = '4-gb9dffef';
 
 1;
diff --git a/perl/issue.pl b/perl/issue.pl
new file mode 100755
index 00000000..6d2bfd34
--- /dev/null
+++ b/perl/issue.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+#
+# create a version and build id for the project using git ids
+#
+# $Id$
+#
+# Copyright (c) 2007 Dirk Koopman, G1TLH
+#
+
+# Determine the correct place to put stuff
+BEGIN {
+	# root of directory tree for this system
+	$root = "/spider";
+	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+}
+
+use strict;
+
+use vars qw($root);
+my $fn = "$root/perl/Version.pm";
+my $desc = `git-describe`;
+my ($v, $b) = $desc =~ /^([\d.]+)-(\d+)-/;
+$b++;			# to account for the commit that is about to happen
+
+open F, ">$fn" or die "issue.pl: can't open $fn $!\n";
+print F qq(#
+# Version information for DXSpider
+#
+# DO NOT ALTER THIS FILE. It is generated automatically
+# and will be overwritten
+#
+
+package main;
+
+use vars qw(\$version \$build);
+
+\$version = '$v';
+\$build = '$b';
+
+1;
+);