bind-9.11.3/util/merge_copyrights

	merge_copyrights revision 5c144477062a5df657acee41a82051d38537fd38
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson#!/usr/local/bin/perl -w
de283bda6a902c2102a795192eeab3a769001c7dTinderbox User#
75c0816e8295e180f4bc7f10db3d0d880383bc1cMark Andrews# Copyright (C) 2004-2007, 2009-2015  Internet Systems Consortium, Inc. ("ISC")
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Copyright (C) 1998-2001, 2003  Internet Software Consortium.
4a14ce5ba00ab7bc55c99ffdcf59c7a4ab902721Automatic Updater#
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# Permission to use, copy, modify, and/or distribute this software for any
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# purpose with or without fee is hereby granted, provided that the above
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# copyright notice and this permission notice appear in all copies.
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews#
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
af5073d03288a53b646ec3b807ac25ced64d7879Mark Andrews# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# PERFORMANCE OF THIS SOFTWARE.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# $Id$
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinuse strict;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinmy %file_types = ();
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Usermy %file_years = ();
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrewsmy %exists = ();
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinopen(COPYRIGHTS, "<util/copyrights") || die "can't open ./util/copyrights: $!";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Userwhile (<COPYRIGHTS>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    chomp;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    my ($file, $type, $years) = split;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $file_types{$file} = $type;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    $file_years{$file} = $years;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User}
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Userclose(COPYRIGHTS);
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Usermy ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time());
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User$sec = $min = $hour = $mday = $mon = $wday = $yday = $isdst = 0;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User$year += 1900;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinopen(FILES, "git ls-files | sed 's;^;./;' |") || die "git ls-files: $!";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinwhile (<FILES>) {
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    $exists{$_} = 1;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox Userclose(FILES);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Useropen(CHANGES, "sh util/recent_changes.sh |") || die "recent_changes.sh: $!";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox Userwhile (<CHANGES>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    chomp;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    # this file isn't in the repository now
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    next unless ($exists{$_});
d71e2e0c61df16ff37c9934c371a4a60c08974f7Mark Andrews
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    next if (m%/\.\# |      # CVS old conflict file
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein           /CVS/ |      # CVS directory
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein           /.git/ |     # git directory
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein           util/newcopyrights | # our output
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User           \.bak$ |     # created by update_copyrights
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein           /(dnssafe|openssl)/.*\.[ch]$ |   # imported
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User           doc/(draft|expired|rfc)/     # imported
03c0efc6892ef2ed17338b2ecbb2c5f23fbad0c9Tinderbox User         %x);
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User
d8620c7234281056fdfd2ee40cf16636b8281092Tinderbox User    if (!$file_types{$_}) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    # Strip any .in extension to find out the file's real type.
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    # .in files are processed by configure to produce the target file.
b49958b502ee45022010a0b1bed3968f598895a4Automatic Updater    my $base;
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    ($base = $_) =~ s/\.in$//;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    # Contributed code should maintain its own copyright.
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    if ($base =~ /\.\/contrib\//) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein         $file_types{$_} = "X";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\.\/unit\/atf-src\//) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein         $file_types{$_} = "X";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\/openssl-[a-z0-9.]*-patch$/) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "X";
b3cbb2f1ad021349e89807f3492df6e4e679cd56Mark Andrews    } elsif ($base =~ /\.(c|h|css)$/) {
665a24faf6b3711e4012ac02ae5f0981c093ac1eTinderbox User        $file_types{$_} = "C";
9d557856c2a19ec95ee73245f60a92f8675cf5baTinderbox User    } elsif ($base =~ /\.y$/) {
b49958b502ee45022010a0b1bed3968f598895a4Automatic Updater        $file_types{$_} = "YACC";
b3cbb2f1ad021349e89807f3492df6e4e679cd56Mark Andrews    } elsif ($base =~ /\.pl$/i) {
b3cbb2f1ad021349e89807f3492df6e4e679cd56Mark Andrews        $file_types{$_} = "PERL";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } elsif ($base =~ /\.py$/i) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "PYTHON";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } elsif ($base =~ /\.sh$/) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "SH";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    } elsif ($base =~ /\.docbook$/ ||
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein         $base =~ /.xsl$/ ||
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein         $base =~ /.xml$/) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $file_types{$_} = "SGML";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /doc\/arm\/.*\.html$/) {
61e1dc26d62c2a0059e3ca7efe2ad0f4a5b8df92Mark Andrews        $file_types{$_} = "X";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\.html$/) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "HTML";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\.(man|[0-9])$/) {
d8620c7234281056fdfd2ee40cf16636b8281092Tinderbox User        $file_types{$_} = "MAN";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } elsif ($base =~ /\/Makefile$/) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "MAKE";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/(named|rndc|good|bad).{0,2}\.conf$/) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "CONF-C";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/checkconf\/(good|bad)-.*\.conf$/) {
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User        $file_types{$_} = "CONF-C";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/resolv.?\.conf$/) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "CONF-SH";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } elsif ($base =~ /\.(db|hint)$/) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "ZONE";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    } elsif ($base =~ /\.mkd$/) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "MKD";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /(\/\.gitignore|Atffile|\.(gif|jpg))$/i) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\.(def|dep|dsp|dsw|mak|sln)$/i) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\.(vcxproj(|\.(user|filters)))$/i) {
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\.rnc$/i) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "RNC";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /^\.\/EXCLUDED$/i) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "X";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\.bat$/i) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "BAT";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/named\.args$/i) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "X";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    } elsif ($base =~ /\/named\.port$/i) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/named\.dropedns$/i) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/named\.notcp$/i) {
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User        $file_types{$_} = "X";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } elsif ($base =~ /\/README$/i) {
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User        $file_types{$_} = "TXT.BRIEF";
6bcac4b58d16ee91184a72bd4ff05c41538fd932Tinderbox User    } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_types{$_} = "?";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    }
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    my $m_year = int(`sh util/file_year.sh $_`);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    if ($m_year != $year) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        print "$_: must set copyright year(s) manually\n";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_years{$_} = "????";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_years{$_} = "$year";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    }
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    } else {
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    if (! defined($file_years{$_}) || $file_years{$_} eq "????") {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        print "$_: must set copyright year(s) manually\n";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User        $file_years{$_} = "????";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        next;
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    }
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    # track the modification years even if we are not going to be
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    # updating the copyrights.
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    # next if $file_types{$_} eq "X";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    next if ($file_years{$_} =~ /^PARENT:/);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    next if ($file_years{$_} eq "DOCBOOK");
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    my @years = split(/,/, $file_years{$_});
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    my $has_current = 0;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    foreach my $fyear (@years) {
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User        if ($fyear == $year) {
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User        $has_current = 1;
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User        }
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    if (!$has_current) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $file_years{$_} .= ",$year";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User}
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox Userclose(CHANGES);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox Useropen(NEWCOPYRIGHTS, ">util/newcopyrights") ||
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    die "can't open newcopyrights: $!";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox Userforeach my $file (sort(keys(%file_types))) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    print NEWCOPYRIGHTS "$file";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    my $len = length($file);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    my $tabs = 0;
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    if ($len >= 48) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    $tabs = 1;
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    my $needed = int (48 - $len);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    $tabs = int ($needed / 8);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    if ($needed % 8 != 0) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $tabs++;
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    for (my $i = 0; $i < $tabs; $i++) {
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    printf NEWCOPYRIGHTS "\t";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    printf NEWCOPYRIGHTS "%s\t%s\n", $file_types{$file}, $file_years{$file};
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    if (($file_years{$file} eq "????") || ($file_types{$file} eq "?")) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    print "Unknown file type or year: $file\n";
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User    }
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User}
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Userclose(NEWCOPYRIGHTS);
0eea9763d88e3edf9b6de585f7cfbb08de977124Tinderbox User