stop showing the email address for users, for now

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);
     });