#!/usr/bin/perl -w

IRC::register("recchine.pl","0.1","","");

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

sub recchione {
	$speakline=$_[0];
	$speakline=lc($speakline);
	my ($host, $cmd, $chan, $msg) = split(/ /, $speakline);
	if ( ($msg =~ /^\:[Rr][Ee]$/) || 
	     ($msg =~ /^\:[Rr][Ee] [Aa][Ll][Ll]$/) ) {
		IRC::command("/MSG $chan CCHIONE!");
	}	
}

IRC::add_message_handler("PRIVMSG","recchione");