]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Remove a script that hasn't been useful since we switched to svn :-)
authorbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 27 Sep 2012 16:52:05 +0000 (16:52 +0000)
committerbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 27 Sep 2012 16:52:05 +0000 (16:52 +0000)
git-svn-id: https://svn.dealii.org/trunk@26785 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/copyright.pl [deleted file]

diff --git a/deal.II/common/scripts/copyright.pl b/deal.II/common/scripts/copyright.pl
deleted file mode 100644 (file)
index 340c0b0..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-######################################################################
-# $Id$
-#
-# Copyright
-#
-######################################################################
-# Check the copyright line of a file against cvs log
-#
-# Call: perl copyright.pl <filename>
-######################################################################
-
-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);
-

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.