From: kanschat 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; +}