From f992e5e97d5ab0cd4d4ffae95c311a7401147fc0 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 30 Aug 2020 12:06:02 -0700 Subject: don't send mail unless there are new log entries --- bin/send-irssi-away-log | 19 ++++++++++++------- 1 file 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; -- cgit v1.2.3