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
|
#!/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");
|
