projects
/
feisty_meow.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7596653
)
removed some importenv.pl usage.
author
Chris Koeritz
<fred@gruntose.com>
Tue, 10 Jul 2012 16:10:11 +0000
(12:10 -0400)
committer
Chris Koeritz
<fred@gruntose.com>
Tue, 10 Jul 2012 16:10:11 +0000
(12:10 -0400)
scripts/files/change_endings.pl
patch
|
blob
|
history
scripts/files/filename_helper.pl
patch
|
blob
|
history
scripts/files/renlower.pl
patch
|
blob
|
history
scripts/files/safedel.pl
patch
|
blob
|
history
scripts/files/summing_dir.pl
patch
|
blob
|
history
scripts/files/whackem.pl
patch
|
blob
|
history
scripts/files/zap_the_dir.pl
patch
|
blob
|
history
scripts/processes/runner.pl
patch
|
blob
|
history
diff --git
a/scripts/files/change_endings.pl
b/scripts/files/change_endings.pl
index 5d26f6416c0735c74988f7396fac0d399fbde105..97945e16a0e6cdc6c11a2d9ea9b7700479c21d72 100644
(file)
--- a/
scripts/files/change_endings.pl
+++ b/
scripts/files/change_endings.pl
@@
-25,9
+25,6
@@
require "filename_helper.pl";
require "filename_helper.pl";
-#require "importenv.pl";
-#require "inc_num.pl";
-
local($first) = $ARGV[0];
local($second) = $ARGV[1];
local($first) = $ARGV[0];
local($second) = $ARGV[1];
diff --git
a/scripts/files/filename_helper.pl
b/scripts/files/filename_helper.pl
index a55c53ba71dd1b416616e5e9d283ffc026cccadd..84c729665f1672d28eb4d12a805ddfb7a705d82b 100644
(file)
--- 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". #
###############################################################################
# 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 f7e5b1d94b3ed604a8de5915e960bf96dd0bb1c0..a45c338df3fd5d99a5f492143ec5d22906a0c37b 100644
(file)
--- a/
scripts/files/renlower.pl
+++ b/
scripts/files/renlower.pl
@@
-20,7
+20,6
@@
###############################################################################
require "filename_helper.pl";
###############################################################################
require "filename_helper.pl";
-require "importenv.pl";
# call the primary subroutine to rename the files specified.
# call the primary subroutine to rename the files specified.
diff --git
a/scripts/files/safedel.pl
b/scripts/files/safedel.pl
index ab64a2780816b773369223d4af1f538552066eca..30503fa50c4b0f87abbcd5e3b7f8d011e0e85040 100644
(file)
--- 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);
diff --git
a/scripts/files/summing_dir.pl
b/scripts/files/summing_dir.pl
index a305c748fedc242e680b2f49d97f1cbaa4cee049..648fbcf899bb206e2a8338a6ffd5c2b621d1add1 100644
(file)
--- a/
scripts/files/summing_dir.pl
+++ b/
scripts/files/summing_dir.pl
@@
-19,7
+19,8
@@
###############################################################################
require "filename_helper.pl";
###############################################################################
require "filename_helper.pl";
-require "importenv.pl";
+
+use Env qw(TMP);
local($chewed_line) = "";
local(@arg_list);
local($chewed_line) = "";
local(@arg_list);
diff --git
a/scripts/files/whackem.pl
b/scripts/files/whackem.pl
index 6497e3f7005bf45eba0cc967e4d4f20af2824dfb..89101259510f7c058b12fd2c82ca35cad4d77253 100644
(file)
--- a/
scripts/files/whackem.pl
+++ b/
scripts/files/whackem.pl
@@
-21,7
+21,6
@@
###############################################################################
require "filename_helper.pl";
###############################################################################
require "filename_helper.pl";
-require "importenv.pl";
sub interrupt_handler {
# skip doing any deletions.
sub interrupt_handler {
# skip doing any deletions.
diff --git
a/scripts/files/zap_the_dir.pl
b/scripts/files/zap_the_dir.pl
index 230bda43b7c448e560d8a42bdbab0a2173c73aae..6d0b6212144237fd519559499836a82984aae3a3 100644
(file)
--- a/
scripts/files/zap_the_dir.pl
+++ b/
scripts/files/zap_the_dir.pl
@@
-21,7
+21,6
@@
###############################################################################
require "filename_helper.pl";
###############################################################################
require "filename_helper.pl";
-require "importenv.pl";
############################################################################
############################################################################
diff --git
a/scripts/processes/runner.pl
b/scripts/processes/runner.pl
index bf2f32872b87e265c8ecdbd42bdc14d6bcf48b89..ad7e83fcfab382feb2c9d133f593e16072b04755 100644
(file)
--- 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". #
###############################################################################
# version of the License. Please send any updates to "fred@gruntose.com". #
###############################################################################
-
require "importenv.pl"
;
+
use Env qw(OS)
;
$run_dir = ".";
if ($#ARGV >= 0) {
$run_dir = ".";
if ($#ARGV >= 0) {