added some nice shell options to startup script. added in new script to parse

[feisty_meow.git] / scripts / text / differ.pl

diff --git a/scripts/text/differ.pl b/scripts/text/differ.pl
index d22b3180f3f2d9cd1db3bccb266a267694b56d10..185414062f616ee787fedc58678260e21c140a22 100644 (file)
--- a/scripts/text/differ.pl
+++ b/scripts/text/differ.pl
@@ -35,8 +35,9 @@ if ($#ARGV < 0) {
 local($destination) = $ARGV[0];
 local($source) = ".";
 if ($#ARGV > 0) {
-  # get the location they provided.
-  $source = $ARGV[1];
+  # use both the locations they provided.
+  $source = $ARGV[0];
+  $destination = $ARGV[1];
 }
 
 # make the names a little more manipulable.
@@ -74,6 +75,7 @@ sub recurse_dirs
   local($src, $dest) = @_;
 
   if ($src =~ /\/CVS$/) { return; }  # skip comparing repositories.
+#hmmm: why is only CVS spelled out here?  what about the others?
 
   if (! -d $src) {
     print "$src is not a directory.\n";
@@ -106,7 +108,7 @@ sub recurse_dirs
     &diff_dirs($dest, $src);
   } else {
     print "$break_line\n";
-    print "Source exists at \"$src\", but target does not.\n";
+    print "Source directory has \"$src\", but target does not.\n";
   }
 
   # iterate through the directory.
@@ -116,7 +118,9 @@ sub recurse_dirs
 #    print "name is $name and to compare is $compare_name.\n";
     local($new_name) = $src . "/" . $name;
     if ( (-d $new_name) && ($name ne ".") && ($name ne "..")
-        && ($name ne ".svn") ) {
+        && ($name ne ".svn") 
+        && ($name ne ".git") 
+        && ($name ne "CVS") ) {
 #      print "recursing on: source $name and destination $compare_name.\n";
       &recurse_dirs($new_name, $compare_name);
     }