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 --- idalius.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'idalius.pl') 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