_SETUP_CONFIG_PATH.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SETUP_CONFIG_PATH();}
1;
sub _SETUP_CONFIG_PATH {
    my $PATH_TAG = shift || "";
    if ($PATH_TAG eq "") {return "Invalid Config Tag!";}
    my $CFG_VAL="";
    if (exists($CONFIG{$PATH_TAG})) {
        $CFG_VAL=$CONFIG{$PATH_TAG};
        if (uc($MODE) eq "CRON") {
            if (!exists($ROOTS{$PATH_TAG})) {
                $ROOTS{$PATH_TAG}=$CFG_VAL;
            }
            return $CFG_VAL;
        }
    }