require "filename_helper.pl";
-use Env qw($TMP $color_add $TERM);
+use Env qw($TMP $color_add $ls_dot_add $TERM);
local($chewed_line) = "";
local(@arg_list);
@arg_list = &glob_list(@ARGV);
}
+# add parameters to our chewed_line, but skip items if they are flags we don't
+# implement.
foreach $dir (@arg_list) {
+#hmmm: fix this by using a pattern, to exclude cmd line parms, but recognize some of them, like recursive? hmmm.
if ($dir eq "-al") { next; } # skip ls directives.
if ($dir eq "-l") { next; } # skip ls directives.
$chewed_line = $chewed_line . " \"$dir\"";
# drop the main payload, the list of directory info, but also save that
# info to a file for analysis.
-system("ls -HhlF $color_add $chewed_line");
-system("ls -HhlF $color_add $chewed_line > $temp_file");
+system("ls -HhlF $ls_dot_add $color_add $chewed_line");
+system("ls -HhlF $ls_dot_add $color_add $chewed_line > $temp_file");
# the color_add variable, if defined, will have flags for setting the
# directory listing color scheme.