diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-02-16 22:17:02 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-02-16 22:20:38 -0600 |
commit | 3ac0b0907a892c9db38c398d5a53ad0c47088666 (patch) | |
tree | 8f129af73ef00907723b6790cc2643915c5ec2e0 | |
parent | 29c6145d6958b3ca42c74db463985dbd02fe0383 (diff) | |
download | bot-flowdock-irc-3ac0b0907a892c9db38c398d5a53ad0c47088666.tar.gz bot-flowdock-irc-3ac0b0907a892c9db38c398d5a53ad0c47088666.zip |
also forward along status changes
-rw-r--r-- | lib/Bot/Flowdock/IRC.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/Bot/Flowdock/IRC.pm b/lib/Bot/Flowdock/IRC.pm index fb9c1ea..0f725c7 100644 --- a/lib/Bot/Flowdock/IRC.pm +++ b/lib/Bot/Flowdock/IRC.pm @@ -121,6 +121,9 @@ sub tick { if ($type eq 'message' || $type eq 'line') { $self->flowdock_message($event); } + elsif ($type eq 'status') { + $self->flowdock_status($event); + } elsif ($type eq 'user-edit') { $self->flowdock_user_edit($event); } @@ -145,10 +148,17 @@ sub flowdock_message { my $name = $self->name_from_id($event->{user}); $self->_say_to_channel( $event->{content}, $name, - emoted => ($event->{event} eq 'line') + emoted => ($event->{event} eq 'line' || $event->{event} eq 'status') ); } +sub flowdock_status { + my $self = shift; + my ($event) = @_; + + $self->flowdock_message($event); +} + sub flowdock_user_edit { my $self = shift; my ($event) = @_; |