earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SETUP_APPS();}
1;
sub _SETUP_APPS {
    my $perlFRG = "";
    if (uc($BASE_EXT) eq "EXE") {
        goto SKIP_PERL_APPS;

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SETUP();}
1;
sub _SETUP {
    my $SVR_TYPE;
    &_SETUP_LIC("PDM");
    &_SETUP_PDM();              # Everyone gets PDM

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SERVERS_HELP();}
1;
sub _SERVERS_HELP {
    my $HelpMsg = "  PDM_SERVERS  \n";
    $HelpMsg   .= "  -----------  \n";
    $HelpMsg   .= "  In summary: pdm_servers will keep a list of server(s)   \n";

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SERVERS();}
1;
sub _SERVERS {
    my $input = shift || "";
    print "  _SERVERS($input)\n" if $DEBUG > 0;
    if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();}

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SELECT_PACKAGE();}
1;
sub _SELECT_PACKAGE {
    my $sMsg = $_[0] || "  Please select package folder";       # Menu Title
    my $sDft = $_[1] || "";                                     # Menu Default Selection
    my $bldF = $_[2] || "TRUE";                                 # Created Folder if TRUE ~ DEFAULT:=TRUE

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SEARCH_ISSUE_STATS();}
1;
sub _SEARCH_ISSUE_STATS {
    my $searchFor = shift || "mem";
    my $iss_root = $OS_FOLDERS{"ISS"};
    if (! -d $iss_root) {

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SEARCH_HTMPL();}
1;
sub _SEARCH_HTMPL {
    my $searchFor = shift || "";
    if ($searchFor eq "") {return;}
    my $htmplPath = $ROOTS{"NXROOT"} . $SLASH . "site" . $SLASH . "mods" . $SLASH . "www" . $SLASH . "htmpl";

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SDM_LOADOPTIONS();}
1;
sub _SDM_LOADOPTIONS {
    my $colSEP="!";
    my $preSEP="P!P";
    my $rowSEP="T!T";

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_RUN_SUB();}
1;
sub _RUN_SUB {
    my $rs_input = shift || "";
    print "  _RUN_SUB($rs_input)\n" if $DEBUG > 1;
    my %RS = &_INPUT_2_HASH($rs_input);

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_RSYNC();}
1;
sub _RSYNC {
    my $src = $_[0];
    my $usr = $_[1];
    my $pas = $_[2];