bind-9.11.3/util/update_copyrights

	update_copyrights revision 828a5beda384130d5e2913dadd862924c53405bf
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki#!/usr/local/bin/perl -w
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki#
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# Copyright (C) 1998, 1999, 2000  Internet Software Consortium.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki#
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# Permission to use, copy, modify, and distribute this software for any
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# purpose with or without fee is hereby granted, provided that the above
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# copyright notice and this permission notice appear in all copies.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki#
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# SOFTWARE.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenkirequire 5.002;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# Map copyright owners to the files containing copyright messages.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# The first line of the copyright message is not in the file;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# it is constructed by this script.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenkimy %owner2filename = (
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    "" => "util/COPYRIGHT",
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    "NAI" => "util/COPYRIGHT.NAI",
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    "PORTION" => "util/COPYRIGHT.PORTION",
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# Map each copyright owner name to a reference to an array containing
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki# the lines of the copyright message.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenkimy %owner2text = ();
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenkiforeach $owner (keys %owner2filename) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    my $f = $owner2filename{$owner};
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    open(COPYRIGHT, "<$f") || die "can't open $f: $!";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    @copyright_text = <COPYRIGHT>;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    close(COPYRIGHT);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $owner2text{$owner} = [ @copyright_text ];
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki}
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenkiwhile (<>) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    ($file, $typeandowner, $years_list) = split(/\s+/);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    @years = split(/,/, $years_list);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if ( ! -f $file ) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    print "$file: missing\n";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    next;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    my ($type, $owner) = split(/\./, $typeandowner);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $owner = "" if !defined $owner;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $textp = $owner2text{$owner};
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if (!defined $textp) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    print "$file: unknown copyright owner $owner\n";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    next;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    next if $type eq "X";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    # XXXTALE lib/isc/commandline.c should probably also have special handling.
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $before_copyright = "";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $c_comment = 0;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $shell_comment = 0;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $m4_comment = 0;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $first = "";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if ($type eq "C") {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $c_comment = 1;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $prefix = " * ";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    } elsif ($type eq "SH" || $type eq "PERL" || $type eq "MAKE") {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $shell_comment = 1;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $prefix = "# ";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    } elsif ($type eq "M4") {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $m4_comment = 1;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $prefix = "dnl ";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    } else {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    print "$file: type '$type' not supported yet; skipping\n";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    next;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    open(SOURCE, "<$file") || die "can't open $file: $!";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $_ = <SOURCE>;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if ($c_comment && /^\/\*/) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    $_ = <SOURCE>;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if ($_ !~ /[Cc]opyright/) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        print "$file: non-copyright comment\n";
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        close(SOURCE);
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        next;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    if ($_ !~ /\*\//) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        while (<SOURCE>) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        if ($_ =~ /\*\//) {
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki            last;
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki        }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    }
0d63ce2b32a9e1cc8ed71d4d92536c44d66a530avenki    } elsif ($shell_comment) {
    if (/^\#\!/) {
        $before_copyright = "$_#\n";
        $_ = <SOURCE>;
        if ($_ eq "#\n") {
        $_ = <SOURCE>;
        }
    }
    if (/^\#/) {
        if ($_ !~ /[Cc]opyright/) {
        print "$file: non-copyright comment\n";
        close(SOURCE);
        next;
        }
        while (<SOURCE>) {
        if ($_ !~ /^\#/) {
            $first = $_;
            last;
        }
        }
    } else {
        $first = $_;
    }
    } elsif ($m4_comment && /^dnl /) {
    if ($_ !~ /[Cc]opyright/) {
        print "$file: non-copyright comment\n";
        close(SOURCE);
        next;
    }
    while (<SOURCE>) {
        if ($_ !~ /^dnl /) {
        $first = $_;
        last;
        }
    }
    } else {
    $first = $_;
    }
    open(TARGET, ">$file.new") || die "can't open $file.new: $!";
    if ($before_copyright ne "") {
    print TARGET $before_copyright;
    }
    if ($c_comment) {
    print TARGET "/*\n";
    }

    $years = "";
    $first_year = 1;
    foreach $year (@years) {
    if (! $first_year) {
        $years .= ", ";
    }
    $years .= "$year";
    $first_year = 0;
    }

    ($firstline, @otherlines) = @$textp;

    $firstline =~ s/\@YEARS\@/$years/;

    print TARGET "$prefix$firstline";

    foreach $_ (@otherlines) {
    print TARGET "${prefix}$_";
    }
    if ($c_comment) {
    print TARGET " */\n";
    }
    if ($first eq "") {
    $first = <SOURCE>;
    }
    if ($first ne "") {
    if ($first !~ /^\s*$/) {
        print TARGET "\n";
    }
    print TARGET $first;
    while (<SOURCE>) {
        print TARGET $_;
    }
    }
    close(TARGET);
    close(SOURCE);
    $mode = (stat $file)[2]&511;
    chmod $mode, "$file.new";
    rename("$file", "$file.bak") || die "rename($file, $file.bak): $!";
    rename("$file.new", "$file") || die "rename($file.new, $file): $!";
}