ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

Add (Comment) to header

Browse Source
This commit is contained in:
Mark Andrews
2005-05-16 06:39:39 +00:00
parent 0968b9c9e9
commit c6313caa6c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
util/update_branches
View File

@@ -14,7 +14,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: update_branches,v 1.3 2005/05/16 04:28:59 marka Exp $
# $Id: update_branches,v 1.4 2005/05/16 06:39:39 marka Exp $
%branches = ();
%whom = ();
@@ -28,8 +28,8 @@
open(BRANCHES, "<doc/private/branches") || die "can't open util/branches: $!";
while (<BRANCHES>) {
chomp;
next if (/----------/);
next if (/Whom/);
next if (/^-*$/
next if (/^Branch/);
$c = "";
if (m/\(.*\)/) {
$c = $_;
@@ -80,8 +80,8 @@ close(FILES);
# Write out updated version.
#
open(BRANCHES, ">doc/private/newbranches") || die "can't open doc/private/branches: $!";
print BRANCHES "\nBranch\t\t\t\tStatus\tWhom\n";
print BRANCHES "-------------------------------------------------------\n\n";
print BRANCHES "\nBranch\t\t\t\tStatus\tWhom\t(Comments)\n";
print BRANCHES "----------------------------------------------------------\n\n";
foreach $key (sort keys %branches) {
next if ($branches{$key} eq "closed");
print BRANCHES "$key";