X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fsafedel.pl;h=ab64a2780816b773369223d4af1f538552066eca;hb=3c7b6af77b25472348eb14947cd7d7040eba489d;hp=44288b414e9d1cd6dadffcf68e57b1083a25919f;hpb=7292b72668557e9dfcff71eea9729cbd8b523c94;p=feisty_meow.git diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl old mode 100644 new mode 100755 index 44288b41..ab64a278 --- a/scripts/files/safedel.pl +++ b/scripts/files/safedel.pl @@ -32,7 +32,7 @@ if ($#ARGV < 0) { die "Too few arguments to command."; } -$DEV_NULL = "&> /dev/null"; +$DEV_NULL = "> /dev/null 2> /dev/null"; if ($OS eq "UNIX") { $FIND_ENDING = "';'"; $zip = "zip -y "; @@ -97,12 +97,12 @@ sub safedel { next; } $tempfile = $temp_subdir . "/temp" . "$number"; -# print "tempfile is $tempfile; file is $file.\n"; +#print "tempfile is $tempfile; file is $file.\n"; if (-d $file) { # ensure there aren't any read only files. system("chmod -R u+rw \"$file\""); # store the directory in the trash storage. - system("$zip -rm$use_path $tempfile \"$file$wildcard\" $DEV_NULL"); + system("$zip -rm $use_path $tempfile \"$file$wildcard\" $DEV_NULL"); # zip up the files into the safekeeper directory. # recursively unlink in case zip doesn't remove the empty dir. if (-d $file) { @@ -113,6 +113,8 @@ sub safedel { } 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"); } else {