ChangeLogTag: Tue May 18 09:37:29 2004 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 24 insertions, 1 deletions

diff --git a/modules/Version.pm b/modules/Version.pm
index 8897a25b..f1a9b4f5 100644
--- a/modules/Version.pm
+++ b/modules/Version.pm
@@ -16,7 +16,30 @@ use strict;
 # Data Section
 # ************************************************************
 
-my($version) = '3.1.1';
+## This is the starting major and minor version
+my($version) = '3.1';
+
+## Here we determine the beta version.  The base variable
+## is the negated number of existing ChangeLog entries at the
+## time of the release of the major and minor version.  We then
+## add the total number of ChangeLog entries to the base to
+## get the beta version.
+my($base) = -36;
+if (open(CLH, ::getBasePath() . '/ChangeLog')) {
+  while(<CLH>) {
+    if (/^\w\w\w\s/) {
+      ++$base;
+    }
+  }
+  close(CLH);
+
+  ## We then append the beta version number to the version string
+  $version .= ".$base";
+}
+else {
+  print "WARNING: Unable to determine the beta version number of MPC\n";
+}
+
 
 # ************************************************************
 # Subroutine Section