diff options
-rwxr-xr-x | bin/send-irssi-away-log | 19 |
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; |