projects
/
feisty_meow.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed some importenv.pl usage.
[feisty_meow.git]
/
scripts
/
files
/
safedel.pl
diff --git
a/scripts/files/safedel.pl
b/scripts/files/safedel.pl
old mode 100755
(executable)
new mode 100644
(file)
index
ab64a27
..
30503fa
--- a/
scripts/files/safedel.pl
+++ b/
scripts/files/safedel.pl
@@
-20,12
+20,12
@@
###############################################################################
require Cwd;
###############################################################################
require Cwd;
-require "ctime.pl";
require "filename_helper.pl";
require "inc_num.pl";
require "filename_helper.pl";
require "inc_num.pl";
-require "importenv.pl";
require "zap_the_dir.pl";
require "zap_the_dir.pl";
+use Env qw(TMP OS);
+
#hmmm: need a usage statement.
if ($#ARGV < 0) {
#hmmm: need a usage statement.
if ($#ARGV < 0) {
@@
-125,7
+125,8
@@
sub safedel {
print "Trashed [@deleted].\n";
open(REPORT, ">>$TMP/zz_safedel.rpt");
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);
$printable_date =~ s/\n//g;
print REPORT $printable_date . " -- safedel: \"temp" . $number . ".zip\" <= [@deleted]\n";
close(REPORT);