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
|
# Display kills with more understandable messages.
# for irssi 0.7.98 by Timo Sirainen
# I didn't find anyone else who had done this so I had to figure everything
# out myself, hope this works correctly and in all irc networks.
# There's one kind of nick collision this script doesn't handle - if the
# collision is detected by the server you're connected to, it won't use
# kill as quit reason, but "Nick collision(new)" or "..(old)". This is pretty
# easy to understand already, happens hardly ever(?) and it can be faked
# so I thought better not change it to kill message.
# There's a pretty good explanation of (ircnet) ircd's server kills in
# http://www.irc.org/tech_docs/ircnet/kills.html
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "1.00";
%IRSSI = (
authors => 'Timo Sirainen',
name => 'kills',
description => 'Displays kills with more understandable messages',
license => 'Public Domain',
changed => 'Sun Mar 10 23:18 EET 2002'
);
Irssi::theme_register([
'kill_public', '{channick $0} {chanhost $1} killed by {nick $2}$3 {reason $4}'
]);
sub msg_quit {
my ($server, $nick, $addr, $data) = @_;
my $localkill;
if ($data =~ /^Killed \(([^ ]*) \((.*)\)\)$/) {
# remote kill
$localkill = 0;
} elsif ($data =~ /^Local Kill by ([^ ]*) \((.*)\)/) {
# local kill
$localkill = 1;
} else {
return;
}
my $killer = $1;
my $killmsg = $2;
my $msg = "\002Nick collision\002: ";
my @printargs = ();
if ($killmsg =~ /([^ ]*) != (.*)/) {
# 1 != 2
my $server1 = $1, $server2 = $2;
$server1 =~ s/([^\[]*)\[([^\]]*)\]/\1/;
$msg .= "$2 != $server2";
} elsif ($killmsg =~ /([^ ]*) <- (.*)/) {
# 1 <- 2
my $server1 = $1, $server2 = $2;
if ($server1 =~ /^\(/) {
# (addr1)server1 <- (add2)server2
$server1 =~ s/^\(([^\)]*)\)//;
my $nick1 = $1;
$server2 =~ s/^\(([^\)]*)\)//;
my $nick2 = $1;
$msg .= "server $server1";
$msg .= " (nick from $nick1)" if $nick1;
$msg .= " <- ";
$msg .= "\002$server2\002";
$msg .= " (nick from \002$nick2\002)" if $nick2;
} elsif ($server1 =~ /\)$/ || $server2 =~ /\)$/) {
# server1(nick) <- server2
# server1 <- server2(nick)
$server1 =~ s/\(([^\)]*)\)$//;
my $oldnick = $1;
$server2 =~ s/\(([^\)]*)\)$//;
$oldnick = $1 if $1;
$msg = "\002Nick change collision\002: $server1 <- \002$server2\002 (old nick \002$oldnick\002)";
} else {
# server1 <- server2
$msg = "\002Nick/server collision\002: $server1 <- \002$server2\002";
}
} else {
# something else, just show it as-is
$msg = $killmsg;
}
@list = $server->nicks_get_same($nick);
while (@list) {
$channel = $list[0];
shift @list;
# skip nick record
shift @list;
$channel->printformat(MSGLEVEL_QUITS, 'kill_public',
$nick, $addr, $killer,
$localkill ? " (local)" : "", $msg);
}
Irssi::signal_stop();
}
Irssi::signal_add('message quit', 'msg_quit');
|
