frank.earnhardt earnhardt3rd
earnhardt3rd
/ _zDEL_USER_BIN.pl
Created
June 19, 2023 14:04
This file contains 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 = &_zDEL_USER_BIN();} | |
| 1; | |
| sub _zDEL_USER_BIN { | |
| my $os_user = shift || $USERNAME; | |
| my $userbin = $os_user; | |
| print " _USER_BIN($os_user)\n" if $DEBUG > 1; |
earnhardt3rd
/ _zDEL_USERS_OLD_SEE_FH_USERS.pl
Created
June 19, 2023 14:04
This file contains 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 = &_zDEL_USERS_OLD_SEE_FH_USERS();} | |
| 1; | |
| sub _zDEL_USERS_OLD_SEE_FH_USERS { | |
| my $input = shift || ""; | |
| print " _USERS($input)\n" if $DEBUG > 0; | |
| if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();} |
earnhardt3rd
/ _zDEL_USERS_OLD.pl
Created
June 19, 2023 14:04
This file contains 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 = &_zDEL_USERS_OLD();} | |
| 1; | |
| sub _zDEL_USERS_OLD { | |
| my $uAction = shift || ""; | |
| if ($uAction ne "") { | |
| goto UAUTO; |
earnhardt3rd
/ _WSP_MODS.pl
Created
June 19, 2023 14:04
This file contains 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 = &_WSP_MODS();} | |
| 1; | |
| sub _WSP_MODS { | |
| my %RET_WSP; | |
| my $wspMods = $ROOTS{"NXROOT"} . $SLASH . "site" . $SLASH . "mods" . $SLASH . "majic" . $SLASH . "wsp.mods"; | |
| if (! -f $wspMods ) { |
earnhardt3rd
/ _WIN_DRIVES.pl
Created
June 19, 2023 14:04
This file contains 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 = &_WIN_DRIVES();} | |
| 1; | |
| sub _WIN_DRIVES { | |
| my $cmd1 = "reg query hklm\\system\\mounteddevices"; | |
| my $cmdX1 = `$cmd1 2>&1`; | |
| my @LIST = split('\n',$cmdX1); |
earnhardt3rd
/ _WARNING.pl
Created
June 19, 2023 14:04
This file contains 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 = &_WARNING();} | |
| 1; | |
| sub _WARNING { | |
| my $warnMsg = shift || ""; | |
| if ($warnMsg eq "") {return;} | |
| if (defined($WARN_FILE)) { |
earnhardt3rd
/ _USER_DATA.pl
Created
June 19, 2023 14:04
This file contains 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 = &_USER_DATA();} | |
| 1; | |
| sub _USER_DATA { | |
| my $data_type = shift || ""; | |
| print " DEBUG:_USER_DATA($data_type)\n" if $DEBUG > 1; | |
| my $rtn_data; |
earnhardt3rd
/ _UNPAK.pl
Created
June 19, 2023 14:04
This file contains 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 = &_UNPAK();} | |
| 1; | |
| sub _UNPAK { | |
| my $INPUT = shift || ""; | |
| my $tTag=""; | |
| my $tFile=""; |
earnhardt3rd
/ _TRACER.pl
Created
June 19, 2023 14:04
This file contains 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 = &_TRACER();} | |
| 1; | |
| sub _TRACER { | |
| my $tracer_flag = 0; | |
| my $th_file = $SYS . $SLASH . ".pdm_tracer"; | |
| my $tu_file = $SYS . $SLASH . ".pdm_tracer_user"; |
earnhardt3rd
/ _TOOL_ACCESS.pl
Created
June 19, 2023 14:04
This file contains 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 = &_TOOL_ACCESS();} | |
| 1; | |
| sub _TOOL_ACCESS { | |
| my $in_tool = $_[0]; | |
| my $tool_name = $in_tool; | |
| if (! exists($TOOLS{$tool_name})) { |
NewerOlder