summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-02-16 22:17:02 -0600
committerJesse Luehrs <doy@tozt.net>2012-02-16 22:20:38 -0600
commit3ac0b0907a892c9db38c398d5a53ad0c47088666 (patch)
tree8f129af73ef00907723b6790cc2643915c5ec2e0
parent29c6145d6958b3ca42c74db463985dbd02fe0383 (diff)
downloadbot-flowdock-irc-3ac0b0907a892c9db38c398d5a53ad0c47088666.tar.gz
bot-flowdock-irc-3ac0b0907a892c9db38c398d5a53ad0c47088666.zip
also forward along status changes
-rw-r--r--lib/Bot/Flowdock/IRC.pm12
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) = @_;