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