mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
f21fdf789f
git-svn-id: https://mumble.svn.sourceforge.net/svnroot/mumble/trunk@20 05730e5d-ab1b-0410-a4ac-84af385074fa
31 lines
533 B
Perl
31 lines
533 B
Perl
#! /usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Carp;
|
|
|
|
sub spitout($$) {
|
|
my ($var,$file)=@_;
|
|
|
|
my $ret;
|
|
|
|
|
|
open(IN, $file) or croak;
|
|
my $l = join("", <IN>);
|
|
$l =~ s/\r//g;
|
|
$l =~ s/\n/\\n/g;
|
|
$l =~ s/\"/\\\"/g;
|
|
|
|
return qq!static const char *${var} = \"! . $l . "\";\n\n\n";
|
|
}
|
|
|
|
open(F, "> ../licenses.h");
|
|
|
|
print F spitout("licenseGPL", "../LICENSE.GPL");
|
|
print F spitout("licenseSpeex", "../LICENSE.SPEEX");
|
|
print F spitout("licenseMumble", "../LICENSE");
|
|
print F spitout("licenseUPX", "../LICENSE.UPX");
|
|
|
|
close(F);
|
|
|