use Irssi;
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "1.1";
%IRSSI = (
    authors     => 'pallotron',
    contact     => 'pallotron@freaknet.org',
    name        => 'recchione',
    description => 'This is a silly script' ,
    license     => 'GNU/GPL',
);

Irssi::print("Recchione loaded!");

sub recchione {
	my ($server, $msg, $nick, $address, $target) = @_;
	if ( ($msg =~ /^[Rr][Ee]$/) || ($msg =~ /^[Rr][Ee] [Aa][Ll][Ll]$/) ) {
		$server->command("MSG $target CCHIONE!");
	}
}

Irssi::signal_add_first('message public','recchione');