1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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.9';
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;
|
