summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Crawl/Bot.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm
index 0ca557d..0af614c 100644
--- a/lib/Crawl/Bot.pm
+++ b/lib/Crawl/Bot.pm
@@ -104,13 +104,12 @@ sub tick {
(my $id = $link) =~ s/.*=(\d+)$/$1/;
return if $self->has_issue($id);
warn "New issue! ($id)";
- my $message = $issue->title;
- $message =~ s/\d+: //;
- $message = sprintf '%s (%s) by %s',
- $message, $issue->link, $issue->creator;
+ (my $title = $issue->title) =~ s/\d+: //;
+ my $link = $issue->link;
+ (my $user = $issue->creator) =~ s/ <.*?>$//;
$self->say(
channel => $_,
- body => $message,
+ body => "$title ($link) by $user",
) for $self->channels;
$self->add_issue($id);
});