1 files changed, 90 insertions, 0 deletions
diff --git a/scripts/quiet.pl b/scripts/quiet.pl
new file mode 100644
index 0000000..df09971
--- /dev/null
+++ b/scripts/quiet.pl
@@ -0,0 +1,90 @@
+#  Copyright (c) 2006 Christoph Berg <cb@df7cb.de>
+#  All rights reserved.
+#
+#  Redistribution and use in source and binary forms, with or without
+#  modification, are permitted provided that the following conditions
+#  are met:
+#  1. Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer.
+#  2. Redistributions in binary form must reproduce the above copyright
+#     notice, this list of conditions and the following disclaimer in the
+#     documentation and/or other materials provided with the distribution.
+#
+#  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+#  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+#  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+#  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+#  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+#  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+#  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+#  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+#  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+#  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+#  SUCH DAMAGE.
+
+#  This script adds support for +q (quiet user) channel modes to irssi.
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.2';
+%IRSSI = (
+    authors     => 'Christoph Berg',
+    contact     => 'cb@df7cb.de',
+    name        => 'quiet',
+    description => 'support for +q (quiet user) channel mode',
+    license     => '2-clause BSD',
+);
+
+# :helium.oftc.net 344 Tauon #test test!*@* cryogen!stu@o.net 1164222156
+# :helium.oftc.net 345 Tauon #test :End of Channel Quiet List
+
+sub event_quiet_list
+{
+	my ($server, $data, $srvname) = @_;
+	my ($target, $channel, $mask, $by, $time) = split(/\s+/, $data);
+	$time = time() - $time if $time;
+	$server->window_find_item($channel)->printformat(MSGLEVEL_CRAP,
+		$by ? "quietlist_long" : "quietlist", $channel, $mask, $by, $time);
+}
+
+sub event_quiet_list_end
+{
+	my ($server, $data, $srvname) = @_;
+	my ($target, $channel, $text) = split(/\s+/, $data, 3);
+	$text =~ s/^://;
+	$server->window_find_item($channel)->print($text, MSGLEVEL_CRAP);
+}
+
+sub do_quiet
+{
+	my ($data, $server, $witem, $quiet) = @_;
+	my $support = $server->isupport("CHANMODES");
+	if ($support !~ /q/) {
+		Irssi::print("This server does not support channel mode +q");
+		return;
+	}
+	if (!$witem or $witem->{type} ne "CHANNEL") {
+		Irssi::print("Not joined to any channel");
+		return;
+	}
+	my @data = split /\s+/, $data;
+	my $mode = @data > 0 ? ($quiet ? "+" : "-") . ("q" x (@data)) . " @data" : "+q";
+	$witem->command("mode $witem->{name} $mode");
+}
+
+sub quiet { do_quiet(@_, 1); }
+sub unquiet { do_quiet(@_, 0); }
+
+Irssi::theme_register([
+	"quietlist" => '{channel $0}: ban quiet {ban $1}',
+	"quietlist_long" => '{channel $0}: ban quiet {ban $1} {comment by {nick $2}, $3 secs ago}',
+]);
+
+Irssi::signal_add("event 344", "event_quiet_list");
+Irssi::signal_add("event 345", "event_quiet_list_end");
+
+Irssi::command_bind('quiet', 'quiet');
+Irssi::command_bind('unquiet', 'unquiet');