diff options
Diffstat (limited to 'bin/send-irssi-away-log')
-rwxr-xr-x | bin/send-irssi-away-log | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/bin/send-irssi-away-log b/bin/send-irssi-away-log new file mode 100755 index 00000000..d1c38170 --- /dev/null +++ b/bin/send-irssi-away-log @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +use 5.028; +use strict; +use warnings; + +use Text::Wrap; + +our $away_log = "$ENV{HOME}/local/irclogs/away.log"; +exit unless -r $away_log; + +my $pos = 1; +if (-r "$away_log.pos") { + open my $pos_fh, "<", "$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 ""; + +open my $fh, "<", $away_log; +while (<$fh>) { + $. > $pos or next; + s{./?}{}g; + /^[0-9]{2}:[0-9]{2}:[0-9]{2}/ and say $mail wrap "", "", $_; +} + +open my $pos_fh, ">", "$away_log.pos"; +say $pos_fh $fh->input_line_number; |