From 45a7197e853d917f21ebd17953ea20d243ba6d47 Mon Sep 17 00:00:00 2001 From: David Phillips Date: Tue, 21 Mar 2017 11:11:33 +1300 Subject: Treat CTCP ACTIONs the same as public messages --- TODO | 1 - idalius.pl | 6 +++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/TODO b/TODO index a0d10c5..7a2545b 100644 --- a/TODO +++ b/TODO @@ -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 diff --git a/idalius.pl b/idalius.pl index f72a95b..d998b97 100755 --- a/idalius.pl +++ b/idalius.pl @@ -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]; -- cgit v1.1