From e471e89ab16d0224ad0abf3f1c1bef39481aa254 Mon Sep 17 00:00:00 2001 From: Chris Koeritz Date: Tue, 10 Jul 2012 12:10:11 -0400 Subject: [PATCH] removed some importenv.pl usage. --- scripts/files/change_endings.pl | 3 --- scripts/files/filename_helper.pl | 2 +- scripts/files/renlower.pl | 1 - scripts/files/safedel.pl | 7 ++++--- scripts/files/summing_dir.pl | 3 ++- scripts/files/whackem.pl | 1 - scripts/files/zap_the_dir.pl | 1 - scripts/processes/runner.pl | 2 +- 8 files changed, 8 insertions(+), 12 deletions(-) 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) { -- 2.34.1