From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Mon, 7 Apr 2008 08:13:03 +0000 (+0000)
Subject: don't truncate author names; do strip out date at beginning of a checkin message
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=04864152b7b5041381709218641a2f0e70a815d1;p=docbook-dsssl

don't truncate author names; do strip out date at beginning of a checkin message
---

diff --git a/contrib/tools/svn2twitter/svn2twitter b/contrib/tools/svn2twitter/svn2twitter
index 95ac219e4..e28860818 100755
--- a/contrib/tools/svn2twitter/svn2twitter
+++ b/contrib/tools/svn2twitter/svn2twitter
@@ -37,11 +37,13 @@ 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);
-}
+#if (length($author) > 6) {
+#  $author = substr($author, 0, 6);
+#}
 my $message = $revs->[0]{message};
 chomp $message;
+# strip out dates at the beginning of messsage
+$message =~ s/^[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9] //g;
 
 #my @paths = keys %{$revs->[0]{paths}};