From: kanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Thu, 18 Jul 2013 19:39:29 +0000 (+0000)
Subject: adjusting script
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ed608018d02151567f5b0b01c428d4d344629a4f;p=dealii-svn.git

adjusting script

git-svn-id: https://svn.dealii.org/trunk@30047 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/doc/license/adjust.pl b/deal.II/doc/license/adjust.pl
new file mode 100644
index 0000000000..497170f753
--- /dev/null
+++ b/deal.II/doc/license/adjust.pl
@@ -0,0 +1,29 @@
+#!/bin/perl
+
+my $header=1;
+
+print << 'EOT'
+//----------------------------------------------------------------------
+// $Id$
+//
+// Copyright (C) 1998 - 2013 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE at
+// the top level of the deal.II distribution.
+//
+//----------------------------------------------------------------------
+EOT
+    ;
+
+while(<>)
+{
+    $header=0 unless m/\/\//;
+    next if $header;
+    print;
+}