diff options
Diffstat (limited to 'scripts/lastspoke.pl')
| -rw-r--r-- | scripts/lastspoke.pl | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/scripts/lastspoke.pl b/scripts/lastspoke.pl new file mode 100644 index 0000000..6cabda7 --- /dev/null +++ b/scripts/lastspoke.pl @@ -0,0 +1,154 @@ +#!/usr/bin/perl -w +# +# LastSpoke.pl +# +# irssi script +# +# This script, when loaded into irssi, will monitor and remember everyones +# last action on one or more channels specified in the lastspoke_channels +# setting +# +# [settings] +# lastspoke_channels +# - Should contain a list of channels that lastspoke should monitor +# this list can be in any format as long as theres full channelnames +# in it. For example: +# "#foo,#bar,#baz" is correct +# "#foo#bar#baz" is correct +# "#foo #bar #baz" is correct +# "foo bar baz" is incorrect +# +# Triggers on !lastspoke <nick>, !seen <nick> and !lastseen <nick> +# +use Irssi; +use Irssi::Irc; + +$VERSION = "0.2"; +%IRSSI = ( + authors => 'Sander Smeenk', + contact => 'irssi@freshdot.net', + name => 'lastspoke', + description => 'Remembers what people said last on what channels', + license => 'GNU GPLv2 or later', + url => 'http://irssi.freshdot.net/', +); + +# Storage for the data. +my %lasthash; + +# Calculates the difference between two unix times and returns +# a string like '15d 23h 42m 15s ago.' +sub calcDiff { + my ($when) = @_; + + my $diff = (time() - $when); + my $day = int($diff / 86400); $diff -= ($day * 86400); + my $hrs = int($diff / 3600); $diff -= ($hrs * 3600); + my $min = int($diff / 60); $diff -= ($min * 60); + my $sec = $diff; + + return "${day}d ${hrs}h ${min}m ${sec}s ago."; +} + +# Hook for nick changes +sub on_nick { + my ($server, $new, $old, $address) = @_; + + my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)"; + if (index($allowedChans, $target) >= 0) { + $lasthash{lc($old)}{'last'} = time(); + $lasthash{lc($old)}{'words'} = "$old changed nick to $new"; + $lasthash{lc($new)}{'last'} = time(); + $lasthash{lc($new)}{'words'} = "$new changed nick from $old"; + } +} + +# Hook for people quitting +sub on_quit { + my ($server, $nick, $address, $reason) = @_; + + my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)"; + if (index($allowedChans, $target) >= 0) { + $lasthash{lc($nick)}{'last'} = time(); + if (! $reason) { + $lasthash{lc($nick)}{'words'} = "$nick quit IRC with no reason"; + } else { + $lasthash{lc($nick)}{'words'} = "$nick quit IRC stating '$reason'"; + } + } +} + +# Hook for people joining +sub on_join { + my ($server, $channel, $nick, $address) = @_; + + my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)"; + if (index($allowedChans, $target) >= 0) { + $lasthash{lc($nick)}{'last'} = time(); + $lasthash{lc($nick)}{'words'} = "$nick joined $channel"; + } +} + +# Hook for people parting +sub on_part { + my ($server, $channel, $nick, $address, $reason) = @_; + + my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)"; + if (index($allowedChans, $target) >= 0) { + $lasthash{lc($nick)}{'last'} = time(); + if (! $reason) { + $lasthash{lc($nick)}{'words'} = "$nick left from $channel with no reason"; + } else { + $lasthash{lc($nick)}{'words'} = "$nick left from $channel stating '$reason'"; + } + } +} + +# Hook for public messages. +# Only act on channels we are supposed to act on (settings_get_str) +sub on_public { + my ($server, $msg, $nick, $addr, $target) = @_; + + $target = $nick if ( ! $target ); + $nick = $server->{'nick'} if ($nick =~ /^#/); + $target = lc($target); + + my $allowedChans = lc(Irssi::settings_get_str("lastspoke_channels")) || "(null)"; + + # Debug + # Irssi::active_win()->print("Server: $server"); + # Irssi::active_win()->print("Msg : $msg"); + # Irssi::active_win()->print("Nick : $nick"); + # Irssi::active_win()->print("Addr : $addr"); + # Irssi::active_win()->print("Target: $target"); + # /Debug + + if (index($allowedChans, $target) >= 0) { + if ( ($msg =~ /^!lastspoke /) || ($msg =~ /^!seen /) || ($msg =~ /^!lastseen /)) { + my @parts = split(/ /,$msg); + + $lasthash{lc($nick)}{'last'} = time(); + $lasthash{lc($nick)}{'words'} = "$nick last queried information about " . $parts[1] . " on $target"; + + if (exists $lasthash{lc($parts[1])}) { + $server->command("MSG $target " . $lasthash{lc($parts[1])}{'words'} . " " . calcDiff($lasthash{lc($parts[1])}{'last'})); + } else { + $server->command("MSG $target I don't know anything about " . $parts[1]); + } + } else { + $lasthash{lc($nick)}{'last'} = time(); + $lasthash{lc($nick)}{'words'} = "$nick last said '$msg' on $target"; + } + } +} + +# Put hooks on events +Irssi::signal_add_last("message public", "on_public"); +Irssi::signal_add_last("message own_public", "on_public"); +Irssi::signal_add_last("message part", "on_part"); +Irssi::signal_add_last("message join", "on_join"); +Irssi::signal_add_last("message quit", "on_quit"); +Irssi::signal_add_last("message nick", "on_nick"); + +# Add setting +Irssi::settings_add_str("lastspoke", "lastspoke_channels", '%s'); |