From: Andrew DeFaria <Andrew@DeFaria.com>
Date: Fri, 16 Oct 2020 16:37:15 +0000 (-0700)
Subject: Added checking for shh file to be quite
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;h=3222686d45d19610bbc333b0bfb58f21fe5f9e54;hp=-c;p=clearscm.git

Added checking for shh file to be quite
---

3222686d45d19610bbc333b0bfb58f21fe5f9e54
diff --git a/bin/announceEmail.pl b/bin/announceEmail.pl
index 94789e8..7a76fc4 100755
--- a/bin/announceEmail.pl
+++ b/bin/announceEmail.pl
@@ -155,6 +155,12 @@ sub Connect2IMAP() {
 sub Say($) {
   my ($msg) = @_;
 
+  if (-f "$FindBin::Bin/shh") {
+    $log->msg("Not speaking because we were asked to be quiet - $msg");
+
+    return;
+  } # if
+
   my ($status, @output) = Execute "/usr/local/bin/gt \"$msg\"";
 
   $log->err("Unable to speak (Status: $status) - "