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: $!";