Skip to content

Instantly share code, notes, and snippets.

@earnhardt3rd
Created June 19, 2023 13:56
Show Gist options
  • Save earnhardt3rd/9539b47141f360b0b68651db034364d4 to your computer and use it in GitHub Desktop.
Save earnhardt3rd/9539b47141f360b0b68651db034364d4 to your computer and use it in GitHub Desktop.
require 'getopts.pl';
Getopts('m:d:t');
my $MODE = uc($opt_m) || "";
my $DEBUG = $opt_d || 0;
if (defined $opt_t) { my %TEST = &ADD_2_PATH();}
1;
sub ADD_2_PATH {
my $ADD_PATH_STR = shift || "";
if ($ADD_PATH_STR eq "") {return;}
if (! -d $ADD_PATH_STR) {
&displayMessageInBox(" ERROR: Cannot add Invalid PATH String ( $ADD_PATH_STR ) \n");
return;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment