aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xidalius.pl6
1 files changed, 6 insertions, 0 deletions
diff --git a/idalius.pl b/idalius.pl
index 3bf21f8..9529c67 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -51,6 +51,7 @@ POE::Session->create(
irc_ctcp_action
irc_public
irc_msg
+ irc_invite
irc_nick
irc_disconnected
irc_error
@@ -192,6 +193,11 @@ sub irc_msg {
return;
}
+sub irc_invite {
+ my ($who, $where) = @_[ARG0 .. ARG1];
+ $irc->yield(join => $where) if (grep {$_ eq $where} @{$config{channels}});
+}
+
sub irc_disconnected {
%config = config_file::parse_config($config_file);
$irc->yield(connect => { });