diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-01-25 00:43:16 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-01-25 00:43:16 -0600 |
| commit | 6a84735c5705f5f763c5f63b840d75a050c28d47 (patch) | |
| tree | 18d3e135b18cda06eb5c1339c482d9a6e24c7b37 | |
| parent | 4b56427b97221b4f725b36e2dd6f414329c707a8 (diff) | |
| download | crawlbot-6a84735c5705f5f763c5f63b840d75a050c28d47.tar.gz crawlbot-6a84735c5705f5f763c5f63b840d75a050c28d47.zip | |
also log messages sent by the bot
| -rw-r--r-- | lib/Crawl/Bot.pm | 1 | ||||
| -rw-r--r-- | lib/Crawl/Bot/Plugin.pm | 1 | ||||
| -rw-r--r-- | lib/Crawl/Bot/Plugin/Logging.pm | 8 |
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; |