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 50c55fccae3b19d2a91043bf0c7651bb94504361..fb84e7115747e11a32e5d16876c91c0322115893 100644 (file)
--- a/scripts/text/new_sig.pl
+++ b/scripts/text/new_sig.pl
@@ -29,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);