diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-16 21:16:57 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-16 21:17:58 -0600 |
commit | c8d5bd0f07dc4fe91396eada4d7d10e4f1787cf3 (patch) | |
tree | 9a2e98287941014e073c992f062c1f1b62602738 /lib/Bot/Flowdock | |
parent | 2ddc43d06500224548f2ad3e5419f4316406adcf (diff) | |
download | bot-flowdock-irc-c8d5bd0f07dc4fe91396eada4d7d10e4f1787cf3.tar.gz bot-flowdock-irc-c8d5bd0f07dc4fe91396eada4d7d10e4f1787cf3.zip |
add a few more event types, and some debug logging
Diffstat (limited to 'lib/Bot/Flowdock')
-rw-r--r-- | lib/Bot/Flowdock/IRC.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/Bot/Flowdock/IRC.pm b/lib/Bot/Flowdock/IRC.pm index e3b8732..a70414f 100644 --- a/lib/Bot/Flowdock/IRC.pm +++ b/lib/Bot/Flowdock/IRC.pm @@ -2,6 +2,7 @@ package Bot::Flowdock::IRC; use Moose; use MooseX::NonMoose; +use JSON; use List::MoreUtils 'any'; use Net::Flowdock 0.03; use Net::Flowdock::Stream; @@ -109,6 +110,15 @@ sub tick { if ($type eq 'message') { $self->flowdock_message($event); } + elsif ($type eq 'user-edit') { + $self->flowdock_user_edit($event); + } + elsif ($type eq 'activity.user') { + # ignore it + } + else { + warn "Unknown event type $type: " . encode_json($event); + } } return 1; @@ -128,6 +138,11 @@ sub flowdock_message { ); } +sub flowdock_user_edit { + my $self = shift; + my ($event) = @_; +} + sub said { my $self = shift; my ($args) = @_; |