1 files changed, 58 insertions, 0 deletions
diff --git a/ACE/MPC/modules/Version.pm b/ACE/MPC/modules/Version.pm
new file mode 100644
index 00000000000..7edc61a50f7
--- /dev/null
+++ b/ACE/MPC/modules/Version.pm
@@ -0,0 +1,58 @@
+package Version;
+
+# ************************************************************
+# Description   : Central location for the MPC version.
+# Author        : Chad Elliott
+# Create Date   : 1/5/2003
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+## This is the starting major and minor version
+my $version = '3.7';
+my $once    = 1;
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub get {
+  if ($once) {
+    ## We only need to do this once
+    $once = 0;
+
+    ## 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 = -1;
+    if (open(CLH, ::getBasePath() . '/ChangeLog')) {
+      while(<CLH>) {
+        if (/^\w\w\w\s\w\w\w\s/) {
+          ++$base;
+        }
+      }
+      close(CLH);
+
+      ## We then append the beta version number to the version string
+      $version .= ".$base";
+    }
+    else {
+      $version .= '.??';
+    }
+  }
+
+  return $version;
+}
+
+
+1;