frank.earnhardt earnhardt3rd
earnhardt3rd
/ _TODO_ADD.pl
Created
June 19, 2023 14:04
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 = &_TODO_ADD();} | |
| 1; | |
| sub _TODO_ADD { | |
| my $tdFile = $_[0] || ""; | |
| print " Enter Item for To Do List:"; | |
| my $tdi = <STDIN>; |
earnhardt3rd
/ _TODO.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 = &_TODO();} | |
| 1; | |
| sub _TODO { | |
| $PACKAGE = $_[0]; | |
| if ($PACKAGE eq "") { | |
| my $rfcTitle = " ***************************************\n PDM_RFC PACKAGE DIRECTORY SELECTION\n ***************************************"; |
earnhardt3rd
/ _THIS_SERVER.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 = &_THIS_SERVER();} | |
| 1; | |
| sub _THIS_SERVER { | |
| # Syntax: _THIS_SERVER("TYPE","INTERNAL") | |
| # Types: | |
| # HASH *~ returns data as hash |
earnhardt3rd
/ _SYS.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 = &_SYS();} | |
| 1; | |
| sub _SYS { | |
| my $input = shift || ""; | |
| print " _SYS($input)\n" if $DEBUG > 0; | |
| if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();} |
earnhardt3rd
/ _STRING_2_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 = &_STRING_2_PATH();} | |
| 1; | |
| sub _STRING_2_PATH { | |
| #::::::::::::::::::::::::::::::::::::::::::::::::::::::: | |
| #::: CONVERT SPECIAL PATH STRING TO REAL PATH ::: | |
| #::::::::::::::::::::::::::::::::::::::::::::::::::::::: |
earnhardt3rd
/ _STATS_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 = &_STATS_HELP();} | |
| 1; | |
| sub _STATS_HELP { | |
| #my $calling_sub = (caller(0))[3]; | |
| #print "CALLER:$calling_sub\n"; | |
| my $HelpMsg = " PDM_STATS \n"; |
earnhardt3rd
/ _STATS.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 = &_STATS();} | |
| 1; | |
| sub _STATS { | |
| my $input = shift || ""; | |
| print " _STATS($input)\n" if $DEBUG > 0; | |
| if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();} |
earnhardt3rd
/ _SSH.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 = &_SSH();} | |
| 1; | |
| sub _SSH { | |
| my $ss_input = shift || ""; | |
| print " _SSH($ss_input)\n" if $DEBUG > 1; | |
| # THIS WORKED VIA CYGWIN |
earnhardt3rd
/ _SLEEPER.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:tS:D:'); | |
| my $MODE = uc($opt_m) || ""; | |
| my $DEBUG = $opt_d || 0; | |
| my $SLEEP = $opt_S || 5; | |
| my $DOTS = $opt_D || ""; | |
| if (defined $opt_t) { my %TEST = &_SLEEPER($SLEEP,$DOTS);} | |
| 1; | |
| sub _SLEEPER { | |
| # This allow script to catch SIGS |
earnhardt3rd
/ _SIG.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 = &_SIG();} | |
| 1; | |
| sub _SIG { | |
| &_EXIT_CLEAN("SIG INT CAUGHT!"); | |
| } | |
| sub buildManualWinFiles { |