From 4403388c523b22cb77b46634f7b02f7bc767e4cd Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@cowu.be>
Date: Thu, 26 Aug 2010 21:20:09 +0100
Subject: A custom expando like $M that doesnt show channel key

---
 no-key-modes/no_key_modes.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 no-key-modes/no_key_modes.pl

(limited to 'no-key-modes')

diff --git a/no-key-modes/no_key_modes.pl b/no-key-modes/no_key_modes.pl
new file mode 100644
index 0000000..32fd2e7
--- /dev/null
+++ b/no-key-modes/no_key_modes.pl
@@ -0,0 +1,24 @@
+
+use strict;
+use warnings;
+
+use Irssi;
+use Irssi::TextUI;
+use Irssi::Irc;
+
+Irssi::expando_create('M_nopass', \&expando_nopass_modes, {});
+
+sub expando_nopass_modes {
+    my ($server, $witem, $arg) = @_;
+    return '' unless ref($witem) eq 'Irssi::Irc::Channel';
+    my $modes_str = $witem->{mode};
+    my $key_str = $witem->{key};
+
+    if ($key_str) {
+        $modes_str =~ s/\Q$key_str\E//; # remove the key
+        $modes_str =~ s/\s*$//; # strip trailing space if we removed the key.
+
+    }
+
+    return $modes_str;
+}
-- 
cgit v1.2.3