projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added meld to apt-cyg install list
[feisty_meow.git]
/
scripts
/
files
/
safedel.pl
diff --git
a/scripts/files/safedel.pl
b/scripts/files/safedel.pl
index b34e852feb770f226f41c1f5ce55bf0f776b3477..010cd959d83976bb61263867142a85e291135605 100644
(file)
--- 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";
require "inc_num.pl";
require "zap_the_dir.pl";
-use Env qw(TMP OS
SHELL_DEBUG
);
+use Env qw(TMP OS
DEBUG_FEISTY_MEOW
);
#hmmm: need a usage statement.
#hmmm: need a usage statement.
@@
-63,7
+63,7
@@
exit 0;
sub safedel {
# get the list of files and directories to whack.
local(@to_delete) = &glob_list(@_);
sub safedel {
# get the list of files and directories to whack.
local(@to_delete) = &glob_list(@_);
-
# print "final
list of whackees: @to_delete\n";
+
print "
list of whackees: @to_delete\n";
# we store the deleted files in a directory under the temporary directory.
if (! -d $TMP) {
# we store the deleted files in a directory under the temporary directory.
if (! -d $TMP) {
@@
-132,7
+132,7
@@
sub safedel {
}
}
if (@deleted) {
}
}
if (@deleted) {
- if ($
SHELL_DEBUG
!= "") {
+ if ($
DEBUG_FEISTY_MEOW
!= "") {
print "Trashed [@deleted].\n";
}
open(REPORT, ">>$TMP/zz_safedel_report.txt");
print "Trashed [@deleted].\n";
}
open(REPORT, ">>$TMP/zz_safedel_report.txt");