# support from CPAN. this can be installed by using cpan and telling it
# install Text::Diff
-require "ctime.pl";
require "filename_helper.pl";
-require "importenv.pl";
+
+use Env qw(FEISTY_MEOW_DIR);
use Text::Diff;
&differ_instructions;
return;
}
- if (-l $compare_directory) {
- # we will not operate on links, due to recursion issues.
-## &differ_instructions;
- print "skipping link: $compare_directory\n";
- return;
- }
+# if (-l $compare_directory) {
+# # we will not operate on links, due to recursion issues.
+### &differ_instructions;
+# print "skipping link: $compare_directory\n";
+# return;
+# }
if (! -d $compare_directory) {
# a missing directory is just not good.
print "skipping missing directory: $compare_directory\n";
$source_directory = $arguments[1];
}
$source_directory = &sanitize_name($source_directory);
- if (-l $source_directory) {
- # we will not operate on links, due to recursion issues.
-# &differ_instructions;
- print "skipping link: $source_directory\n";
- return;
- }
+# if (-l $source_directory) {
+# # we will not operate on links, due to recursion issues.
+## &differ_instructions;
+# print "skipping link: $source_directory\n";
+# return;
+# }
if (! -d $source_directory) {
# a missing directory is just not good.
print "skipping missing directory: $source_directory\n";
# this function prints out the header prior to printing out any real
# data. if there are no diffs, the header should never get printed.
print "$break_line\n";
- local($printable_date) = &ctime(time);
+ local($printable_date) = scalar(localtime());
$printable_date =~ s/\n//g;
print "[$printable_date]\n";
print "Left (<) is \"$temp_src\".\n";
specify a target directory where there are files which are mostly similar
to the files in this directory. The files in the current directory are
compared to those in the specified target directory and the differences
-are sent to the standard output. Note that neither directory may be
-a symbolic link, as that can lead to crazy recursion.
+are sent to the standard output.
";
}
+#Note that neither directory may be a symbolic link, as that can lead to crazy recursion.
############################################################################
&cpdiff_instructions;
return;
}
- if (-l $source_directory) {
- # we will not operate on links, due to recursion issues.
- &cpdiff_instructions;
- return;
- }
+# if (-l $source_directory) {
+# # we will not operate on links, due to recursion issues.
+# &cpdiff_instructions;
+# return;
+# }
# get the comparison directory from the arguments.
local($compare_directory) = &sanitize_name($arguments[1]);
&cpdiff_instructions;
return;
}
- if (-l $compare_directory) {
- # we will not operate on links, due to recursion issues.
- &cpdiff_instructions;
- return;
- }
+# if (-l $compare_directory) {
+# # we will not operate on links, due to recursion issues.
+# &cpdiff_instructions;
+# return;
+# }
# print "src=$source_directory, dest=$compare_directory\n";