frank.earnhardt earnhardt3rd
earnhardt3rd
/ _ROOTS_OLD.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 = &_ROOTS_OLD();} | |
| 1; | |
| sub _ROOTS_OLD { | |
| my $input = shift || ""; | |
| print " _ROOTS($input)\n" if $DEBUG > 0; | |
| if (uc($input) eq "NOW") {$input = &getDate() . "-" . &getTime();} |
earnhardt3rd
/ _ROBO.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 = &_ROBO();} | |
| 1; | |
| sub _ROBO { | |
| my $src = shift || ""; | |
| my $usr = shift || ""; | |
| my $pas = shift || ""; |
earnhardt3rd
/ _RMBIN.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 = &_RMBIN();} | |
| 1; | |
| sub _RMBIN { | |
| my $binFile = $_[0]; | |
| $binFile =~ s/-_-.*//g; | |
| $binFile = $UBIN . $SLASH . $binFile; |
earnhardt3rd
/ _RFC_REVIEW.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 = &_RFC_REVIEW();} | |
| 1; | |
| sub _RFC_REVIEW { | |
| my $REVIEW_PAK = shift || ""; | |
| my $REVIEW_TYP = shift || ""; | |
| my $PAK_FILENM = shift || ""; |
earnhardt3rd
/ _RFC_REPORT.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 = &_RFC_REPORT();} | |
| 1; | |
| sub _RFC_REPORT { | |
| my $YR = &getDate("YYYY"); | |
| RFC_RPT: | |
| chdir $PAK; |
earnhardt3rd
/ _RFC.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 = &_RFC();} | |
| 1; | |
| sub _RFC { | |
| my $PACKAGE = shift || ""; | |
| my $rfcTitle = " ***************************************\n PDM_RFC PACKAGE DIRECTORY SELECTION\n ***************************************"; | |
| my $pakDir=""; |
earnhardt3rd
/ _REPLACE_STRING_IN_FILE.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 = &_REPLACE_STRING_IN_FILE();} | |
| 1; | |
| sub _REPLACE_STRING_IN_FILE { | |
| my $rFile = shift || ""; # File to replace values | |
| my $rTAG = shift || ""; # Replace Tag such as PACKAGE | |
| my $oVAL = shift || ""; # Old Value to match |
earnhardt3rd
/ _RENPAK.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 = &_RENPAK();} | |
| 1; | |
| sub _RENPAK { | |
| my $INPUT = shift || ""; | |
| print " _RENPAK($INPUT)\n" if $DEBUG > 0; | |
| my $OLD=""; |
earnhardt3rd
/ _REFRESH_TOOL.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 = &_REFRESH_TOOL();} | |
| 1; | |
| sub _REFRESH_TOOL { | |
| my $overRide = shift || ""; | |
| my $PRE_DEBUG=""; | |
| if ($DEBUG > 1) { |
earnhardt3rd
/ _REBOOT_SERVER_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 = &_REBOOT_SERVER_HELP();} | |
| 1; | |
| sub _REBOOT_SERVER_HELP { | |
| my $HelpMsg = " PDM_REBOOT \n"; | |
| $HelpMsg .= " ----------- \n"; | |
| $HelpMsg .= " In summary: this will build the command to allow you to remotely reboot servers in a consistant and repeatable manner \n"; |