diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 22:02:07 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-10 18:34:36 -0700 |
| commit | 632ab6d13ff21d3ba2b22c5fb51e9a5f6c2a49ab (patch) | |
| tree | ec9f6de127c4d9d497faf307182d30116bdb2c58 /bin | |
| parent | c19b94511b70cf625babe393656ba97ddbad58ee (diff) | |
| download | dotfiles-632ab6d13ff21d3ba2b22c5fb51e9a5f6c2a49ab.tar.gz | |
send-irssi-away-log: use internal athenet To: and From: addresses
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/send-irssi-away-log | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/send-irssi-away-log b/bin/send-irssi-away-log index 768c5849..4f29a9cc 100755 --- a/bin/send-irssi-away-log +++ b/bin/send-irssi-away-log @@ -5,6 +5,7 @@ use strict; use warnings; use Text::Wrap; +use File::Basename; our $away_log = "$ENV{HOME}/local/irclogs/away.log"; exit unless -r $away_log; @@ -28,8 +29,8 @@ while (<$fh>) { exit unless @lines; open my $mail, "|-", "/usr/sbin/sendmail -t"; -say $mail "To: spwhitton\@spwhitton.name"; -say $mail "From: spwhitton\@spwhitton.name (Cron Daemon)"; +say $mail "To: spwhitton"; +say $mail "From: " . basename $0 . " (Cron Daemon)"; say $mail "Subject: Irssi away.log new messages"; print $mail "\n"; print $mail "$_\n\n" for @lines; |