bind-9.11.3/util/update_branches

	update_branches revision 01163d188b89911c3a23fe1125a4cab6764a408c
0b062f4990db5cc6db2fe3398926f71b92a67407Brian Wellington#!/usr/local/bin/perl -w
731cc132f22dbc9e0ecd7035dce314a61076d31bAutomatic Updater#
75c0816e8295e180f4bc7f10db3d0d880383bc1cMark Andrews# Copyright (C) 2005  Internet Systems Consortium, Inc. ("ISC")
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
0b062f4990db5cc6db2fe3398926f71b92a67407Brian Wellington# Permission to use, copy, modify, and distribute this software for any
0b062f4990db5cc6db2fe3398926f71b92a67407Brian Wellington# purpose with or without fee is hereby granted, provided that the above
0b062f4990db5cc6db2fe3398926f71b92a67407Brian Wellington# copyright notice and this permission notice appear in all copies.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
8a66318e41ed14c5a88130e8c362610e8faa2121Mark Andrews# PERFORMANCE OF THIS SOFTWARE.
0b062f4990db5cc6db2fe3398926f71b92a67407Brian Wellington
c6c78f699b55b3344fb6b17ddc854cbae4610468Automatic Updater# $Id: update_branches,v 1.9 2005/05/16 23:38:45 marka Exp $
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  Track which branches are still open or not in the bind9 cvs repository.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  This is done so that work that is "in progress" (active) doesn't get
e21a2904f02a03fa06b6db04d348f65fe9c67b2bMark Andrews#  so easily forgotten about.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  This script updates doc/private/branches by adding new branches and moving
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews#  closed branches to the end of the file.  New branches are found by walking
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  the cvs repository and extracting the new branches from the header fields
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  of the files there.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  doc/private/branches has one line per branch in the following field order:
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  name, status, to whom the branch belongs and comments.  Comments are
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#  in '(',')'.  The first three field are single words.
731cc132f22dbc9e0ecd7035dce314a61076d31bAutomatic Updater#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein%branches = ();
731cc132f22dbc9e0ecd7035dce314a61076d31bAutomatic Updater%whom = ();
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein%comments = ();
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Make sure we have a up to date copy.  If the previous ran failed for
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# any reason remove it (-C).
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein!system("cvs", "-d", "/proj/cvs/prod", "update", "-C", "doc/private/branches") || die "cannot update doc/private/branches: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# load existing content
731cc132f22dbc9e0ecd7035dce314a61076d31bAutomatic Updater#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinopen(BRANCHES, "<doc/private/branches") || die "can't open util/branches: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinwhile (<BRANCHES>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next if (/^-/);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next if (/^Branch/);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $c = "";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    if (m/\(.*\)/) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $c = $_;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $c =~ s/.*(\(.*\)).*$/$1/;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        s/\(.*\)//;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    s/\s$//;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next if (/^\s*$/);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    ($branch, $status, $who) = split;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $status = "new" if (!defined($status));
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $branches{$branch} = $status;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $who = "" if (!defined($who));
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $whom{$branch} = $who;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $comments{$branch} = $c;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinclose (BRANCHES);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Search repository for new branches.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinopen(FILES, "find /proj/cvs/prod/bind9 -type f -name *,v -print |") || die "can't start find: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinwhile (<FILES>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    # print "file: $_\n"; # debug
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    # $file = $_; # save for branch debug below.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    open(FILE, "<$_") || die "can't open $_: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    while (<FILE>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        next unless m/^symbols$/;   # skip until we find the tags
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        while (<FILE>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            last if (m/^locks;/);   # we are past the tags
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            next unless m/\.0\.\d$/; # skip if not a branch
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            s/\s(.*):.*/$1/;    # extract label
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            if (!$branches{$_}) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein                $branches{$_} = "new";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein                $whom{$_} =  "";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein                $comments{$_} =  "";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein                # print "branch: $_ $file\n"; # debug
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        last;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    close(FILE);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinclose(FILES);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Write out updated version.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
d71e2e0c61df16ff37c9934c371a4a60c08974f7Mark Andrewsopen(BRANCHES, ">doc/private/newbranches") || die "can't open doc/private/branches: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinprint BRANCHES "\nBranch\t\t\t\tStatus\tWhom\t(Comments)\n";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinprint BRANCHES "----------------------------------------------------------\n\n";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinforeach $key (sort keys %branches) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next if ($branches{$key} eq "closed");
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "$key";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $len = length($key);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    if ($len >= 32) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $tabs = 1;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } else {
d71e2e0c61df16ff37c9934c371a4a60c08974f7Mark Andrews        $needed = int (32 - $len);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $tabs = int ($needed / 8);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        if ($needed % 8 != 0) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein            $tabs++;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    for ($i = 0; $i < $tabs; $i++) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        printf  BRANCHES "\t";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "$branches{$key}\t";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "$whom{$key}";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "\t$comments{$key}" if ($comments{$key} ne "");
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "\n";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinprint BRANCHES "\n\n";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinforeach $key (sort keys %branches) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next if ($branches{$key} ne "closed");
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews    print BRANCHES "$key";
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews    $len = length($key);
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews    if ($len >= 32) {
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews        $tabs = 1;
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews    } else {
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews        $needed = int (32 - $len);
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews        $tabs = int ($needed / 8);
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews        if ($needed % 8 != 0) {
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews            $tabs++;
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews        }
94fc951a9b5679def2a05387a5c251f5cb8eb9c9Mark Andrews    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    for ($i = 0; $i < $tabs; $i++) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        printf  BRANCHES "\t";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "$branches{$key}";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "\t\t$comments{$key}" if ($comments{$key} ne "");
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    print BRANCHES "\n";
d71e2e0c61df16ff37c9934c371a4a60c08974f7Mark Andrews}
d71e2e0c61df16ff37c9934c371a4a60c08974f7Mark Andrewsclose(BRANCHES);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Update if changed.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinif (system("cmp", "-s", "doc/private/newbranches", "doc/private/branches")) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    rename("doc/private/newbranches", "doc/private/branches") || die "Cannot rename: doc/private/newbranches -> doc/private/branches: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    !system("cvs", "-d", "/proj/cvs/prod", "commit", "-m", "auto update", "doc/private/branches") || die "cvs commit failed: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein} else {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    unlink("doc/private/newbranches");
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein