Import scripts from scripts.irssi.org

1 files changed, 29 insertions, 0 deletions

diff --git a/scripts/ignorsula.pl b/scripts/ignorsula.pl
new file mode 100644
index 0000000..0dfe938
--- /dev/null
+++ b/scripts/ignorsula.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.999999999543675475473856-FDIV-final";
+%IRSSI = (
+	authors		=> 'apic',
+	contact		=> 'apic@IRCnet',
+	name		=> 'ignorsula',
+	description	=> 'script to show ignored message in censored form',
+	license		=> 'public domina', #no typo
+	url		=> 'http://irssi.apic.name/ignorsula.pl',
+);
+
+Irssi::theme_register(['stopp', "\02\03" . "0,4STOPP\03\02 {msgnick \$0}"]);
+
+sub handle_msg {
+	my ($srv, $msg, $nick, $addr, $dst) = @_;
+	if($srv->ignore_check($nick, $addr, $dst, $msg, MSGLEVEL_PUBLIC)) {
+	        $srv->printformat($dst, MSGLEVEL_PUBLIC, "stopp", $nick);
+        }
+}
+
+Irssi::signal_add_first("message public", "handle_msg");
+Irssi::signal_add_first("message private", "handle_msg");
+Irssi::signal_add_first("ctcp action", "handle_msg");