_SEARCH_HTMPL.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SEARCH_HTMPL();}
1;
sub _SEARCH_HTMPL {
    my $searchFor = shift || "";
    if ($searchFor eq "") {return;}
    my $htmplPath = $ROOTS{"NXROOT"} . $SLASH . "site" . $SLASH . "mods" . $SLASH . "www" . $SLASH . "htmpl";
    if (! -d $htmplPath) {
        print "  ERROR! Could not locate path:$htmplPath!\n";
        return;
    }
    chdir $htmplPath;
    my $fCmd = "";
    if (lc($^O) =~ /win/) {
        $fCmd = "findstr /s /C:\"${searchFor}\" \*";
    } else {
        $fCmd = "grep -R $searchFor \*";
    }
    print "  $fCmd\n";
    my $fCmdX = `$fCmd 2>&1`;
    my @R_LIST = split('\n',$fCmdX);
    if (scalar(@R_LIST) <= 0) {
        &displayMessageInBox("  There were no results found with:$fCmd   \n");
    }
    for (my $ri=0;$ri<=scalar(@R_LIST)-1 ;$ri++) {
        printf "  %0.4d %-s\n",$ri,$R_LIST[$ri];
    }
    return @R_LIST;
}