X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fsafedel.pl;h=ef4ffcb4aa4fb662f6d3e42aa4a7a9a1ed272a98;hb=fa11186ed49671f47a61a4ded97a5c4ecba23546;hp=c0d710829c096c783f534366c74c62fbbbb2af40;hpb=c29eee258afdbf817f829c5765275a1758d9752f;p=feisty_meow.git

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index c0d71082..ef4ffcb4 100644
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -24,7 +24,7 @@ require "filename_helper.pl";
 require "inc_num.pl";
 require "zap_the_dir.pl";
 
-use Env qw(TMP OS);
+use Env qw(TMP OS DEBUG_FEISTY_MEOW);
 
 #hmmm: need a usage statement.
 
@@ -91,6 +91,9 @@ sub safedel {
     if (substr($file, length($file) - 1, 1) eq ":") {
       die "removing the root directory of a drive is not permitted!";
     }
+
+#print "file to whack: '$file'\n";
+
     if ( ($file =~ /^.*\/\.$/) || ($file =~ /^.*\/\.\.$/) ) {
       print "ignoring attempt to remove current or parent directory.\n";
       next;
@@ -116,7 +119,7 @@ sub safedel {
       }
       push(@deleted, "\"$file\"");
     } elsif (-f $file) {
-print "about to chmod file\n";
+#print "about to chmod file\n";
       # make the file writable by our user if possible (which resets any
       # prior permissions as long as we're the owner).
       system("chmod u+rw '$file'");
@@ -129,7 +132,9 @@ print "about to chmod file\n";
     }
   }
   if (@deleted) {
-    print "Trashed [@deleted].\n";
+    if ($DEBUG_FEISTY_MEOW != "") {
+      print "Trashed [@deleted].\n";
+    }
     open(REPORT, ">>$TMP/zz_safedel_report.txt");
 
     local($printable_date) = scalar(localtime());