diff options
-rwxr-xr-x | idalius.pl | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 => { }); |