use branch creator as owner of new branches

diff --git a/util/update_branches b/util/update_branches
index 645b7446fec8f739fc3e07a9abb506c6c0bad847..ffc18433d9a9af3a902a3ad2efecd6eea2c22257 100644 (file)
--- a/util/update_branches
+++ b/util/update_branches
@@ -14,7 +14,7 @@
 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 # PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: update_branches,v 1.18 2005/05/18 04:15:55 marka Exp $
+# $Id: update_branches,v 1.19 2007/01/30 06:00:00 marka Exp $
 
 #
 #  Track which branches are still open or not in the bind9 cvs repository.
@@ -36,6 +36,8 @@
 %branches = ();
 %whom = ();
 %comments = ();
+%history = ();
+%dates = ();
 $repository = "/proj/cvs/prod";
 $module = "bind9";
 
@@ -80,6 +82,23 @@ while (<BRANCHES>) {
 }
 close (BRANCHES);
 
+# T 1999-03-15 21:15 +0000 vixie bind [ietf44:A]
+open(HISTORY, "cvs history -T -a 2> /dev/null |") || die("can't get history");
+while (<HISTORY>) {
+        chomp;
+        s/[][]//g;
+        s/:[^ \t]+$//;
+       s/\s+/ /g;
+       ($tag, $date, $time, $tz, $who, $mod, $branch) = split;
+       next if ($mod ne $module );
+       next if ($tag ne "T" );
+       next if (exists($history{$branch}));
+       $history{$branch} = $who;
+       $dates{$branch} = "$date $time $tz";
+        print "$_\n";
+}
+close (HISTORY);
+
 #
 # Search repository for new branches.
 #
@@ -110,8 +129,13 @@ while (<FILES>) {
                        s/\s(.*):.*/$1/;        # extract label
                        if (!$branches{$_}) {
                                $branches{$_} = "new";
-                               $whom{$_} =  "";
-                               $comments{$_} =  "";
+                               if (exists($history{$_})) {
+                                       $whom{$_} = $history{$_};
+                                       $comments{$_} = $dates{$_};
+                               } else {
+                                       $whom{$_} =  "";
+                                       $comments{$_} =  "";
+                               }
                                # print "branch: $_ $file\n"; # debug
                        }
                }