22 lines
644 B
Perl
22 lines
644 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# This command creates a version of the manual to is both GFDL and GPL
|
||
|
|
# To allow DEBIAN to include the manual in its main section.
|
||
|
|
|
||
|
|
$gpl =
|
||
|
|
'
|
||
|
|
|
||
|
|
Permission is also granted to copy, distribute and/or modify this document
|
||
|
|
under the terms of the GNU General Public License (GPL).
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with GNU Emacs. If not, see @url{http://www.gnu.org/licenses/}.
|
||
|
|
';
|
||
|
|
|
||
|
|
open IN, "<doc/org.texi" or die "Cannot open doc/org.texi\n";
|
||
|
|
open OUT, ">doc/org_dual_license.texi" or die "Cannot open doc/org.texi\n";
|
||
|
|
|
||
|
|
while (<IN>) {
|
||
|
|
print OUT $gpl if /end quotation/;
|
||
|
|
print OUT $_;
|
||
|
|
}
|