mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
3980fd7cbd
git-svn-id: https://mumble.svn.sourceforge.net/svnroot/mumble/trunk@1142 05730e5d-ab1b-0410-a4ac-84af385074fa
29 lines
438 B
Perl
29 lines
438 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/\f//g;
|
|
$l =~ s/\"/\\\"/g;
|
|
|
|
$l = join("\\n\"\n\"",split(/\n/, $l));
|
|
|
|
return qq!static const char *${var} = \"! . $l . "\";\n\n\n";
|
|
}
|
|
|
|
open(F, "> ../src/mumble/licenses.h");
|
|
|
|
print F spitout("licenseMumble", "../installer/gpl.txt");
|
|
|
|
close(F);
|