From: Chris Koeritz <fred@gruntose.com>
Date: Tue, 10 Jul 2012 16:10:11 +0000 (-0400)
Subject: removed some importenv.pl usage.
X-Git-Tag: 2.140.90~1287
X-Git-Url: https://feistymeow.org/gitweb/?a=commitdiff_plain;h=e471e89ab16d0224ad0abf3f1c1bef39481aa254;p=feisty_meow.git

removed some importenv.pl usage.
---

diff --git a/scripts/files/change_endings.pl b/scripts/files/change_endings.pl
index 5d26f641..97945e16 100644
--- a/scripts/files/change_endings.pl
+++ b/scripts/files/change_endings.pl
@@ -25,9 +25,6 @@
 
 require "filename_helper.pl";
 
-#require "importenv.pl";
-#require "inc_num.pl";
-
 local($first) = $ARGV[0];
 local($second) = $ARGV[1];
 
diff --git a/scripts/files/filename_helper.pl b/scripts/files/filename_helper.pl
index a55c53ba..84c72966 100644
--- a/scripts/files/filename_helper.pl
+++ b/scripts/files/filename_helper.pl
@@ -18,7 +18,7 @@
 #  version of the License.  Please send any updates to "fred@gruntose.com".   #
 ###############################################################################
 
-require "importenv.pl";
+use Env qw(OS);
 
 ############################################################################
 
diff --git a/scripts/files/renlower.pl b/scripts/files/renlower.pl
index f7e5b1d9..a45c338d 100644
--- a/scripts/files/renlower.pl
+++ b/scripts/files/renlower.pl
@@ -20,7 +20,6 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
 
 # call the primary subroutine to rename the files specified.
 
diff --git a/scripts/files/safedel.pl b/scripts/files/safedel.pl
index ab64a278..30503fa5 100644
--- a/scripts/files/safedel.pl
+++ b/scripts/files/safedel.pl
@@ -20,12 +20,12 @@
 ###############################################################################
 
 require Cwd;
-require "ctime.pl";
 require "filename_helper.pl";
 require "inc_num.pl";
-require "importenv.pl";
 require "zap_the_dir.pl";
 
+use Env qw(TMP OS);
+
 #hmmm: need a usage statement.
 
 if ($#ARGV < 0) {
@@ -125,7 +125,8 @@ sub safedel {
     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);
diff --git a/scripts/files/summing_dir.pl b/scripts/files/summing_dir.pl
index a305c748..648fbcf8 100644
--- a/scripts/files/summing_dir.pl
+++ b/scripts/files/summing_dir.pl
@@ -19,7 +19,8 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
+
+use Env qw(TMP);
 
 local($chewed_line) = "";
 local(@arg_list);
diff --git a/scripts/files/whackem.pl b/scripts/files/whackem.pl
index 6497e3f7..89101259 100644
--- a/scripts/files/whackem.pl
+++ b/scripts/files/whackem.pl
@@ -21,7 +21,6 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
 
 sub interrupt_handler {
     # skip doing any deletions.
diff --git a/scripts/files/zap_the_dir.pl b/scripts/files/zap_the_dir.pl
index 230bda43..6d0b6212 100644
--- a/scripts/files/zap_the_dir.pl
+++ b/scripts/files/zap_the_dir.pl
@@ -21,7 +21,6 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
 
 ############################################################################
 
diff --git a/scripts/processes/runner.pl b/scripts/processes/runner.pl
index bf2f3287..ad7e83fc 100644
--- a/scripts/processes/runner.pl
+++ b/scripts/processes/runner.pl
@@ -19,7 +19,7 @@
 #  version of the License.  Please send any updates to "fred@gruntose.com".   #
 ###############################################################################
 
-require "importenv.pl";
+use Env qw(OS);
 
 $run_dir = ".";
 if ($#ARGV >= 0) {