diff options
Diffstat (limited to 'parse-trac')
-rwxr-xr-x | parse-trac | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -86,6 +86,11 @@ while (defined($line = shift @mail)) { }; last if $line =~ /^-----------------/ } +my @body; +while (defined($line = shift @mail)) { + last if $line =~ /^--/ + push @body, $line; +} die ("$PROGRAM_NAME - $project: No reporter found.\n") unless defined $reporter; die ("$PROGRAM_NAME - $project: No tracproject found.\n") unless defined $tracproject; @@ -93,7 +98,7 @@ 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 '', @mail; +$body = join "\n", @body; my $notice = (defined $is_a_reply) ? "[$tracproject] #$ticketid was updated" : |