warnaud

#!/usr/pkg/bin/perl
#
# script qui kick les vilains qui écrivent pas en morse sur #morsefr
#
# paramêtres:
#  morsekick_channels	str	liste des chans à protéger

use Irssi;
use Irssi::Irc;
use vars %IRSSI;

%IRSSI =
(
	authors		=> "Warnaud",
	contact		=> "warnaud\@gmail.com",
	name		=> "noremorse",
	description	=> "degomme les nains qui ecrivent pas en morse",
	license		=> "c'est la fête",
	written		=> "Aujourd'hui",
	changed		=> "Demain"
);

sub catch_junk
{
	my ($server, $data, $nick, $address) = @_;
	my ($target, $text) = split(/ :/, $data, 2);
	my $valid_channel = 0;

	if ($target[0] != '#' && $target[0] != '!' && $target[0] != '&')
	{
		return;
	}

	for my $channel (split(/ /,
		Irssi::settings_get_str('colorkick_channels')))
	{
		if ($target == $channel)
		{
			$valid_channel = 1;
			last;
		}
	}
	if ($valid_channel == 0)
	{
		return;
	}

	if ($text =~ /\x3/ &&
		Irssi::settings_get_bool('colorkick_color'))
	{
		$server->send_raw("KICK $target $nick :color abuse");
	}
	elsif ($text =~ /\x6/ &&
		Irssi::settings_get_bool('colorkick_blink'))
	{
		$server->send_raw("KICK $target $nick :blink abuse");
	}
}

Irssi::settings_add_str('noremorse', 'colorkick_channels', '#morsefr');
Irssi::settings_add_bool('noremorse', 'colorkick_color', 1);
Irssi::settings_add_bool('noremorse', 'colorkick_blink', 1);
Irssi::signal_add("event privmsg", "catch_junk");