/usr/share/irssi/scripts/showmode.pl is in irssi-scripts 20100512.
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 | # This script shows modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages
#
# Usage:
# You must change your formats to include the $mode, for example:
# default format for part is:
# {channick $0} {chanhost $1} has left {channel $2} {reason $3}
# to include the mode, do
# /format part $mode{channick $0} {chanhost $1} has left {channel $2} {reason $3}
# for quits:
# /format $mode{channick $0} {chanhost $1} has quit {reason $2}
# Copyright (C) 2003-2007 Wouter Coekaerts <coekie@irssi.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
use strict;
use Irssi 20021028;
use vars qw($VERSION %IRSSI);
$VERSION = "0.3";
%IRSSI = (
authors => "Wouter Coekaerts",
contact => "wouter\@coekaerts.be",
name => "showmode",
description => "show modes in parts, quits, kicks, topic changes or actions, like show_nickmode does for public messages",
license => "GPLv2 or later",
changed => "2007-07-28"
);
my @lastmode;
# $mode2 is 0 for $mode, 1 for $mode2 (only used for 'the kicker')
sub setlast {
my ($mode2, $server, $channelname, $nickname) = @_;
my @channels;
@lastmode[$mode2] = {};
if (defined($channelname)) {
$channels[0] = $server->channel_find($channelname);
if (!defined($channels[0])) {
return;
}
} else {
@channels = $server->channels();
}
foreach my $channel (@channels) {
my $nick = $channel->nick_find($nickname);
if (defined($nick)) {
$lastmode[$mode2]->{$channel->{'name'}} = $nick->{'op'} ? '@' : $nick->{halfop} ? '%' : $nick->{voice} ? '+' : '' ;
}
}
}
sub expando_mode {
my ($server,$item,$mode2) = @_;
if (!defined($item) || $item->{'type'} ne 'CHANNEL' ) {
return '';
}
return $lastmode[$mode2]->{$item->{'name'}};
}
Irssi::signal_add_first('message part', sub {setlast(0,$_[0],$_[1],$_[2]);});
Irssi::signal_add_first('message quit', sub {setlast(0,$_[0],undef,$_[1]);});
Irssi::signal_add_first('message topic', sub {setlast(0,$_[0],$_[1],$_[2]);});
Irssi::signal_add_first('message kick', sub {setlast(0,$_[0],$_[1],$_[2]); setlast(1,$_[0],$_[1],$_[3]);});
Irssi::signal_add_first('message irc action', sub {setlast(0,$_[0],$_[4],$_[2]);});
Irssi::signal_add_first('message irc own_action', sub {setlast(0,$_[0],$_[2],$_[0]->{nick});});
Irssi::expando_create('mode', sub {expando_mode($_[0],$_[1],0)},{ 'message part' => 'None'});
Irssi::expando_create('mode2', sub {expando_mode($_[0],$_[1],1)},{ 'message part' => 'None'});
|