diff options
Diffstat (limited to 'idalius.pl')
-rwxr-xr-x | idalius.pl | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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]; |