From 7fa7d0a4e3011caa6ad824c59cde43d4fe7c485b Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Mon, 10 Sep 2018 20:05:21 +1200
Subject: Rename handlers to on_*

---
 Plugin/Antiflood.pm | 6 +++---
 Plugin/Jinx.pm      | 4 ++--
 Plugin/Titillate.pm | 6 +++---
 Plugin/URL_Title.pm | 6 +++---
 idalius.pl          | 2 ++
 5 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/Plugin/Antiflood.pm b/Plugin/Antiflood.pm
index fbd77a5..eafa50c 100644
--- a/Plugin/Antiflood.pm
+++ b/Plugin/Antiflood.pm
@@ -18,7 +18,7 @@ sub configure {
 	return $self;
 }
 
-sub message {
+sub on_message {
 	my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
 	my $channel = $where->[0];
 	my $nick = (split /!/, $who)[0];
@@ -36,7 +36,7 @@ sub message {
 	return;
 }
 
-sub action {
-	message(@_);
+sub on_action {
+	on_message(@_);
 }
 1;
diff --git a/Plugin/Jinx.pm b/Plugin/Jinx.pm
index 507f242..04c43c8 100644
--- a/Plugin/Jinx.pm
+++ b/Plugin/Jinx.pm
@@ -21,7 +21,7 @@ sub configure {
 	return $self;
 }
 
-sub message {
+sub on_message {
 	my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
 
 	return if defined $last_response and $what eq $last_response;
@@ -36,7 +36,7 @@ sub message {
 	return;
 }
 
-sub action {
+sub on_action {
 	my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
 
 	return if defined $last_response and $what eq $last_response;
diff --git a/Plugin/Titillate.pm b/Plugin/Titillate.pm
index fe31ba3..79f1a4a 100644
--- a/Plugin/Titillate.pm
+++ b/Plugin/Titillate.pm
@@ -13,7 +13,7 @@ sub configure {
 	return $self;
 }
 
-sub message {
+sub on_message {
 	my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
 	my $gathered = "";
 	my @expressions = (keys %{$config{triggers}});
@@ -33,7 +33,7 @@ sub message {
 	return $gathered;
 }
 
-sub action {
-	message(@_);
+sub on_action {
+	on_message(@_);
 }
 1;
diff --git a/Plugin/URL_Title.pm b/Plugin/URL_Title.pm
index 6e0d775..53d6326 100644
--- a/Plugin/URL_Title.pm
+++ b/Plugin/URL_Title.pm
@@ -27,7 +27,7 @@ sub start_handler
 	                    "tagname,self");
 }
 
-sub message
+sub on_message
 {
 	my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
 	my $url;
@@ -81,7 +81,7 @@ sub message
 	return $composed_title;
 }
 
-sub action {
-	message(@_);
+sub on_action {
+	on_message(@_);
 }
 1;
diff --git a/idalius.pl b/idalius.pl
index 9982930..d65a4e1 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -214,6 +214,8 @@ sub handle_common {
 		strike_add($nick, $channel) if $output;
 	}
 
+	# handler names are defined as being prefixed with on_
+	$message_type = "on_$message_type";
 	for my $module (@{$config{plugins}}) {
 		if (module_is_enabled($module) && $module->can($message_type)) {
 			$output = $module->$message_type(\&log_info, $irc->nick_name, $who, $where, $what, $stripped_what, $irc);
-- 
cgit v1.1