diff options
author | David Phillips <david@sighup.nz> | 2017-03-21 11:11:33 +1300 |
---|---|---|
committer | David Phillips <david@sighup.nz> | 2017-03-21 11:11:33 +1300 |
commit | 45a7197e853d917f21ebd17953ea20d243ba6d47 (patch) | |
tree | 2378ee47e5fc65de47a725fff64d8da3cbde7cc0 | |
parent | 3754d526466a12a6735e94c7fc692b0d00e1207d (diff) | |
download | idalius-45a7197e853d917f21ebd17953ea20d243ba6d47.tar.xz |
Treat CTCP ACTIONs the same as public messages
-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]; |