Jump to the recently added version when editing ChangeLog

diff --git a/org.glite.lb/etics-tag.pl b/org.glite.lb/etics-tag.pl
index 7f611f6..7c17732 100755 (executable)
--- a/org.glite.lb/etics-tag.pl
+++ b/org.glite.lb/etics-tag.pl
@@ -221,11 +221,21 @@ 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");
+
+                       $editline=`cat $tmpChangeLog | wc -l`;
+                       chomp($editline);
+
                        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"); }
+                               
+                       $lastline=`cat $tmpChangeLog | wc -l`;
+                       chomp($lastline);
+
+                       printf("vim +$lastline +$editline $tmpChangeLog\n");
 
-                       $ChangeLogRet=system("vim $tmpChangeLog");
+                       $ChangeLogRet=system("vim +$editline $tmpChangeLog");
                }
                printf("Modified ChangeLog ready, ret code: $ChangeLogRet\n");