diff options
| author | rgrimes <rgrimes@FreeBSD.org> | 1995-07-15 14:01:54 +0000 |
|---|---|---|
| committer | rgrimes <rgrimes@FreeBSD.org> | 1995-07-15 14:01:54 +0000 |
| commit | 5556eba465582550add2a3a475de6651461e2710 (patch) | |
| tree | d0eec88101f160284d94660bd7fe07d4fa55cee7 | |
| parent | 534d78579b250ee084b4e82abd0944c64f001478 (diff) | |
| download | FreeBSD-ports-5556eba465582550add2a3a475de6651461e2710.zip FreeBSD-ports-5556eba465582550add2a3a475de6651461e2710.tar.gz | |
If any of the three lines:
Reviewed by:
Submitted by:
Obtained from:
Are blank, after this commit, cvs will remove them from the Log:
section.
| -rwxr-xr-x | CVSROOT/log_accum.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index 428d437..cd56985 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id$ +# $Id: log_accum.pl,v 1.7 1995/07/15 12:59:04 rgrimes Exp $ # # Perl filter to handle the log messages from the checkin of files in # a directory. This script will group the lists of files by log @@ -333,7 +333,12 @@ while (<STDIN>) { push (@changed_files, split) if ($state == $STATE_CHANGED); push (@added_files, split) if ($state == $STATE_ADDED); push (@removed_files, split) if ($state == $STATE_REMOVED); - push (@log_lines, $_) if ($state == $STATE_LOG); + if ($state == $STATE_LOG) { + if (/^Reviewed by:$/) { next; } + if (/^Submitted by:$/) { next; } + if (/^Obtained from:$/) { next; } + push (@log_lines, $_); + } } # |
