Added debug logging to certbot scripts

[clearscm.git] / bin / announceEmail.pl

diff --git a/bin/announceEmail.pl b/bin/announceEmail.pl
index df5aa91..3b9d52a 100755 (executable)
--- a/bin/announceEmail.pl
+++ b/bin/announceEmail.pl
@@ -262,9 +262,9 @@ sub MonitorMail() {
     if ($hour >= 7) {
       $log->msg($logmsg);
       $log->dbug("Calling speak");
-      speak $msg;
+      speak $msg, $log;
     } else {
-      $log->msg("$logmsg [silent]");
+      $log->msg("$logmsg [silent nighttime]");
     } # if
 
     $unseen{$_} = 1;
@@ -274,7 +274,7 @@ sub MonitorMail() {
   my $startTime = time;
 
   # Re-establish callback
-  $log->msg("Calling IMAP->idle");
+  $log->dbug("Calling IMAP->idle");
   eval {
     $IMAP->idle(\&MonitorMail, $opts{timeout})
   };
@@ -366,7 +366,7 @@ if ($opts{username} =~ /(.*)\@/) {
 
 my $msg = "Now monitoring email for $opts{user}\@$opts{name}";
 
-speak $msg if $opts{announce};
+speak $msg, $log if $opts{announce};
 
 $log->msg($msg);