Skip to content
Extraits de code Groupes Projets
Valider 2800f668 rédigé par Animation des soirees's avatar Animation des soirees
Parcourir les fichiers

Join on invit

parent a7d32a29
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -66,6 +66,7 @@ POE::Session->create( ...@@ -66,6 +66,7 @@ POE::Session->create(
irc_001 => \&on_connect, irc_001 => \&on_connect,
irc_public => \&on_speak, irc_public => \&on_speak,
irc_msg => \&on_query, irc_msg => \&on_query,
irc_invite => \&on_invite,
irc_notice => \&on_notice, irc_notice => \&on_notice,
_flux => \&flux, _flux => \&flux,
_later => \&later _later => \&later
...@@ -245,6 +246,15 @@ sub on_notice ...@@ -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 # Quand un user parle
sub on_speak sub on_speak
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter