diff options
Diffstat (limited to 'dimpid.pl')
-rw-r--r-- | dimpid.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/dimpid.pl b/dimpid.pl new file mode 100644 index 0000000..1c04b34 --- /dev/null +++ b/dimpid.pl @@ -0,0 +1,27 @@ +use strict; + +use Irssi; + +our $VERSION = '1.00'; +our %IRSSI = { + authors => 'Teddy Wing', + contact => 'irssi@teddywing.com', + name => 'Dimpid', + description => 'Dim messages from certain nicks', + license => 'GPL', +}; + + +use Data::Dumper; + +Irssi::theme_register(['dimpid', '%5$0%n']); + +Irssi::signal_add('message public', sub { + my ($server, $text, $nick, $address, $target) = @_; + + Irssi::print(Dumper($target), MSGLEVEL_CLIENTCRAP); + + if ($nick eq 'test-3kj469y5h') { + $server->printformat($target, MSGLEVEL_PUBLIC, 'dimpid', $text); + } +}); |