| Line 189... |
Line 189... |
| 189 |
# Version 3.6.0 20220607 RWR
|
189 |
# Version 3.6.0 20220607 RWR
|
| 190 |
# Changed the way upload works. It automatically now passes an additional parameter, upload_type, which with the new upload
|
190 |
# Changed the way upload works. It automatically now passes an additional parameter, upload_type, which with the new upload
|
| 191 |
# script will choose a directory, allowing one script to handle various uploads
|
191 |
# script will choose a directory, allowing one script to handle various uploads
|
| 192 |
# additionally, if the key 'postRunScript' is in the config, it is assumed to be the name of a script to be run after sysinfo
|
192 |
# additionally, if the key 'postRunScript' is in the config, it is assumed to be the name of a script to be run after sysinfo
|
| 193 |
# completes it's task. This can be used to download/update the program, add new modules, etc..
|
193 |
# completes it's task. This can be used to download/update the program, add new modules, etc..
|
| - |
|
194 |
#
|
| - |
|
195 |
# Version 3.6.1 20230308 RWR
|
| - |
|
196 |
# fixed a problem where it did not correctly find the source directory when called from a symbolic link
|
| 194 |
|
197 |
|
| 195 |
|
198 |
|
| 196 |
# find our location and use it for searching for libraries
|
199 |
# find our location and use it for searching for libraries
|
| 197 |
BEGIN {
|
200 |
BEGIN {
|
| 198 |
use FindBin;
|
201 |
use FindBin;
|
| 199 |
use File::Spec;
|
202 |
use File::Spec;
|
| 200 |
use Cwd 'abs_path';
|
203 |
use Cwd 'abs_path';
|
| - |
|
204 |
use File::Basename;
|
| 201 |
use lib abs_path( File::Spec->catdir($FindBin::Bin) );
|
205 |
use lib dirname( abs_path( __FILE__ ) );
|
| 202 |
eval( 'use YAML::Tiny;' );
|
206 |
eval( 'use YAML::Tiny;' );
|
| 203 |
eval( 'use Data::Dumper;' );
|
207 |
eval( 'use Data::Dumper;' );
|
| 204 |
}
|
208 |
}
|
| 205 |
|
209 |
|
| 206 |
# contains the directory our script is in
|
210 |
# contains the directory our script is in
|
| 207 |
my $sourceDir = abs_path( File::Spec->catdir($FindBin::Bin) );
|
211 |
my $sourceDir = dirname( abs_path( __FILE__ ) );
|
| 208 |
|
212 |
|
| 209 |
# define the version number
|
213 |
# define the version number
|
| 210 |
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
|
214 |
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
|
| 211 |
use version;
|
215 |
use version;
|
| 212 |
our $VERSION = version->declare("v3.6.0");
|
216 |
our $VERSION = version->declare("v3.6.1");
|
| 213 |
our $DATA_VERSION = version->declare( 'v3.0.0' ); # used in sending the data file. sets version of XML/YAML data file
|
217 |
our $DATA_VERSION = version->declare( 'v3.0.1' ); # used in sending the data file. sets version of XML/YAML data file
|
| 214 |
|
218 |
|
| 215 |
# see https://perldoc.perl.org/Getopt/Long.html
|
219 |
# see https://perldoc.perl.org/Getopt/Long.html
|
| 216 |
use Getopt::Long;
|
220 |
use Getopt::Long;
|
| 217 |
# allow -vvn (ie, --verbose --verbose --dryrun)
|
221 |
# allow -vvn (ie, --verbose --verbose --dryrun)
|
| 218 |
Getopt::Long::Configure ("bundling");
|
222 |
Getopt::Long::Configure ("bundling");
|