X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=scripts%2Ftext%2Fnew_sig.pl;h=fb84e7115747e11a32e5d16876c91c0322115893;hb=refs%2Fheads%2Fmain;hp=82b2e98a5db78ed8e02ff3ac11eeb2acd674fab1;hpb=2952ccf47b80174880141a7ecfa122089f349b8d;p=feisty_meow.git

diff --git a/scripts/text/new_sig.pl b/scripts/text/new_sig.pl
index 82b2e98a..fb84e711 100644
--- 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);