Cut off trac mails

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@283 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede

1 files changed, 7 insertions, 1 deletions

diff --git a/parse-trac b/parse-trac
index 11ea881..f25282c 100755
--- a/parse-trac
+++ b/parse-trac
@@ -98,7 +98,13 @@ die ("$PROGRAM_NAME - $project: No url found.\n") unless defined $url;
 die ("$PROGRAM_NAME - $project: No ticketid found.\n") unless defined $ticketid;
 die ("$PROGRAM_NAME - $project: No first_line found.\n") unless defined $first_line;
 
-$body = join "\n", @body;
+my $MAXBODYLINES = 5;
+if (scalar @body > $MAXBODYLINES+1) {      # if it's one more let it through, [...] takes a line too
+	$body = join "\n", @body[0 .. $MAXBODYLINES-1];
+	$body .= "[...]\n";
+} else {
+	$body = join "\n", @body;
+};
 
 my $notice = $is_a_reply ?
 	"[$tracproject] #$ticketid was updated" :