aboutsummaryrefslogtreecommitdiff
path: root/idalius.pl
diff options
context:
space:
mode:
authorDavid Phillips <david@sighup.nz>2017-03-21 11:11:33 +1300
committerDavid Phillips <david@sighup.nz>2017-03-21 11:11:33 +1300
commit45a7197e853d917f21ebd17953ea20d243ba6d47 (patch)
tree2378ee47e5fc65de47a725fff64d8da3cbde7cc0 /idalius.pl
parent3754d526466a12a6735e94c7fc692b0d00e1207d (diff)
downloadidalius-45a7197e853d917f21ebd17953ea20d243ba6d47.tar.xz
Treat CTCP ACTIONs the same as public messages
Diffstat (limited to 'idalius.pl')
-rwxr-xr-xidalius.pl6
1 files changed, 5 insertions, 1 deletions
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];