frank.earnhardt earnhardt3rd
earnhardt3rd
/ chkCRON.pl
Created
June 19, 2023 13:59
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 = &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
/ cleanUpProc.pl
Created
June 19, 2023 13:59
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 = &cleanUpProc();} | |
| 1; | |
| sub cleanUpProc { | |
| my $pMAIN = shift || ""; | |
| print " cleanUpProc($pMAIN)\n" if $DEBUG > 0; | |
| my %WINDOWS_KILL = ( |
earnhardt3rd
/ D_PDM_TREE.pl
Created
June 19, 2023 13:59
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 = &D_PDM_TREE();} | |
| 1; | |
| sub D_PDM_TREE { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "PDM Tree"; |
earnhardt3rd
/ D_USD_CONTACT_METHODS.pl
Created
June 19, 2023 13:59
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 = &D_USD_CONTACT_METHODS();} | |
| 1; | |
| sub D_USD_CONTACT_METHODS { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "Export Contact Methods"; |
earnhardt3rd
/ D_USD_SA_POLICY.pl
Created
June 19, 2023 13:59
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 = &D_USD_SA_POLICY();} | |
| 1; | |
| sub D_USD_SA_POLICY { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "Export Web Service SA Policy"; |
earnhardt3rd
/ D_USD_SEV_1_NOTIFICATIONS.pl
Created
June 19, 2023 13:59
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 = &D_USD_SEV_1_NOTIFICATIONS();} | |
| 1; | |
| sub D_USD_SEV_1_NOTIFICATIONS { | |
| my $cRef = $_[0]; | |
| my $dFile = $_[1]; | |
| my $ret_msg = "Export Special Sev1 Notifications"; |
earnhardt3rd
/ ENV_2_HASH.pl
Created
June 19, 2023 13:59
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 = &ENV_2_HASH();} | |
| 1; | |
| sub ENV_2_HASH { | |
| my $env_tag = shift || "PATH"; | |
| my $env_sep = shift || ""; | |
| my $env_trn = shift || ""; |
earnhardt3rd
/ execSQL.pl
Created
June 19, 2023 13:59
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 = &execSQL();} | |
| 1; | |
| sub execSQL { | |
| my $SQL = shift || ""; | |
| my $DBMS_HOST = shift || $_DBMS{"HOST"} . "\." . $_DBMS{"DOMAIN"}; | |
| my $DBMS_USER = shift || $_DBMS{"USER"}; |
earnhardt3rd
/ File.pl
Created
June 19, 2023 13:59
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 = &File();} | |
| 1; | |
| sub File { | |
| ########################################################################### | |
| #REMC# File -- return file portion of pathname (either ".../..." or "...\...") | |
| #REMC# arg0 = string to be processed |
earnhardt3rd
/ findMatch.pl
Created
June 19, 2023 13:59
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 = &findMatch();} | |
| 1; | |
| sub findMatch { | |
| my $token = shift || ""; | |
| my $time = shift || ""; | |
| my $cron = shift || ""; |