From: Wolfgang Bangerth Date: Thu, 27 Sep 2012 16:52:05 +0000 (+0000) Subject: Remove a script that hasn't been useful since we switched to svn :-) X-Git-Tag: v8.0.0~2024 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4e66020f0f9a67b28a73ac7852288dc2547e5e05;p=dealii.git Remove a script that hasn't been useful since we switched to svn :-) git-svn-id: https://svn.dealii.org/trunk@26785 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/common/scripts/copyright.pl b/deal.II/common/scripts/copyright.pl deleted file mode 100644 index 340c0b038a..0000000000 --- a/deal.II/common/scripts/copyright.pl +++ /dev/null @@ -1,63 +0,0 @@ -###################################################################### -# $Id$ -# -# Copyright -# -###################################################################### -# Check the copyright line of a file against cvs log -# -# Call: perl copyright.pl -###################################################################### - -use strict; - -my $file = $ARGV[0]; - -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 $qpl = 0; -my $ok = 0; - -while(<>) -{ - next unless (m/(Copyright.*authors)/); - my $copyfile = $1; - $found = 1; - if (m/$copyreg/) - { - $ok = 1; - } else { - $copyfile =~ s/\(/\\(/; - $copyfile =~ s/\)/\\)/; - print "perl -pi~ -e 's{$copyfile}{$copystring};' $file\n"; - } -} - -# print "# OK: $copystring\n" if ($ok); - -print "# $file: no copyright found\n" unless ($found); -