From 2800f668496755482a5fe74898ec1c5dc11953b1 Mon Sep 17 00:00:00 2001 From: Animation des soirees <nightiies@perso.iiens.net> Date: Tue, 14 May 2013 01:32:38 +0200 Subject: [PATCH] Join on invit --- PlayBot.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/PlayBot.pl b/PlayBot.pl index 14c2496..873210e 100755 --- a/PlayBot.pl +++ b/PlayBot.pl @@ -66,6 +66,7 @@ POE::Session->create( irc_001 => \&on_connect, irc_public => \&on_speak, irc_msg => \&on_query, + irc_invite => \&on_invite, irc_notice => \&on_notice, _flux => \&flux, _later => \&later @@ -245,6 +246,15 @@ sub on_notice } } +# Quand on m'invite, je join +sub on_invite +{ + my ($kernel, $user, $chan) = @_[KERNEL, ARG0, ARG1]; + my ($nick,$mask) = split(/!/,$user); + + $log->info($nick . " m'invite sur ". $chan); + $irc->yield(join => $chan); +} # Quand un user parle sub on_speak -- GitLab