From d5c446c70e776601fc83c9b0c2afde74918c0fa9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 26 Nov 2009 17:56:33 -0600
Subject: stop showing the email address for users, for now

---
 lib/Crawl/Bot.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib')

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);
     });
-- 
cgit v1.2.3-54-g00ecf