Offer summary of commit messages in ChangeLog

diff --git a/org.glite.lb/etics-tag.pl b/org.glite.lb/etics-tag.pl
index 28f2880..4010c47 100755 (executable)
--- a/org.glite.lb/etics-tag.pl
+++ b/org.glite.lb/etics-tag.pl
@@ -222,7 +222,9 @@ usage: $0 [-i maj|min|rev|age|none|<sigle_word_age>] [-g] [-c <current configura
                system("cp $module/project/ChangeLog $tmpChangeLog");
 
                unless ($increment eq "n") {system("echo $major.$minor.$revision-$age >> $tmpChangeLog");}
+
                if ($increment eq "a") {system("echo \"- Module rebuilt\" >> $tmpChangeLog"); system("echo \"\" >> $tmpChangeLog");}
+               else { system("cvs log -S -N -r" . "$current_tag" . ":: $module | egrep -v \"^locks:|^access list:|^keyword substitution:|^total revisions:|^branch:|^description:|^head:|^RCS file:|^date:|^---|^===|^revision \" >> $tmpChangeLog"); }
 
                $ChangeLogRet=system("vim $tmpChangeLog");