X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Ffiles%2Fsafedel.pl;h=ab64a2780816b773369223d4af1f538552066eca;hb=3c7b6af77b25472348eb14947cd7d7040eba489d;hp=7cf9647ade5e9d55f562b33b8ef40693ac1fe502;hpb=2952ccf47b80174880141a7ecfa122089f349b8d;p=feisty_meow.git diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl old mode 100644 new mode 100755 index 7cf9647a..ab64a278 --- a/scripts/files/safedel.pl +++ b/scripts/files/safedel.pl @@ -32,14 +32,13 @@ if ($#ARGV < 0) { die "Too few arguments to command."; } +$DEV_NULL = "> /dev/null 2> /dev/null"; if ($OS eq "UNIX") { $FIND_ENDING = "';'"; - $DEV_NULL = "> /dev/null"; $zip = "zip -y "; } elsif ( ($OS eq "DOS") || ($OS eq "Windows_95") || ($OS eq "Windows_98") || ($OS eq "Windows_NT") ) { $FIND_ENDING = "';'"; - $DEV_NULL = "> nul"; $zip = "zip "; } else { die "The Operating System variable (OS) is not set.\n"; @@ -98,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) { @@ -114,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 {