1 files changed, 83 insertions, 0 deletions
diff --git a/scripts/showmode.pl b/scripts/showmode.pl
new file mode 100644
index 0000000..3095b2c
--- /dev/null
+++ b/scripts/showmode.pl
@@ -0,0 +1,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'});