/usr/share/irssi/scripts/lastspoke.pl is in irssi-scripts 20131030.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 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');
|