cleaning updates

[feisty_meow.git] / scripts / text / new_sig.pl

diff --git a/scripts/text/new_sig.pl b/scripts/text/new_sig.pl
index 82b2e98a5db78ed8e02ff3ac11eeb2acd674fab1..fb84e7115747e11a32e5d16876c91c0322115893 100644 (file)
--- a/scripts/text/new_sig.pl
+++ b/scripts/text/new_sig.pl
@@ -19,7 +19,8 @@
 ###############################################################################
 
 require "filename_helper.pl";
-require "importenv.pl";
+
+use Env qw(HOME TMP);
 
 # creates a new signature file for outgoing email.
 local($temp_filename) = "$TMP/zz_signate";
@@ -28,11 +29,16 @@ open(FILE, ">" . $temp_filename) || die "couldn't open $temp_filename for writin
 print FILE "_______ chosen by the Nechung Oracle Program [ http://gruntose.com/ ] _______\n";
 print FILE "\n";
 close(FILE);
-local($bindir) = $ENV{'BINDIR'};
+local($bindir) = $ENV{'FEISTY_MEOW_BINARIES'};
 $bindir = &sanitize_name($bindir);
-system("$bindir/nechung >>$temp_filename");
-###always hits this.  nechung gives an error? || die "couldn't run nechung.";
-open(FILE, ">>" . $temp_filename) || die "couldn't open $temp_filename for writing.";
+$app_path = "$bindir/nechung";
+if (-e $app_path) {
+  system("$app_path >>$temp_filename");
+  open(FILE, ">>" . $temp_filename) || die "couldn't open $temp_filename for writing.";
+} else {
+  open(FILE, ">>" . $temp_filename) || die "couldn't open $temp_filename for writing.";
+  print FILE "nechung oracle program (NOP) could not be found.\n";
+}
 print FILE "\n";
 print FILE "_____________ not necessarily my opinions, not necessarily not. _____________\n";
 close(FILE);