Update copyrights.

addCopyrights-BuildData.pl

@@ -0,0 +1,106 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+my @dateStrings = ( "???", "JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC" );
+my %dateStrings;
+
+$dateStrings{"Jan"} = "01";
+$dateStrings{"Feb"} = "02";
+$dateStrings{"Mar"} = "03";
+$dateStrings{"Apr"} = "04";
+$dateStrings{"May"} = "05";
+$dateStrings{"Jun"} = "06";
+$dateStrings{"Jul"} = "07";
+$dateStrings{"Aug"} = "08";
+$dateStrings{"Sep"} = "09";
+$dateStrings{"Oct"} = "10";
+$dateStrings{"Nov"} = "11";
+$dateStrings{"Dec"} = "12";
+
+if (! -e "logs") {
+    system("git log --name-status > logs");
+}
+
+my %stoppingCommits;
+
+$stoppingCommits{"6950cb74e302a97673a5ba482b3b8992eea72c37"} = 1;   #  Initial copyright addition.
+$stoppingCommits{"72c27c95d61cb8f37e859c4039456eb2acc5c55b"} = 1;   #  Second copyright addition.
+
+open(F, "< logs") or die "Failed to open 'logs': $!\n";
+
+$_ = <F>;  chomp;
+
+my $author;
+my $date;
+
+while (!eof(F)) {
+    my $commit;
+
+    if (m/^commit\s+(\w+)$/) {
+        $commit = $1;
+    } else {
+        die "Expected commit line, got '$_'\n";
+    }
+
+    last  if (exists($stoppingCommits{$commit}));
+
+    $_ = <F>;  chomp;
+
+    if (m/^Merge/) {
+        #  Merge commits include an extra line here:  "Merge: a75ed40 717c0b1"
+        #  No files change, and we can just process the rest of the entry as normal.
+        $_ = <F>;  chomp;
+    }
+
+    if      (m/walenz/i) {
+        $author = "Brian P. Walenz";
+    } elsif (m/koren/i) {
+        $author = "Sergey Koren";
+    } else {
+        print STDERR "Skipping commit from '$_'\n";
+        $author = undef;
+    }
+
+    $_ = <F>;  chomp;
+
+    if (m/Date:\s+\w+\s+(\w+)\s+(\d+)\s+\d+:\d+:\d+\s+(\d+)/) {
+        my $day  = substr("00$2", -2);
+        my $mo   = $dateStrings{$1};
+        my $year = $3;
+
+        die "Invalid month '$3'\n"  if (! defined($mo));
+
+        $date = "$year$mo$day"
+
+    } else {
+        die "Failed to match date in '$date'\n";
+    }
+
+    #print STDERR "$commit -- $date -- $author\n";
+
+    $_ = <F>;  chomp;
+
+    while (! m/^commit/) {
+        next if (m/^$/);    #  Blank line
+        next if (m/^\s+/);  #  Comment line
+
+        if      ($_ =~ m/M\s+(\S+)$/) {
+            print "A $1 nihh$date$author\n"   if (defined($author));
+
+        } elsif ($_ =~ m/A\s+(\S+)$/) {
+            #  New file, treat as normal.
+            print "A $1 nihh$date$author\n"   if (defined($author));
+
+        } elsif ($_ =~ m/D\s+(\S+)$/) {
+            #  Deleted file, do nothing,.
+
+        } else {
+            print STDERR "$_\n";
+        }
+
+    } continue {
+        $_ = <F>;  chomp;
+    }
+}
+close(F);