From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Sat, 5 Apr 2008 12:39:07 +0000 (+0000)
Subject: strip out e-mail addresses and replace with dot
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=239e7c806a0cfa9fd70e880f4d72e166d2472496;p=docbook-dsssl

strip out e-mail addresses and replace with dot
---

diff --git a/contrib/tools/svn2twitter/svn2twitter b/contrib/tools/svn2twitter/svn2twitter
index 858222531..4d1d8eb6a 100755
--- a/contrib/tools/svn2twitter/svn2twitter
+++ b/contrib/tools/svn2twitter/svn2twitter
@@ -43,6 +43,8 @@ chomp $message;
 #my $twitter = $author . ": " . $message . "; " . join (", ", @paths);
 my $twitter = $author . ": " . $message;
 
+# strip out <foo@bar.org> e-mail addresses (replace with dot)
+$twitter =~ s/\s+<[^@]+@.[^>]+>/./g;
 $twitter =~ tr/\n/ /;
 $twitter =~ s/\s+/ /g;