mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
b46b0f6129
git-svn-id: https://mumble.svn.sourceforge.net/svnroot/mumble/trunk@36 05730e5d-ab1b-0410-a4ac-84af385074fa
27 lines
381 B
Perl
27 lines
381 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("licenseMumble", "../LICENSE");
|
|
|
|
close(F);
|