Cross Reference: /bind-9.11.3/util/update

Lines Matching refs:branches
12 #  Track which branches are still open or not in the bind9 cvs repository.
16 #  This script updates doc/private/branches by adding new branches and moving
17 #  closed branches to the end of the file.  New branches are found by walking
18 #  the cvs repository and extracting the new branches from the header fields
21 #  doc/private/branches has one line per branch in the following field order:
28 %branches = ();
40 !system("cvs", "-d", $repository, "update", "-C", "doc/private/branches") || die "cannot update doc/private/branches: $!";
45 open(BRANCHES, "<doc/private/branches") || die "can't open util/branches: $!";
73 	$branches{$branch} = $status;
105 # Search repository for new branches.
107 # New branches have the following format "name:<revision>.0.#"
108 # where # is the number of potential branches from this the revision.
132 			if (!$branches{$_}) {
133 				$branches{$_} = "new";
153 open(BRANCHES, ">doc/private/newbranches") || die "can't open doc/private/branches: $!";
163 foreach $key (sort keys %branches) {
164 	next if ($branches{$key} eq "closed");
179 	print BRANCHES "$branches{$key}\t";
187 foreach $key (sort keys %branches) {
188 	next if ($branches{$key} ne "closed");
203 	print BRANCHES "$branches{$key}";
212 if (system("cmp", "-s", "doc/private/newbranches", "doc/private/branches")) {
213 	rename("doc/private/newbranches", "doc/private/branches") || die "Cannot rename: doc/private/newbranches -> doc/private/branches: $!";
214 	!system("cvs", "-d", $repository, "commit", "-m", "auto update", "doc/private/branches") || die "cvs commit failed: $!";