From: minima <minima>
Date: Mon, 21 Feb 2005 00:00:38 +0000 (+0000)
Subject: fix build numbering
X-Git-Tag: R_1_52~175
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b10171a637c3aef830d309b27739cf4aeba939b;p=spider.git

fix build numbering
---

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 2a9913f1..7b9f1f30 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -27,10 +27,8 @@ my $fn = "$main::cmd/crontab";
 my $localfn = "$main::localcmd/crontab";
 
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 # cron initialisation / reading in cronjobs
 sub init
diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 833640f5..72ba15d1 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -50,10 +50,8 @@ $nextstream = 0;
 %stream = ();
 
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 # allocate a new stream for this request
 sub newstream
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index b25b70a5..5190b6b6 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -33,10 +33,8 @@ eval {
 use strict;
 
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 use vars qw(%work @msg $msgdir %valid %busy $maxage $last_clean $residencetime
 			@badmsg @swop $swopfn $badmsgfn $forwardfn @forward $timeout $waittime
diff --git a/perl/Investigate.pm b/perl/Investigate.pm
index 426e23eb..b7234b74 100644
--- a/perl/Investigate.pm
+++ b/perl/Investigate.pm
@@ -20,12 +20,9 @@ package Investigate;
 use DXDebug;
 use DXUtil;
 
-
 use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
+
+main::mkver($VERSION = q$Revision$);
 
 use vars qw (%list %valid $pingint $maxpingwait);