diff options
-rw-r--r-- | TODO | 1 | ||||
-rwxr-xr-x | idalius.pl | 6 |
2 files changed, 5 insertions, 2 deletions
@@ -1,4 +1,3 @@ -* CTCP ACTION doesn't trigger the sax-detection * auto-rejoin delay * auto-rejoin selectivity (on some channels not on others) * auto-rejoin on disconnect @@ -30,7 +30,7 @@ $irc->plugin_add('NickServID', POE::Component::IRC::Plugin::NickServID->new( POE::Session->create( package_states => [ - main => [ qw(_default _start irc_001 irc_kick irc_public irc_msg irc_nick) ], + main => [ qw(_default _start irc_001 irc_kick irc_ctcp_action irc_public irc_msg irc_nick) ], ], heap => { irc => $irc }, ); @@ -80,6 +80,10 @@ sub irc_kick { return; } +sub irc_ctcp_action { + irc_public(@_); +} + sub irc_public { my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2]; my $nick = ( split /!/, $who )[0]; |