merge_copyrights revision af9dbf1ccdd53933aaae9300d13ce0965d39b067
280a8a0544b4aeb52414d20e8c6e6c5b1108562eTinderbox User#!/usr/local/bin/perl -w
6c2a76b3e2ccd32c35814b6e0f54da00190749d7Evan Hunt#
6fe48fb46e53ffc37542853a1edb74cb481b7d94Automatic Updater# Copyright (C) 2004-2007, 2009-2011 Internet Systems Consortium, Inc. ("ISC")
c7fd128f8ea8a527fe27c1b95ab46df7155bc8e4Tinderbox User# Copyright (C) 1998-2001, 2003 Internet Software Consortium.
c7fd128f8ea8a527fe27c1b95ab46df7155bc8e4Tinderbox User#
1f9754245cbd5eec2d2a667bb292f62f72386d4bMark Andrews# Permission to use, copy, modify, and/or distribute this software for any
1f9754245cbd5eec2d2a667bb292f62f72386d4bMark Andrews# purpose with or without fee is hereby granted, provided that the above
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# copyright notice and this permission notice appear in all copies.
1f9754245cbd5eec2d2a667bb292f62f72386d4bMark Andrews#
1ca2cf024391992fe14b2df7d3ae0f575d074452Evan Hunt# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
1ca2cf024391992fe14b2df7d3ae0f575d074452Evan Hunt# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
0726d872f6f36901ea09321df57084614e5bb6faTinderbox User# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
1ca2cf024391992fe14b2df7d3ae0f575d074452Evan Hunt# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
a2c370ca12bb0360ff7e969474ead3f788c65fffTinderbox User# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
8de3f14f1c300c3e1ed99084cc03485b42c92bf1Tinderbox User# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# PERFORMANCE OF THIS SOFTWARE.
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User# $Id$
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrewsuse strict;
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrewsmy %file_types = ();
b91d11bfcc30b96f2c80f3a76d12e3dcc8597a68Mark Andrewsmy %file_years = ();
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrewsmy %exists = ();
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrewsopen(COPYRIGHTS, "<util/copyrights") || die "can't open ./util/copyrights: $!";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrewswhile (<COPYRIGHTS>) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews chomp;
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews my ($file, $type, $years) = split;
415d630b6309922caee8469384a6fab75cf05032Mark Andrews $file_types{$file} = $type;
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $file_years{$file} = $years;
415d630b6309922caee8469384a6fab75cf05032Mark Andrews}
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrewsclose(COPYRIGHTS);
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrewsmy ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
415d630b6309922caee8469384a6fab75cf05032Mark Andrews$sec = $min = $hour = $mday = $mon = $wday = $yday = $isdst = 0;
efb0e886f18894a1d2489f1ad74ad14b579e11c7Mark Andrews$year += 1900;
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox Useropen(FILES, "git ls-files | sed 's;^;./;' |") || die "git ls-files: $!";
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrewswhile (<FILES>) {
415d630b6309922caee8469384a6fab75cf05032Mark Andrews chomp;
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $exists{$_} = 1;
415d630b6309922caee8469384a6fab75cf05032Mark Andrews}
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrewsclose(FILES);
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrewsopen(CHANGES, "sh util/recent_changes.sh |") || die "recent_changes.sh: $!";
015055b6e23f5c08f6a5b34726f90b62597e9e45Tinderbox Userwhile (<CHANGES>) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews chomp;
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews # this file isn't in the repository now
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews next unless ($exists{$_});
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews next if (m%/\.\# | # CVS old conflict file
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews /CVS/ | # CVS directory
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews /.git/ | # git directory
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt util/newcopyrights | # our output
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews \.bak$ | # created by update_copyrights
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews /(dnssafe|openssl)/.*\.[ch]$ | # imported
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt doc/(draft|expired|rfc)/ # imported
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews %x);
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews if (!$file_types{$_}) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews # Strip any .in extension to find out the file's real type.
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews # .in files are processed by configure to produce the target file.
cdfc81e048bd34c1d628380247bda6b80a89e20eAutomatic Updater my $base;
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews ($base = $_) =~ s/\.in$//;
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews # Contributed code should maintain its own copyright.
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews if ($base =~ /\.\/contrib\//) {
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater $file_types{$_} = "X";
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews } elsif ($base =~ /\.\/unit\/atf-src\//) {
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews $file_types{$_} = "X";
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User } elsif ($base =~ /\/openssl-[a-z0-9.]*-patch$/) {
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $file_types{$_} = "X";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews } elsif ($base =~ /\.(c|h|css)$/) {
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $file_types{$_} = "C";
eabc9c3c07cd956d3c436bd7614cb162dabdda76Mark Andrews } elsif ($base =~ /\.y$/) {
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $file_types{$_} = "YACC";
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews } elsif ($base =~ /\.pl$/i) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User $file_types{$_} = "PERL";
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews } elsif ($base =~ /\.sh$/) {
015055b6e23f5c08f6a5b34726f90b62597e9e45Tinderbox User $file_types{$_} = "SH";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews } elsif ($base =~ /\.docbook$/ ||
fec6e13f2d1e69fe1c2b8fac36f732f124cf5398Mark Andrews $base =~ /.xsl$/ ||
b91d11bfcc30b96f2c80f3a76d12e3dcc8597a68Mark Andrews $base =~ /.xml$/) {
b91d11bfcc30b96f2c80f3a76d12e3dcc8597a68Mark Andrews $file_types{$_} = "SGML";
fec6e13f2d1e69fe1c2b8fac36f732f124cf5398Mark Andrews } elsif ($base =~ /\.html$/) {
415d630b6309922caee8469384a6fab75cf05032Mark Andrews $file_types{$_} = "HTML";
2ae159b376dac23870d8005563c585acf85a4b5aEvan Hunt } elsif ($base =~ /\.(man|[0-9])$/) {
415d630b6309922caee8469384a6fab75cf05032Mark Andrews $file_types{$_} = "MAN";
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews } elsif ($base =~ /\/Makefile$/) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User $file_types{$_} = "MAKE";
2ae159b376dac23870d8005563c585acf85a4b5aEvan Hunt } elsif ($base =~ /\/(named|rndc|good|bad).{0,2}\.conf$/) {
7cc0a5d21ef046bfd630c4769943d896a7d7472cTinderbox User $file_types{$_} = "CONF-C";
e76dfff967cfbe00f4d1540434832e4499a9cd83Tinderbox User } elsif ($base =~ /\/resolv.?\.conf$/) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "CONF-SH";
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User } elsif ($base =~ /\.(db|hint)$/) {
551e6d2414c4f47d58a9bb0b37f206f915a4f5acTinderbox User $file_types{$_} = "ZONE";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } elsif ($base =~ /(\/\.gitignore|\.gif|\.jpg|\.dsp|\.dsw|\.mak)$/i) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User $file_types{$_} = "X";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } elsif ($base =~ /\.rnc$/i) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User $file_types{$_} = "RNC";
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User } elsif ($base =~ /^\.\/EXCLUDED$/i) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "X";
b91d11bfcc30b96f2c80f3a76d12e3dcc8597a68Mark Andrews } elsif ($base =~ /\.bat$/i) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "BAT";
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User } elsif ($base =~ /\/named\.args$/i) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User $file_types{$_} = "X";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } else {
415d630b6309922caee8469384a6fab75cf05032Mark Andrews $file_types{$_} = "?";
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson }
415d630b6309922caee8469384a6fab75cf05032Mark Andrews my $m_year = int(`sh util/file_year.sh $_`);
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews if ($m_year != $year) {
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User print "$_: must set copyright year(s) manually\n";
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews $file_years{$_} = "????";
415d630b6309922caee8469384a6fab75cf05032Mark Andrews } else {
efb0e886f18894a1d2489f1ad74ad14b579e11c7Mark Andrews $file_years{$_} = "$year";
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews }
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User } else {
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews if (! defined($file_years{$_}) || $file_years{$_} eq "????") {
415d630b6309922caee8469384a6fab75cf05032Mark Andrews print "$_: must set copyright year(s) manually\n";
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson $file_years{$_} = "????";
415d630b6309922caee8469384a6fab75cf05032Mark Andrews next;
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews }
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews # track the modification years even if we are not going to be
415d630b6309922caee8469384a6fab75cf05032Mark Andrews # updating the copyrights.
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson # next if $file_types{$_} eq "X";
415d630b6309922caee8469384a6fab75cf05032Mark Andrews next if ($file_years{$_} =~ /^PARENT:/);
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews next if ($file_years{$_} eq "DOCBOOK");
9218b940febade3085fd6d95a15e67d5f94833f0Tinderbox User
0eb371ca0dab50ae3462e98794a6126198c52f4bMark Andrews my @years = split(/,/, $file_years{$_});
28a5dd720187fddb16055a0f64b63a7b66f29f64Mark Andrews my $has_current = 0;
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews foreach my $fyear (@years) {
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews if ($fyear == $year) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews $has_current = 1;
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews }
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews }
fec6e13f2d1e69fe1c2b8fac36f732f124cf5398Mark Andrews if (!$has_current) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews $file_years{$_} .= ",$year";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews }
fec6e13f2d1e69fe1c2b8fac36f732f124cf5398Mark Andrews }
2a31bd531072824ef252c18303859d6af7451b00Francis Dupont}
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrewsclose(CHANGES);
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
2a31bd531072824ef252c18303859d6af7451b00Francis Dupontopen(NEWCOPYRIGHTS, ">util/newcopyrights") ||
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews die "can't open newcopyrights: $!";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrewsforeach my $file (sort(keys(%file_types))) {
8f4e6ea383aa9a953c0adb5be6c4d8dc8dbd5c4aWitold Krecicki print NEWCOPYRIGHTS "$file";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews my $len = length($file);
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews my $tabs = 0;
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews if ($len >= 48) {
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews $tabs = 1;
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews } else {
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews my $needed = int (48 - $len);
7f9e2fff07b9c17e0d7a0ea7abc9304ce9d01b61Tinderbox User $tabs = int ($needed / 8);
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews if ($needed % 8 != 0) {
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews $tabs++;
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews }
549c517e2ecad52bb1d32f08920e29d4e8cda71eTinderbox User }
66317da170ed35b08f5847db2d48b225826327cbTinderbox User for (my $i = 0; $i < $tabs; $i++) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews printf NEWCOPYRIGHTS "\t";
fec6e13f2d1e69fe1c2b8fac36f732f124cf5398Mark Andrews }
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews printf NEWCOPYRIGHTS "%s\t%s\n", $file_types{$file}, $file_years{$file};
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews
01a5c5503482fb3ba52088bf0178a7213273bf96Mark Andrews if (($file_years{$file} eq "????") || ($file_types{$file} eq "?")) {
361967ea970ea8f0ef8875e769505ecdac74bfb0Tinderbox User print "Unknown file type or year: $file\n";
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews }
415d630b6309922caee8469384a6fab75cf05032Mark Andrews}
cdfc81e048bd34c1d628380247bda6b80a89e20eAutomatic Updaterclose(NEWCOPYRIGHTS);
e813f036c8251b6d9d2a72fa84f80c2c9d2795afMark Andrews