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