earnhardt3rd

sub fromARRAY {
    print "  =============== FROM ARRAY ===============\n" if $DEBUG > 0;
    my @ARRAY = @_;
    if (scalar(@ARRAY) <= 0) {return;}
    my @RETURN;
    my $ans="";
    my $len = length(scalar(@ARRAY));
    if (uc($MODE) !~ /NO-PROMPT/) {
        for (my $i=0;$i<=scalar(@ARRAY)-1 ;$i++) {
            my $c = $i+1;

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_ADD2PAC();}
1;
sub _ADD2PAC {
    my $input = shift || "";
    my $ext = shift || "";
    my $PACKAGE = shift || "NEXT_RELEASE";

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &ADD_2_PATH();}
1;
sub ADD_2_PATH {
    my $ADD_PATH_STR = shift || "";
    if ($ADD_PATH_STR eq "") {return;}
    if (! -d $ADD_PATH_STR) {

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &Ask();}
1;
sub Ask {
 ###########################################################################
 #REMS#  Ask(Question,Answer1,Answer2,Answer3,etc...)
 #REMS#  Return: User Selected Answer

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &buildManualUnixFiles();}
1;
sub buildManualUnixFiles {
    my $line = $_[0];
    $line =~ s/\\/\//g;
    print "  U:$line\n" if $DEBUG > 0;

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &buildManualWinFiles();}
1;
sub buildManualWinFiles {
    my $line = $_[0];
    print "  W:$line\n" if $DEBUG > 0;
    my $to = $line;

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &chkCRON();}
1;
sub chkCRON {
    my $CRON_TAG = shift || "";
    $CRON_TAG =~ s/\s+$//g; # Remove trailing Spaces
    $CRON_TAG =~ s/\s+//g; # Remove Leading Spaces

earnhardt3rd

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

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &D_PDM_TREE();}
1;
sub D_PDM_TREE {
    my $cRef = $_[0];
    my $dFile = $_[1];
    my $ret_msg = "PDM Tree";

earnhardt3rd

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &D_USD_CONTACT_METHODS();}
1;
sub D_USD_CONTACT_METHODS {
    my $cRef = $_[0];
    my $dFile = $_[1];
    my $ret_msg = "Export Contact Methods";