only use the name part of e-mail addresses

diff --git a/contrib/tools/svn2twitter/svn2twitter b/contrib/tools/svn2twitter/svn2twitter
index e3ea4ff1913bfd9c12b5cf439c3961b713db1933..95ac219e46211cadc132896bafc710a64c2e12aa 100755 (executable)
--- 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);