merge_copyrights revision 0014d6342b0d50ae37126ac16d5bf821d02ffff7
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User#!/usr/local/bin/perl -w
6fe48fb46e53ffc37542853a1edb74cb481b7d94Automatic Updater#
7a2a1b8b14fc804ac80612d7b98064095e445be5Automatic Updater# Copyright (C) 1998-2000 Internet Software Consortium.
7a42357217528037bdfedcb17eeebfe96ae4266aAutomatic Updater#
1167fc7904c5f0a472f8df207ac46dd52c7f1ec8Automatic Updater# Permission to use, copy, modify, and distribute this software for any
0c39b3ed9409ecb277d5e32fa763a4e4d6598df8Automatic Updater# purpose with or without fee is hereby granted, provided that the above
46da3117812814a29432a8d9a9ccf8acdbfdadceAutomatic Updater# copyright notice and this permission notice appear in all copies.
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User#
fe84edc17e0d582cf7b4270f8df9d4742a107b1cAutomatic Updater# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS
79b273c187a4aa1016a62181983dfdd0521681aeMark Andrews# ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User# OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
9e3a7b0faf417a10f5f689edf288807b2d5eedc5Brian Wellington# CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
b253dcf9668f95e141bce9556dc88e30d3305a1dTinderbox User# DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User# PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
bbde8dc56605130058a1540609264fa109da3b63Automatic Updater# SOFTWARE.
bbde8dc56605130058a1540609264fa109da3b63Automatic Updater
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews# $Id: merge_copyrights,v 1.13 2000/07/27 03:27:35 tale Exp $
e130ab53e992670e2a2ecf043976ac09f21358d1Automatic Updater
3cc98b8ecedcbc8465f1cf2740b966b315662430Automatic Updater%file_types = ();
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews%file_years = ();
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews
a01aa536188bb3535dfc1107a623e6355a8e6b7cMark Andrewsopen(COPYRIGHTS, "<util/copyrights") || die "can't open ./util/copyrights: $!";
89623368b8f662d458d9964b923050f33c5f75b0Tinderbox Userwhile (<COPYRIGHTS>) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews chomp;
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater ($file, $type, $years) = split;
efb0e886f18894a1d2489f1ad74ad14b579e11c7Mark Andrews $file_types{$file} = $type;
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater $file_years{$file} = $years;
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson}
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updaterclose(COPYRIGHTS);
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater$year += 1900;
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User$find = "find . -type f -print";
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt
e130ab53e992670e2a2ecf043976ac09f21358d1Automatic Updateropen(FILES, "$find | sort |") || die "can't start \"$find\": $!";
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updaterwhile (<FILES>) {
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt chomp;
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater next if (m%/\.\# | # CVS old conflict file
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater /CVS/ | # CVS directory
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt \.bak$ | # created by update_copyrights
e130ab53e992670e2a2ecf043976ac09f21358d1Automatic Updater /(dnssafe|openssl)/.*\.[ch]$ | # imported
2d2dc37599979c83495510f8af8d1756753aa2c5Automatic Updater doc/(draft|expired|rfc)/ # imported
aa9c561961e9d877946ebaa8795fa2be054ab7bfEvan Hunt %x);
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater if (!$file_types{$_}) {
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater # Strip any .in extension to find out the file's real type.
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater # .in files are processed by configure to produce the target file.
cdfc81e048bd34c1d628380247bda6b80a89e20eAutomatic Updater ($base = $_) =~ s/\.in$//;
cdfc81e048bd34c1d628380247bda6b80a89e20eAutomatic Updater
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater if ($base =~ /\.(c|h|css)$/) {
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater $file_types{$_} = "C";
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater } elsif ($base =~ /\.y$/) {
9513a2a6670951f5cf5477fcfec9f933fcaff628Automatic Updater $file_types{$_} = "YACC";
eabc9c3c07cd956d3c436bd7614cb162dabdda76Mark Andrews } elsif ($base =~ /\.pl$/i) {
eabc9c3c07cd956d3c436bd7614cb162dabdda76Mark Andrews $file_types{$_} = "PERL";
eabc9c3c07cd956d3c436bd7614cb162dabdda76Mark Andrews } elsif ($base =~ /\.sh$/) {
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User $file_types{$_} = "SH";
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User } elsif ($base =~ /\.html$/) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "HTML";
6fe48fb46e53ffc37542853a1edb74cb481b7d94Automatic Updater } elsif ($base =~ /\.(man|[0-9])$/) {
8e9f3b69914ee02a80b87c97b1f8093edb3e9ae0Automatic Updater $file_types{$_} = "MAN";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } elsif ($base =~ /\/Makefile$/) {
930f6069e5aa157cf6987cdafd412f5757a5a558Automatic Updater $file_types{$_} = "MAKE";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } elsif ($base =~ /\/(named|rndc).?\.conf$/) {
930f6069e5aa157cf6987cdafd412f5757a5a558Automatic Updater $file_types{$_} = "CONF-C";
80faf1588895fd26490f82f95a7a1b771df1c324Automatic Updater } elsif ($base =~ /\/resolv.?\.conf$/) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "CONF-SH";
6fe48fb46e53ffc37542853a1edb74cb481b7d94Automatic Updater } elsif ($base =~ /\.(db|hint)$/) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $file_types{$_} = "ZONE";
114f7780384371121918624ae2c80ecfce545683Tinderbox User } elsif ($base =~ /(\/\.cvsignore|\.gif|\.jpg)$/i) {
693c4232dfdffaff672197d4b9fea944c64cf80aAutomatic Updater $file_types{$_} = "X";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews } else {
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater $file_types{$_} = "?";
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson }
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater $blksize,$blocks)
efb0e886f18894a1d2489f1ad74ad14b579e11c7Mark Andrews = stat($_);
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater ($sec,$min,$hour,$mday,$mon,$c_year,$wday,$yday,$isdst) =
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson localtime($ctime);
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater ($sec,$min,$hour,$mday,$mon,$m_year,$wday,$yday,$isdst) =
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater localtime($mtime);
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson $c_year += 1900;
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater $m_year += 1900;
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User if ($m_year != $year || $c_year != $year) {
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews print "$_: must set copyright year(s) manually\n";
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews $file_years{$_} = "????";
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User } else {
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User $file_years{$_} = "$year";
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews }
2a31bd531072824ef252c18303859d6af7451b00Francis Dupont # keep perl from issuing warnings about "used only once"
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User $dev = $ino = $mode = $nlink = $uid = $gid = $rdev = $size = 0;
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User $atime = $blksize = $blocks = 0;
2a31bd531072824ef252c18303859d6af7451b00Francis Dupont } else {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews if (! defined($file_years{$_}) || $file_years{$_} eq "????") {
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User print "$_: must set copyright year(s) manually\n";
3349f0044fda807e1fd6681c833d3593a22dad86Tinderbox User $file_years{$_} = "????";
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews next;
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews }
24bf1e02f03577db0feb50b80238c4150c96d05dAutomatic Updater
24bf1e02f03577db0feb50b80238c4150c96d05dAutomatic Updater next if $file_types{$_} eq "X";
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews @years = split(/,/, $file_years{$_});
7500521cecdff3c00e594ec41d3a17292332ffbcTinderbox User $has_current = 0;
a308b69ac66fadf66863484f301314d6e6a3f1d2Automatic Updater foreach $fyear (@years) {
78f3ed4bc2fcd3d270bfd599804f3b27a1db4d91Mark Andrews if ($fyear == $year) {
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews $has_current = 1;
a01aa536188bb3535dfc1107a623e6355a8e6b7cMark Andrews }
89623368b8f662d458d9964b923050f33c5f75b0Tinderbox User }
c651f15b30f1dae5cc2f00878fb5da5b3a35a468Mark Andrews if (!$has_current) {
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews $blksize,$blocks)
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews = stat($_);
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews ($sec,$min,$hour,$mday,$mon,$m_year,$wday,$yday,$isdst) =
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews localtime($mtime);
b871c7156eb037d41f53828c6fcb9cc876128962Mark Andrews $m_year += 1900;
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater if ($m_year == $year) {
cdfc81e048bd34c1d628380247bda6b80a89e20eAutomatic Updater $file_years{$_} .= ",$year";
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater }
fe80a4909bf62b602feaf246866e9d29f7654194Automatic Updater }
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater }
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater}
fe80a4909bf62b602feaf246866e9d29f7654194Automatic Updaterclose(FILES);
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updateropen(NEWCOPYRIGHTS, ">util/newcopyrights") ||
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson die "can't open newcopyrights: $!";
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updaterforeach $file (sort(keys(%file_types))) {
aa1d397c4736cd86540555193d71e55fa3b37b2aMark Andrews print NEWCOPYRIGHTS "$file";
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson $len = length($file);
dd65eb1efb40b1c47d57963192bfc54873b219beAutomatic Updater if ($len >= 48) {
dd65eb1efb40b1c47d57963192bfc54873b219beAutomatic Updater $tabs = 1;
dd65eb1efb40b1c47d57963192bfc54873b219beAutomatic Updater } else {
133e6d43fa82e80d3798be4de00f4540f485ec6cAutomatic Updater $needed = int (48 - $len);
133e6d43fa82e80d3798be4de00f4540f485ec6cAutomatic Updater $tabs = int ($needed / 8);
133e6d43fa82e80d3798be4de00f4540f485ec6cAutomatic Updater if ($needed % 8 != 0) {
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater $tabs++;
91216cff91b34c9ff6e846dc23f248219cafe660Andreas Gustafsson }
f2770f6b39a9b2a98afb7a11ed105f73f1570c1eAutomatic Updater }
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User for ($i = 0; $i < $tabs; $i++) {
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox User printf NEWCOPYRIGHTS "\t";
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User }
1368e4b34cef64604c874fcc40201c78e548714cTinderbox User printf NEWCOPYRIGHTS "%s\t%s\n", $file_types{$file}, $file_years{$file};
b886b04d8d2b085cbf3e1bf4442dee87f43ba5e4Tinderbox User}
710bce1a85c96e85ca1a90471382055acd29d51fTinderbox Userclose(NEWCOPYRIGHTS);
f132a836c4e386b1af045dd8fe7106ae61b90bffAutomatic Updater