summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Crawl/Bot.pm1
-rw-r--r--lib/Crawl/Bot/Plugin.pm1
-rw-r--r--lib/Crawl/Bot/Plugin/Logging.pm8
3 files changed, 10 insertions, 0 deletions
diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm
index 111490d..046e50f 100644
--- a/lib/Crawl/Bot.pm
+++ b/lib/Crawl/Bot.pm
@@ -47,6 +47,7 @@ before say => sub {
my $self = shift;
my %params = @_;
warn "sending '$params{body}' to $params{channel}";
+ $self->sent({%params, who => $self->nick}) for @{ $self->plugins };
};
sub tick {
diff --git a/lib/Crawl/Bot/Plugin.pm b/lib/Crawl/Bot/Plugin.pm
index c95dd47..185c209 100644
--- a/lib/Crawl/Bot/Plugin.pm
+++ b/lib/Crawl/Bot/Plugin.pm
@@ -19,6 +19,7 @@ sub nick_change { }
sub kicked { }
sub topic { }
sub userquit { }
+sub sent { }
__PACKAGE__->meta->make_immutable;
no Moose;
diff --git a/lib/Crawl/Bot/Plugin/Logging.pm b/lib/Crawl/Bot/Plugin/Logging.pm
index 7f58fd0..1382392 100644
--- a/lib/Crawl/Bot/Plugin/Logging.pm
+++ b/lib/Crawl/Bot/Plugin/Logging.pm
@@ -130,4 +130,12 @@ sub userquit {
return;
}
+sub sent {
+ my $self = shift;
+ my ($args) = @_;
+
+ $self->log_message("<$args->{who}> $args->{body}");
+ return;
+}
+
1;