X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=scripts%2Ffiles%2Fsafedel.pl;h=c009cc2a4d6f15930a7fb1d88a2dfc4da727ac52;hb=b05e6b5ce5f7b901d70b019841dbbeac93c93923;hp=ab64a2780816b773369223d4af1f538552066eca;hpb=96aa64844fffd86ff5c2283d1068e1240fc8b941;p=feisty_meow.git

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
old mode 100755
new mode 100644
index ab64a278..c009cc2a
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -20,12 +20,12 @@
 ###############################################################################
 
 require Cwd;
-require "ctime.pl";
 require "filename_helper.pl";
 require "inc_num.pl";
-require "importenv.pl";
 require "zap_the_dir.pl";
 
+use Env qw(TMP OS);
+
 #hmmm: need a usage statement.
 
 if ($#ARGV < 0) {
@@ -72,9 +72,15 @@ sub safedel {
 #  print "final list of whackees: @to_delete\n";
 
   # we store the deleted files in a directory under the temporary directory.
+  if (! -d $TMP) { 
+    mkdir "$TMP", 0700;
+    if (! -d $TMP) {
+      die "the TMP directory $TMP could not be created!\n";
+    }
+  }
   $temp_subdir = $TMP . "/zz_del_keep";
   if (! -d $temp_subdir) {
-    mkdir "$temp_subdir", 0777;
+    mkdir "$temp_subdir", 0700;
       # create the subdirectory under temp if missing.
     if (! -d $temp_subdir) {
       die "the directory $temp_subdir could not be created!\n";
@@ -125,7 +131,8 @@ sub safedel {
     print "Trashed [@deleted].\n";
     open(REPORT, ">>$TMP/zz_safedel.rpt");
 
-    local($printable_date) = &ctime(time);
+    local($printable_date) = scalar(localtime());
+#&ctime(time);
     $printable_date =~ s/\n//g;
     print REPORT $printable_date . " -- safedel: \"temp" . $number . ".zip\" <= [@deleted]\n";
     close(REPORT);