don't send mail unless there are new log entries

1 files changed, 12 insertions, 7 deletions

diff --git a/bin/send-irssi-away-log b/bin/send-irssi-away-log
index d1c38170..7b0c3ff9 100755
--- a/bin/send-irssi-away-log
+++ b/bin/send-irssi-away-log
@@ -15,18 +15,23 @@ if (-r "$away_log.pos") {
     chomp($pos = <$pos_fh>);
 }
 
-open my $mail, "|-", "/usr/sbin/sendmail -t";
-say $mail "To: spwhitton\@spwhitton.name";
-say $mail "From: spwhitton\@spwhitton.name";
-say $mail "Subject: Irssi away.log new messages";
-say $mail "";
-
+my @lines;
 open my $fh, "<", $away_log;
 while (<$fh>) {
     $. > $pos or next;
+    chomp;
     s{./?}{}g;
-    /^[0-9]{2}:[0-9]{2}:[0-9]{2}/ and say $mail wrap "", "", $_;
+    /^[0-9]{2}:[0-9]{2}:[0-9]{2}/ and push @lines, wrap "", "", $_;
 }
 
+exit unless @lines;
+
+open my $mail, "|-", "/usr/sbin/sendmail -t";
+say $mail "To: spwhitton\@spwhitton.name";
+say $mail "From: spwhitton\@spwhitton.name";
+say $mail "Subject: Irssi away.log new messages";
+print $mail "\n";
+print $mail "$_\n\n" for @lines;
+
 open my $pos_fh, ">", "$away_log.pos";
 say $pos_fh $fh->input_line_number;