summaryrefslogtreecommitdiffstats
path: root/lib/Bot/Flowdock/IRC.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Bot/Flowdock/IRC.pm')
-rw-r--r--lib/Bot/Flowdock/IRC.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Bot/Flowdock/IRC.pm b/lib/Bot/Flowdock/IRC.pm
index 45d26f3..18bff1d 100644
--- a/lib/Bot/Flowdock/IRC.pm
+++ b/lib/Bot/Flowdock/IRC.pm
@@ -122,9 +122,18 @@ sub said {
my $self = shift;
my ($args) = @_;
+ my $address = $args->{address} || '';
+
+ return if $address eq 'msg';
+
+ # XXX: Bot::BasicBot does a lot of "helpful" munging of messages that we
+ # receive. this is annoying for this use case. look into switching to raw
+ # poco::irc at some point.
+ my $msg = ($address ? "$address: " : '') . $args->{body};
+
$self->flowdock_api->push_chat({
external_user_name => $args->{who},
- content => $args->{body},
+ content => $msg,
});
return;