diff options
Diffstat (limited to 'scripts/email_privmsgs.pl')
| -rw-r--r-- | scripts/email_privmsgs.pl | 148 |
1 files changed, 148 insertions, 0 deletions
diff --git a/scripts/email_privmsgs.pl b/scripts/email_privmsgs.pl new file mode 100644 index 0000000..893006c --- /dev/null +++ b/scripts/email_privmsgs.pl @@ -0,0 +1,148 @@ +# Copyright (c) 2010 Adam James <atj@pulsewidth.org.uk> + +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +# copies of the Software, and to permit persons to whom the Software is +# furnished to do so, subject to the following conditions: + +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. + +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +# THE SOFTWARE. + +use strict; +use vars qw($VERSION %IRSSI); + +use Irssi; +use POSIX qw(strftime); + +use Email::Sender::Simple qw(try_to_sendmail); +use Email::Simple; +use Email::Simple::Creator; + +$VERSION = '0.5'; +%IRSSI = ( + authors => 'Adam James', + contact => 'atj@pulsewidth.org.uk', + url => 'http://git.pulsewidth.org.uk/?p=irssi-scripts.git;a=summary' + name => 'email_privmsgs', + description => + "Emails you private messages sent while you're away. " . + "Useful in combination with screen_away. " . + "Requires Email::Sender.", + license => 'MIT', +); + +my $FORMAT = $IRSSI{'name'} . '_crap'; +my $msgs = {}; + +Irssi::settings_add_str('misc', $IRSSI{'name'} . '_from_address', + 'irssi@' . (%ENV->{'HOST'} || 'localhost')); +Irssi::settings_add_str('misc', $IRSSI{'name'} . '_to_address', + %ENV->{'USER'}); +Irssi::settings_add_str('misc', $IRSSI{'name'} . '_subject', + 'IRC Private Messages from Irssi'); + +Irssi::theme_register([ + $FORMAT, + '{line_start}{hilight ' . $IRSSI{'name'} . ':} $0' +]); + +# check the message log every 30 minutes +Irssi::timeout_add(30*60*1000, 'check_messages', ''); + +sub handle_privmsg() { + my ($server, $message, $user, $address, $target) = @_; + + # only log messages if the user is away + unless ($server->{usermode_away}) { + return; + } + + add_privmsg($server, $message, $user, $address); +} + +sub check_messages() { + if (scalar(keys(%{$msgs})) > 0) { + send_email(); + $msgs = {}; + } + + return 0; +} + +sub add_privmsg() { + my ($server, $message, $user, $addr) = @_; + + unless (defined $msgs->{$server->{chatnet}}) { + $msgs->{$server->{chatnet}} = {}; + }; + + unless (defined $msgs->{$server->{chatnet}}{$user}) { + $msgs->{$server->{chatnet}}->{$user} = []; + }; + + push(@{$msgs->{$server->{chatnet}}->{$user}}, + [time, $message] + ); +} + +sub generate_email() { + my @lines = (); + + if (scalar(keys(%{$msgs})) == 0) { + return undef; + } + + for my $network (keys %{$msgs}) { + push(@lines, $network); + push(@lines, '=' x length($network)); + push(@lines, ''); + + for my $user (keys %{$msgs->{$network}}) { + for my $ele (@{$msgs->{$network}->{$user}}) { + push(@lines, sprintf("[%s] <%s> %s", + strftime("%T", localtime($ele->[0])), + $user, $ele->[1]) + ); + } + push(@lines, ''); + } + } + + return \@lines; +} + +sub send_email() { + my $body = generate_email(); + + unless (defined($body)) { + return; + } + + my $email = Email::Simple->create( + header => [ + To => Irssi::settings_get_str($IRSSI{'name'} . '_to_address'), + From => Irssi::settings_get_str($IRSSI{'name'} . '_from_address'), + Subject => Irssi::settings_get_str($IRSSI{'name'} . '_subject'), + ], + body => join("\n", @{$body}), + ); + + if (! try_to_sendmail($email)) { + Irssi::printformat(MSGLEVEL_CLIENTCRAP, $FORMAT, + "an error occurred when sending an email to " . + Irssi::settings_get_str($IRSSI{'name'} . '_to_address') + ); + } +} + +Irssi::signal_add_last("message private", "handle_privmsg"); |