frank.earnhardt earnhardt3rd
earnhardt3rd
/ _SHOW_OS_FOLDERS.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SHOW_OS_FOLDERS();} | |
| 1; | |
| sub _SHOW_OS_FOLDERS { | |
| if (scalar(keys %OS_FOLDERS) > 0) { | |
| printf " %-20s %-80s\n","OS_FOLDER","PATH"; | |
| printf " %-20s %-80s\n","--------------------","--------------------------------------------------------------------------------"; |
earnhardt3rd
/ _SHOW_HISTORY.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SHOW_HISTORY();} | |
| 1; | |
| sub _SHOW_HISTORY { | |
| my @HISTORY; | |
| print " SEARCHING FOR HISTORY FILES!\n"; | |
| if (scalar(keys %ROOTS) > 0) { |
earnhardt3rd
/ _SHOW_HELP.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SHOW_HELP();} | |
| 1; | |
| sub _SHOW_HELP { | |
| my $inFile = shift || ""; | |
| if (scalar(keys %TOOLHELP) > 0) { | |
| print " ********************\n"; |
earnhardt3rd
/ _ShowDrives.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_ShowDrives();} | |
| 1; | |
| sub _ShowDrives { | |
| my %D = &_WIN_DRIVES(); | |
| foreach my $dkey(sort keys %D) { | |
| print "$dkey\n"; |
earnhardt3rd
/ _SET_CON.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SET_CON();} | |
| 1; | |
| sub _SET_CON { | |
| my %CON_COLORS = ( | |
| ("Black" => "0"), | |
| ("Blue" => "1"), |
earnhardt3rd
/ _SETUP_WIN_CONTEXT.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SETUP_WIN_CONTEXT();} | |
| 1; | |
| sub _SETUP_WIN_CONTEXT { | |
| #Windows Registry Editor Version 5.00 | |
| # | |
| #[HKEY_CLASSES_ROOT\ftp_auto_file\shell\pdm_get] |
earnhardt3rd
/ _SETUP_ROOT_PATH.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SETUP_ROOT_PATH();} | |
| 1; | |
| sub _SETUP_ROOT_PATH { | |
| my $PATH_TAG = shift || ""; | |
| if ($PATH_TAG eq "") {return "Invalid Config Tag!";} | |
| my $ROOT_VAL=""; |
earnhardt3rd
/ _SETUP_PDM.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SETUP_PDM();} | |
| 1; | |
| sub _SETUP_PDM { | |
| my $input = shift || ""; | |
| print " SETUP_PDM($input)\n"; | |
| if ($PDM eq "") { |
earnhardt3rd
/ _SETUP_LIC.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SETUP_LIC();} | |
| 1; | |
| sub _SETUP_LIC { | |
| my $appKey = shift || ""; | |
| if ($appKey eq "") {return;} | |
| if (scalar(keys %LICS) == 0) { |
earnhardt3rd
/ _SETUP_CONFIG_PATH.pl
Created
June 19, 2023 14:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'getopts.pl'; | |
| Getopts('m:d:t'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| if (defined $opt_t) { my %TEST = &_SETUP_CONFIG_PATH();} | |
| 1; | |
| sub _SETUP_CONFIG_PATH { | |
| my $PATH_TAG = shift || ""; | |
| if ($PATH_TAG eq "") {return "Invalid Config Tag!";} | |
| my $CFG_VAL=""; |