From: Andrew DeFaria <Andrew@DeFaria.com>
Date: Wed, 24 Apr 2019 16:36:09 +0000 (-0700)
Subject: Changed polling to 1 minute
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;h=2618169d02d86252cd3dec6f1c3aebe813a6b2f0;p=clearscm.git

Changed polling to 1 minute
---

diff --git a/bin/announceEmail.pl b/bin/announceEmail.pl
index 01c4226..3cbc12e 100755
--- a/bin/announceEmail.pl
+++ b/bin/announceEmail.pl
@@ -44,7 +44,7 @@ $Date: 2019/04/04 13:40:10 $
    -use|rname: User name to log in with (Default: $USER)
    -p|assword: Password to use (Default: prompted)
    -i|map:     IMAP server to talk to (Default: defaria.com)
-   -s|leep:    Number of minutes to sleep inbetween checking mail (Default: 5)
+   -s|leep:    Number of minutes to sleep inbetween checking mail (Default: 1)
 
 =head1 DESCRIPTION
 
@@ -168,14 +168,15 @@ sub MonitorMail() {
       } # if
 
       # Now speak it!
+      my $logmsg = "From $from $subject";
       my $msg = "Message from $from... " . quotemeta $subject;
       $msg =~ s/\"/\\"/g;
 
       if (get_verbose) {
-        $log->msg("Announcing $msg");
+        $log->msg($logmsg);
       } else {
-        $log->log("Announcing $msg")
-      }
+        $log->log($logmsg);
+      } # if
 
       my $cmd = "/usr/local/bin/gt \"$msg\"";