add a few more event types, and some debug logging

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) = @_;