|| $file =~ /\/\.\.$/
|| $file =~ /\/\.svn$/
|| $file =~ /\/\.git$/
+|| $file =~ /^.*\/customize\/.*$/
) {
# just skip this item; it's a special directory.
- } elsif (-d "$FEISTY_MEOW_SCRIPTS/$file") {
+print "skipping name: $file\n";
+ } elsif (-d "$FEISTY_MEOW_SCRIPTS/$file"
+
+&& ! $file =~ /^.*\/customize\/.*$/
+
+) {
# if we see a subdirectory in the scripts folder, we add all the
# scripts in it as aliases. we recurse only one level.
+
+print "adding script dir in: $file\n";
+
opendir(subdir, "$FEISTY_MEOW_SCRIPTS/$file");
@subdir_files = sort(readdir(subdir));
foreach $subfile (@subdir_files) {
# if we see a file in the auto-generated area that comes from the
# customized scripts folder, we add it as an alias.
make_alias($file, "$FEISTY_MEOW_LOADING_DOCK/custom/scripts/");
- #print "added custom script file: $FEISTY_MEOW_LOADING_DOCK/custom/scripts/$file\n";
+print "added custom script file: $FEISTY_MEOW_LOADING_DOCK/custom/scripts/$file\n";
} else {
- # if it's a regular file, we'll try to make an alias for it. the function
- # will only fire if the ending is appropriate for the script languages we use.
- &make_alias($file, "$FEISTY_MEOW_SCRIPTS");
+
+
+ if ( ! $file =~ /^.*\/customize\/.*$/ ) {
+
+print "adding regular file in: $file\n";
+
+ # if it's a regular file, we'll try to make an alias for it. the function
+ # will only fire if the ending is appropriate for the script languages we use.
+ &make_alias($file, "$FEISTY_MEOW_SCRIPTS");
+
+ }
+
}
}