scripts/mklic.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#! /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", "../LICENSE");

close(F);