html/showmode.pl
1 # This script shows modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages
2 #
3 # Usage:
4 # You must change your formats to include the $mode, for example:
5 # default format for part is:
6 # {channick $0} {chanhost $1} has left {channel $2} {reason $3}
7 # to include the mode, do
8 # /format part $mode{channick $0} {chanhost $1} has left {channel $2} {reason $3}
9 # for quits:
10 # /format $mode{channick $0} {chanhost $1} has quit {reason $2}
11
12 # Copyright (C) 2003-2007 Wouter Coekaerts <coekie@irssi.org>
13 #
14 # This program is free software; you can redistribute it and/or modify
15 # it under the terms of the GNU General Public License as published by
16 # the Free Software Foundation; either version 2 of the License, or
17 # (at your option) any later version.
18 #
19 # This program is distributed in the hope that it will be useful,
20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 # GNU General Public License for more details.
23 #
24 # You should have received a copy of the GNU General Public License
25 # along with this program; if not, write to the Free Software
26 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
27
28 use strict;
29 use Irssi 20021028;
30 use vars qw($VERSION %IRSSI);
31
32 $VERSION = "0.3";
33 %IRSSI = (
34 authors => "Wouter Coekaerts",
35 contact => "wouter\@coekaerts.be",
36 name => "showmode",
37 description => "show modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages",
38 license => "GPLv2 or later",
39 changed => "2007-07-28"
40 );
41
42 my @lastmode;
43
44 # $mode2 is 0 for $mode, 1 for $mode2 (only used for 'the kicker')
45 sub setlast {
46 my ($mode2, $server, $channelname, $nickname) = @_;
47 my @channels;
48 @lastmode[$mode2] = {};
49 if (defined($channelname)) {
50 $channels[0] = $server->channel_find($channelname);
51 if (!defined($channels[0])) {
52 return;
53 }
54 } else {
55 @channels = $server->channels();
56
57 }
58
59 foreach my $channel (@channels) {
60 my $nick = $channel->nick_find($nickname);
61 if (defined($nick)) {
62 $lastmode[$mode2]->{$channel->{'name'}} = $nick->{'op'} ? '@' : $nick->{halfop} ? '%' : $nick->{voice} ? '+' : '' ;
63 }
64 }
65 }
66
67 sub expando_mode {
68 my ($server,$item,$mode2) = @_;
69 if (!defined($item) || $item->{'type'} ne 'CHANNEL' ) {
70 return '';
71 }
72 return $lastmode[$mode2]->{$item->{'name'}};
73 }
74
75 Irssi::signal_add_first('message part', sub {setlast(0,$_[0],$_[1],$_[2]);});
76 Irssi::signal_add_first('message quit', sub {setlast(0,$_[0],undef,$_[1]);});
77 Irssi::signal_add_first('message topic', sub {setlast(0,$_[0],$_[1],$_[2]);});
78 Irssi::signal_add_first('message kick', sub {setlast(0,$_[0],$_[1],$_[2]); setlast(1,$_[0],$_[1],$_[3]);});
79 Irssi::signal_add_first('message irc action', sub {setlast(0,$_[0],$_[4],$_[2]);});
80 Irssi::signal_add_first('message irc own_action', sub {setlast(0,$_[0],$_[2],$_[0]->{nick});});
81
82 Irssi::expando_create('mode', sub {expando_mode($_[0],$_[1],0)},{ 'message part' => 'None'});
83 Irssi::expando_create('mode2', sub {expando_mode($_[0],$_[1],1)},{ 'message part' => 'None'});