Merge pull request DOCGroup#170 from DOCGroup/elliottc/version

Removed the automated version number based on ChangeLog

Author: ocielliottc

.gitignore

@@ -0,0 +1 @@
+modules/.version

PROBLEM-REPORT-FORM

@@ -4,11 +4,6 @@ Documentation for MPC can be found at the following location.
 
 Please consult the documentation to ensure that you are using MPC correctly.
 
-If you are still having a problem getting MPC to do what you want, please
-consult the FAQ before sending a support request.
-
-  http://www.ociweb.com/products/mpc/mpc-faq
-
 When requesting MPC support please provide the following items:
 
   MPC version (using mwc.pl -version):
@@ -25,6 +20,7 @@ When requesting MPC support please provide the following items:
 
   Problem description (please be as detailed as possible):
 
-Finally, send support requests to [email protected].  You may send
-questions to the author ([email protected]), but a response is not
-guaranteed.
+Please go to
+https://objectcomputing.com/products/opendds/opendds-consulting-and-support
+for commercial support.  Go to https://github.com/DOCGroup/MPC/issues for
+community support.

ChangeLog renamed to history/ChangeLog-4_1

@@ -48,6 +48,8 @@ sub new {
   my @creators = @_;
   my $self = $class->SUPER::new();
 
+  Version::cache();
+
   $self->{'path'}     = $path;
   $self->{'basepath'} = ::getBasePath();
   $self->{'name'}     = $name;

modules/Driver.pm

@@ -11,14 +11,16 @@ package Version;
 # ************************************************************
 
 use strict;
+use File::Spec;
 
 # ************************************************************
 # Data Section
 # ************************************************************
 
 ## This is the starting major and minor version
-my $version = '4.1';
+my $version = '5.0';
 my $once    = 1;
+my $cache   = 'modules/.version';
 
 # ************************************************************
 # Subroutine Section
@@ -29,30 +31,63 @@ sub get {
     ## 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;
+    ## Attempt to dynamically determine the revision part of the version
+    ## string every time the version number is requested.  This only happens
+    ## if the --version option is used, an invalid option is used, and when
+    ## the process starts up and the version hasn't been cached yet.
+    my $rev = '?';
+    my $cwd = Cwd::getcwd();
+    if (chdir(::getBasePath())) {
+      ## Get the git revision for the final part of the version string.
+      my $nul = File::Spec->devnull();
+      my $r = _readVersion("git rev-parse --short HEAD 2> $nul |");
+      if (defined $r) {
+        ## Store the version for later use, in the event that the git
+        ## revision isn't available in the future.
+        if (open(CLH, ">$cache")) {
+          print CLH "$r\n";
+          close(CLH);
         }
       }
-      close(CLH);
+      else {
+        ## See if we can load in the previously stored version string.
+        $r = _readVersion($cache);
+      }
 
-      ## We then append the beta version number to the version string
-      $version .= ".$base";
-    }
-    else {
-      $version .= '.??';
+      ## Set the revision string if we were able to read one.
+      $rev = $r if (defined $r);
+
+      chdir($cwd);
     }
+
+    ## We then append the revision to the version string.
+    $version .= ".$rev";
   }
 
   return $version;
 }
 
+sub cache {
+  ## Attempt to cache the revision if the cache file does not exist.
+  ## This will allow the revision to be obtained in the event that git
+  ## cannot return the revision information at a later time.
+  get() if (!-e ::getBasePath() . '/' . $cache);
+}
 
 1;
+
+sub _readVersion {
+  my $file = shift;
+  my $rev;
+  if (open(CLH, $file)) {
+    while(<CLH>) {
+      if (/^(\w+)$/) {
+        $rev = $1;
+        last;
+      }
+    }
+    close(CLH);
+  }
+  return $rev;
+}
+