From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Sat, 5 Apr 2008 16:23:37 +0000 (+0000)
Subject: only use the name part of e-mail addresses
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5a52a2984e3841984f8ab37d9cecdfb38d1be6dc;p=docbook-dsssl

only use the name part of e-mail addresses
---

diff --git a/contrib/tools/svn2twitter/svn2twitter b/contrib/tools/svn2twitter/svn2twitter
index e3ea4ff19..95ac219e4 100755
--- a/contrib/tools/svn2twitter/svn2twitter
+++ b/contrib/tools/svn2twitter/svn2twitter
@@ -34,6 +34,8 @@ $revision =~ s/^.+\[([0-9]+)\].*$/$1/;
 my $revs = SVN::Log::retrieve ($repository, $revision);
 
 my $author = $revs->[0]{author};
+$author =~ s/^([^@]+)@.+$/$1/;
+
 # use only first 6 chars of author username
 if (length($author) > 6) {
   $author = substr($author, 0, 6);