--- /dev/null
+######################################################################
+# $Id$
+#
+# Copyright
+#
+######################################################################
+# Check the copyright line of a file against cvs log
+#
+# Call: perl copyright.pl <filename>
+######################################################################
+
+use strict;
+
+my $file = $ARGV[0];
+
+print "# $file\n";
+
+my @log = `cvs log $file`;
+my %years;
+
+foreach (@log)
+{
+ next unless (m/^date: (\d\d\d\d)/);
+ my $year = $1;
+ $years{$year} = 1;
+}
+
+my $copystring;
+
+foreach (sort keys %years)
+{
+ if ($copystring)
+ {
+ $copystring .= ", $_";
+ } else {
+ $copystring = "$_";
+ }
+}
+
+my $copyreg = "Copyright \\(C\\) $copystring by the deal.II authors";
+$copystring = "Copyright (C) $copystring by the deal.II authors";
+
+my $found = 0;
+my $ok = 0;
+
+while(<>)
+{
+ next unless (m/(Copyright.*)/);
+ my $copyfile = $1;
+ $found = 1;
+ if (m/$copyreg/)
+ {
+ $ok = 1;
+ } else {
+ print "perl -pi~ -e 's/$copyfile/$copystring/;' $file\n";
+ }
+}
+
+print "# OK: $copystring\n" if ($ok);
+
+print "# no copyright found\n" unless ($found);
+