X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2FannounceEmail.pl;h=7a76fc408ab3804c639ed33806469d7df85a8948;hb=3222686d45d19610bbc333b0bfb58f21fe5f9e54;hp=94789e84d27a695ecead72c234fb7043e99c1ef8;hpb=a0afcac06485b33b487e5c573d30df98b229a3ce;p=clearscm.git

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) - "