bind-9.11.3/util/update_branches

	update_branches revision 64cde9d94a2f6c7050f00d9651df6b05e63d09f2
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#!/usr/local/bin/perl -w
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# Copyright (C) 2005  Internet Systems Consortium, Inc. ("ISC")
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# Permission to use, copy, modify, and distribute this software for any
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# purpose with or without fee is hereby granted, provided that the above
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# copyright notice and this permission notice appear in all copies.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# PERFORMANCE OF THIS SOFTWARE.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
64cde9d94a2f6c7050f00d9651df6b05e63d09f2Mark Andrews# $Id: update_branches,v 1.6 2005/05/16 07:02:22 marka Exp $
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews%branches = ();
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews%whom = ();
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews%comments = ();
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
648ba62b1f156cbca14d54d06c535385f1193d13Mark Andrews!system("cvs", "-d", "/proj/cvs/prod", "update", "doc/private/branches") || die "cannot update doc/private/branches: $!";
648ba62b1f156cbca14d54d06c535385f1193d13Mark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# load existing content
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsopen(BRANCHES, "<doc/private/branches") || die "can't open util/branches: $!";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewswhile (<BRANCHES>) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    chomp;
35665db4e49e3e4c0e3776e635449f931f3732cfMark Andrews    next if (/^-/);
c6313caa6cd9d011ac075048d2b62fd3410162dfMark Andrews    next if (/^Branch/);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $c = "";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    if (m/\(.*\)/) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $c = $_;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $c =~ s/.*(\(.*\)).*$/$1/;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        s/\(.*\)//;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
64cde9d94a2f6c7050f00d9651df6b05e63d09f2Mark Andrews    s/\s$//;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    next if (/^\s*$/);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    ($branch, $status, $who) = split;
64cde9d94a2f6c7050f00d9651df6b05e63d09f2Mark Andrews    $status = "new" if (!defined($status));
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $branches{$branch} = $status;
64cde9d94a2f6c7050f00d9651df6b05e63d09f2Mark Andrews    $who = "-" if (!defined($who));
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $whom{$branch} = $who;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $comments{$branch} = $c;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews}
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsclose (BRANCHES);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# Search repository for new branches.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsopen(FILES, "find /proj/cvs/prod/bind9 -type f -name *,v -print |") || die "can't start find: $!";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewswhile (<FILES>) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    chomp;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    # print "file: $_\n"; # debug
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    # $file = $_; # save for branch debug below.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    open(FILE, "<$_") || die "can't open $_: $!";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    while (<FILE>) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        chomp;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        next unless m/^symbols$/;   # skip until we find the tags
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        while (<FILE>) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            chomp;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            last if (m/^locks;/);   # we are past the tags
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            next unless m/\.0\.\d$/; # skip if not a branch
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            s/\s(.*):.*/$1/;    # extract label
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            if (!$branches{$_}) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews                $branches{$_} = "new";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews                $whom{$_} =  "";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews                $comments{$_} =  "";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews                # print "branch: $_ $file\n"; # debug
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        last;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    close(FILE);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews}
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsclose(FILES);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# Write out updated version.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsopen(BRANCHES, ">doc/private/newbranches") || die "can't open doc/private/branches: $!";
c6313caa6cd9d011ac075048d2b62fd3410162dfMark Andrewsprint BRANCHES "\nBranch\t\t\t\tStatus\tWhom\t(Comments)\n";
c6313caa6cd9d011ac075048d2b62fd3410162dfMark Andrewsprint BRANCHES "----------------------------------------------------------\n\n";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsforeach $key (sort keys %branches) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    next if ($branches{$key} eq "closed");
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "$key";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $len = length($key);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    if ($len >= 32) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $tabs = 1;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    } else {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $needed = int (32 - $len);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $tabs = int ($needed / 8);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        if ($needed % 8 != 0) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            $tabs++;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    for ($i = 0; $i < $tabs; $i++) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        printf  BRANCHES "\t";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "$branches{$key}\t";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "$whom{$key}";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "\t$comments{$key}" if ($comments{$key} ne "");
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "\n";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews}
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsprint BRANCHES "\n\n";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsforeach $key (sort keys %branches) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    next if ($branches{$key} ne "closed");
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "$key";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    $len = length($key);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    if ($len >= 32) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $tabs = 1;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    } else {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $needed = int (32 - $len);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        $tabs = int ($needed / 8);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        if ($needed % 8 != 0) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews            $tabs++;
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    for ($i = 0; $i < $tabs; $i++) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews        printf  BRANCHES "\t";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    }
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "$branches{$key}";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "\t\t$comments{$key}" if ($comments{$key} ne "");
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    print BRANCHES "\n";
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews}
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsclose(BRANCHES);
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews# Update if changed.
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews#
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrewsif (system("cmp", "-s", "doc/private/newbranches", "doc/private/branches")) {
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews    rename("doc/private/newbranches", "doc/private/branches") || die "Cannot rename: doc/private/newbranches -> doc/private/branches: $!";
648ba62b1f156cbca14d54d06c535385f1193d13Mark Andrews    !system("cvs", "-d", "/proj/cvs/prod", "commit", "-m", "auto update", "doc/private/branches") || die "cvs commit failed: $!";
f91671c7dc877a52adc06d0a7d0ed1c7f6391e6eMark Andrews} else {
f91671c7dc877a52adc06d0a7d0ed1c7f6391e6eMark Andrews    unlink("doc/private/newbranches");
d9b4174233b951f25cd53a2787b9f14314258c2fMark Andrews}