better printing in safedel for the deleted file list, added 'line' alias for printing...

diff --git a/customizing/fred/fred_common.alias b/customizing/fred/fred_common.alias
index 84d5fe147b928316dc6322d2cd144678d9c25e8e..5a0f94e24f50b28b2bf14e3dc4d73a658e94a603 100644 (file)
--- a/customizing/fred/fred_common.alias
+++ b/customizing/fred/fred_common.alias
@@ -6,12 +6,24 @@
 alias moo='check_mount /z/stuffing ; check_mount /z/walrus ; check_mount /z/chunky ; check_mount /z/fredgrid'
 alias unmoo='sudo umount /z/stuffing ; sudo umount /z/walrus ; sudo umount /z/chunky ; sudo umount /z/fredgrid'
 
-# cleans up the ownership for all my files.
-#moved alias refred='(chown -R fred:fred /home/fred /home/games /home/archives ; normal_perm /var/log )'
-
 # skype needs this to run properly.
 alias skype='env PULSE_LATENCY_MSEC=30 skype'
 
 # load in the xsede build scripts.
 source "$FEISTY_MEOW_SCRIPTS/buildor/build_xsedes.sh"
 
+# just shows a separator line for an 80 column console, or uses the first
+# parameter as the number of columns to expect.
+function line()
+{
+  count=$1; shift
+  if [ -z "$count" ]; then
+    count=80
+  fi
+  echo
+  for ((i=0; i < $count - 1; i++)); do
+    echo -n "="
+  done
+  echo
+  echo
+}

diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index 14aca01473b815bedeb206710ac2b1e6bf784247..3892cb64e302cfcd01051a9697db7284351a19d1 100644 (file)
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -115,14 +115,14 @@ sub safedel {
         # remove the directory itself if possible, since zip did not.
         &recursively_zap_dirs($file);
       }
-      push(@deleted, "$file");
+      push(@deleted, "\"$file\"");
     } elsif (-f $file) {
       # store the file in the trash storage.
       system("chmod u+rw \"$file\"");
 
 #print "about to run: system [$zip -m$use_path $tempfile '$file' $DEV_NULL]";
       system("$zip -m$use_path $tempfile \"$file\" $DEV_NULL");
-      push(@deleted, "$file");
+      push(@deleted, "\"$file\"");
     } else {
       print "$0 cannot find \"$file\" to delete it.\n";
     }