bind-9.11.3/util/update_copyrights

	update_copyrights revision c61c6db1cea02006815184845fcf1b633b28163d
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews#!/usr/local/bin/perl -w
bec154197d3d640b0d5b416cd5218ea58dca5d3aTinderbox User#
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# Copyright (C) 2004, 2005  Internet Systems Consortium, Inc. ("ISC")
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# Copyright (C) 1998-2001  Internet Software Consortium.
4a14ce5ba00ab7bc55c99ffdcf59c7a4ab902721Automatic Updater#
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# Permission to use, copy, modify, and distribute this software for any
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# purpose with or without fee is hereby granted, provided that the above
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# copyright notice and this permission notice appear in all copies.
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews#
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# PERFORMANCE OF THIS SOFTWARE.
ea94d370123a5892f6c47a97f21d1b28d44bb168Tinderbox User
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# $Id: update_copyrights,v 1.37 2005/05/12 08:08:44 marka Exp $
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsrequire 5.002;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
e21a2904f02a03fa06b6db04d348f65fe9c67b2bMark Andrews# Map copyright owners to the files containing copyright messages.
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# The first line of the copyright message is not in the file;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# it is constructed by this script.
0c6ada0a814f3c5417daa1654129bc2af56ed504Automatic Updater
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy %owner2filename = (
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "" => "util/COPYRIGHT",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "NAI" => "util/COPYRIGHT.NAI",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "NOM" => "util/COPYRIGHT.NOM",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "BSDI" => "util/COPYRIGHT.BSDI",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "BRIEF" => "util/COPYRIGHT.BRIEF",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    "PORTION" => "util/COPYRIGHT.PORTION",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews);
0c6ada0a814f3c5417daa1654129bc2af56ed504Automatic Updater
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# Map each copyright owner name to a reference to an array containing
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# the lines of the copyright message.
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy %owner2text = ();
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy $keyword_pat = '\$(Id:.*|Revision:.*|Id|Revision)\$';
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsforeach $owner (keys %owner2filename) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        my $f = $owner2filename{$owner};
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        open(COPYRIGHT, "<$f") || die "can't open $f: $!";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        @copyright_text = <COPYRIGHT>;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        close(COPYRIGHT);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $owner2text{$owner} = [ @copyright_text ];
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews}
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy %file_types = ();
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy %file_years = ();
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy $years_list;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox Usermy $parent;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewswhile (<>) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    chomp;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    ($file, $type, $years) = split(/\s+/);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $file_types{$file} = $type;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $file_years{$file} = $years;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews}
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewssub getyears {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $parent = $_[0];
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User    $parent =~ s/PARENT://;
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User    $years_list = $file_years{$parent};
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User    if (defined($years_list) && $years_list =~ /^PARENT:/) {
c247e3f281613fabe1af362e9f3157e35ebbe52cMark Andrews        print "BAD PARENT:$parent\n";
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User        undefine($years_list);
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User    }
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User}
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewssub docbook {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $parent = $_[0];
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $parent =~ s/\.[^.]*$/.docbook/;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $years_list = $file_years{$parent};
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews}
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewssub copyright {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    my $holder = shift;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    my $result = "";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    return $result unless (@_);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $result = "$result    <copyright>\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $result = "$result      <year>$_</year>\n" foreach (@_);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $result = "$result      <holder>$holder</holder>\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $result = "$result    </copyright>\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    return $result;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews}
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewssub copyrights {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    my $a = copyright("Internet Systems Consortium, Inc. (\"ISC\")",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews           grep({ $_ >= 2004} @_));
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    my $b = copyright("Internet Software Consortium.",
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews           grep({ $_ < 2004} @_));
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    return "$a$b";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews}
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsforeach $file (keys %file_types) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $typeandowner = $file_types{$file};
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    $years_list = $file_years{$file};
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        if ( ! -f $file ) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                print "$file: missing\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                next;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        }
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        if ($years_list =~ /PARENT:/) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        getyears($years_list);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        if (!defined $years_list) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews            print "$file: has bad parent $parent\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews            next;
1224c3b69b3d18f7127aa042644936af25a2d679Mark Andrews        }
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    }
1224c3b69b3d18f7127aa042644936af25a2d679Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    if ($years_list eq "DOCBOOK") {
1224c3b69b3d18f7127aa042644936af25a2d679Mark Andrews        docbook($file);
b2f07642fd712c8fda81a116bcdde229ab291f33Tinderbox User        if (!defined $years_list) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews            print "$file: has bad parent $parent\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews            next;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        }
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews    }
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        @years = split(/,/, $years_list);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        my ($type, $owner) = split(/\./, $typeandowner);
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $owner = "" if !defined $owner;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $textp = $owner2text{$owner};
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        if (!defined $textp) {
c247e3f281613fabe1af362e9f3157e35ebbe52cMark Andrews                print "$file: unknown copyright owner $owner\n";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                next;
c247e3f281613fabe1af362e9f3157e35ebbe52cMark Andrews        }
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
c247e3f281613fabe1af362e9f3157e35ebbe52cMark Andrews        next if $type eq "X" or $type eq "BAT";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $before_copyright = "";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $c_comment = 0;
c247e3f281613fabe1af362e9f3157e35ebbe52cMark Andrews        $shell_comment = 0;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $m4_comment = 0;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $sgml_comment = 0;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $zone_comment = 0;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $man_comment = 0;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $start_comment = "";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $end_comment = "";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        $first = "";
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews        if ($type =~ /^(C|YACC|CONF-C)$/) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                $c_comment = 1;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                $start_comment = "/*\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = " * ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $end_comment = " */\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type =~ /^(SH|PERL|TCL|MAKE|CONF-SH)$/) {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                $shell_comment = 1;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = "# ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "ZONE" || $type eq "MC") {
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews                $zone_comment = 1;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = "; ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "MAN") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $man_comment = 1;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = ".\\\" ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "M4") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $m4_comment = 1;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = "dnl ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "HTML" || $type eq "SGML") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $sgml_comment = 1;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $start_comment = "<!--\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = " - ";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $end_comment = "-->\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "TXT") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $prefix = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                print "$file: type '$type' not supported yet; skipping\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        ($nonspaceprefix = $prefix) =~ s/\s+$//;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        open(SOURCE, "<$file") || die "can't open $file: $!";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($type eq "YACC") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                unless ($_ eq "%{\n") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print "$file: unexpected yacc file start ",
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                              "(expected \"%{\\n\")\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $before_copyright = "$_";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($c_comment && /^\/\*/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($_ !~ /[Cc]opyright/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print "$file: non-copyright comment\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($_ !~ /\*\//) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        while (<SOURCE>) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                last if $_ =~ /\*\//;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($shell_comment) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if (/^\#\!/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $before_copyright = "$_#\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $_ = <SOURCE> if $_ eq "#\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if (/^\#/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($_ !~ /[Cc]opyright/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                print "$file: non-copyright comment\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        while (<SOURCE>) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                if ($_ !~ /^\#/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                        $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                        last;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif (($m4_comment || $zone_comment || $man_comment) &&
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                 /^\Q$nonspaceprefix\E/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                while (/^\Q$nonspaceprefix\E\s*$/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($_ !~ /[Cc]opyright/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print "$file: non-copyright comment\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                while (<SOURCE>) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($_ !~ /^\Q$nonspaceprefix\E/ ||
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                            $_ =~ /$keyword_pat/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                last;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($sgml_comment) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if (/^<!DOCTYPE/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $before_copyright = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            while (! /^<!/ ) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $before_copyright = "$before_copyright$_";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if (/^<!/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $_ = <SOURCE> if $_ eq "<!--\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($_ !~ /[Cc]opyright/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                print "$file: non-copyright comment\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                next;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        while (defined($_)) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                last if s/.*-->//;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print "$file: unterminated comment\n"
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                          unless defined($_);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($_ ne "\n") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $first = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } elsif ($type eq "TXT") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($_ =~ /[Cc]opyright/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $/ = "";            # paragraph at a time
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        while (<SOURCE>) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                # Not very maintainable, but ok enough for now.
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                last unless
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                  /[Cc]opyright/ ||
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                  /See COPYRIGHT in the source root/ ||
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                  /Permission to use, copy, modify, and / ||
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                  /THE SOFTWARE IS PROVIDED "AS IS" AND /;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $/ = "\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $first = $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $first = "" if ! defined($first);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        open(TARGET, ">$file.new") || die "can't open $file.new: $!";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET $before_copyright if $before_copyright;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET $start_comment if $start_comment;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $sysyears = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $sftyears = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $nomyears = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    # Internet Software Consortium: up to 2003
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $last_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $anchor_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $years = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        foreach $year (@years) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($year >= 2004) { next; }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($last_year != 0 && $year == $last_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($year > $anchor_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                substr($years, $anchor_end) = "-$year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $years .= ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $years .= $last_year == 0 ? "$year" : ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #if ($anchor_year != 0) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #        print "$file: noncontiguous year: ",
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #              "$year != $last_year + 1\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #}
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_end = length($years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $last_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $sftyears = $years;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    # Nominum: up to 2001.
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $last_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $anchor_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $years = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        foreach $year (@years) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($year >= 2002) { next; }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($last_year != 0 && $year == $last_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($year > $anchor_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                substr($years, $anchor_end) = "-$year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $years .= ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $years .= $last_year == 0 ? "$year" : ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #if ($anchor_year != 0) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #        print "$file: noncontiguous year: ",
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #              "$year != $last_year + 1\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #}
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_end = length($years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $last_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $nomyears = $years;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    # Internet Systems Consortium: 2004 onwards.
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    #
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $last_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $anchor_year = 0;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $years = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $anchor_end = length($years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        foreach $year (@years) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($year < 2004) { next; }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($last_year != 0 && $year == $last_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        if ($year > $anchor_year + 1) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                substr($years, $anchor_end) = "-$year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                                $years .= ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $years .= $last_year == 0 ? "$year" : ", $year";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #if ($anchor_year != 0) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #        print "$file: noncontiguous year: ",
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #              "$year != $last_year + 1\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        #}
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $anchor_end = length($years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $last_year = $year;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    $sysyears = $years;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        ($firstline, $secondline, $thirdline, @otherlines) = @$textp;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $firstline =~ s/\@SYSYEARS\@/$sysyears/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $secondline =~ s/\@SFTYEARS\@/$sftyears/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $thirdline =~ s/\@NOMYEARS\@/$nomyears/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET "$prefix$firstline";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    if ($sftyears ne "" ) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET $secondline =~ /^$/ ? $nonspaceprefix : $prefix;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET "$secondline";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET $thirdline =~ /^$/ ? $nonspaceprefix : $prefix;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User    print TARGET "$thirdline";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        foreach $_ (@otherlines) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                print TARGET (/^$/ ? $nonspaceprefix : $prefix);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                print TARGET "$_";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        print TARGET $end_comment if $end_comment;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($first eq "") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $first = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if (defined($first)) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            if ($type eq 'MAN') {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                    print TARGET "$nonspaceprefix\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                    print TARGET "\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                undef $/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $_ = <SOURCE>;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                $/ = "\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($type eq 'SGML' && m:<docinfo>.*?</docinfo>:s) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            print "docinfo: $file\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            my $r = copyrights(@years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            s:<docinfo>.*?</docinfo>:<docinfo>\n$r  </docinfo>:s;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if ($type eq 'SGML' && m:<bookinfo>.*?</bookinfo>:s) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            print "bookinfo: $file\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            my $r = copyrights(@years);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            s:<bookinfo>.*?</bookinfo>:<bookinfo>\n$r  </bookinfo>:s;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                my ($start, $end);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($start_comment ne "") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        ($start = $start_comment) =~ s/\s*\n/ /;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        ($end = $end_comment) =~ s/^\s*(.*)\n/ $1\n/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } elsif ($prefix ne "") {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        ($start = $prefix) =~ s/\s*\n//;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $end = "\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $start = "";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        $end = "\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                if ($first !~ /$keyword_pat/ && $_ !~ /$keyword_pat/) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User            $end = "\n$nonspaceprefix" if ($type eq "MAN");
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print TARGET "$start\$";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print TARGET "Id";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                        print TARGET "\$$end\n";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                print TARGET $first if $first !~ /^\s*$/;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                print TARGET $_;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        close(TARGET);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        close(SOURCE);
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        $mode = (stat $file)[2]&511;
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        chmod $mode, "$file.new";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        if (system("cmp -s $file.new $file") == 0) {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                unlink("$file.new");
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        } else {
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                rename("$file.new", "$file")
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User                  or die "rename($file.new, $file): $!";
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User        }
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User}
0ccb0e98c77a9b9636a036f8f64f5679a430aaf4Tinderbox User