#! /usr/bin/perl

use warnings;
use strict;
use Carp;

sub licenseFileToVar($$) {
  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\t\"",split(/\n/, $l));

  return qq!static const char *${var} = \n\t\"! . $l . "\";\n\n\n";
}

open(F, "> ../src/mumble/licenses.h");

print F "/*\n";
print F " * This file was auto-generated by scripts/mklic.pl\n";
print F " * DO NOT EDIT IT MANUALLY\n";
print F " */\n\n\n";

print F licenseFileToVar("licenseMumble", "../LICENSE");

# List of 3rd party licenses  [<variableName>, <pathToLicenseFile>, <DisplayName>, <URL>]
my @thirdPartyLicenses = (
    ["licenseCELT", "../celt-0.11.0-src/COPYING", "Speex", "http://www.speex.org/"],
    ["licenseSPEEX", "../speex/COPYING", "CELT", "http://www.celt-codec.org/"],
    ["licenseOpenSSL", "../3rdPartyLicenses/openssl_license.txt", "OpenSSL", "http://www.openssl.org/"],
    ["licenseLibsndfile", "../3rdPartyLicenses/libsndfile_license.txt", "libsndfile", "http://www.mega-nerd.com/libsndfile/"]);
                       
# Print 3rd party licenses
foreach (@thirdPartyLicenses) {
    print F licenseFileToVar(@$_[0], @$_[1]);
}

# Print list of 3rd party license references
print F "static const char *licenses3rdParty[" . ($#thirdPartyLicenses + 2) . "] = {\n";
foreach (@thirdPartyLicenses) {
    print F "\t" . @$_[0] . ", \n";
}

print F "\t0\n";
print F "};\n\n\n";

# Print list of 3rd party names
print F "static const char *licenses3rdPartyNames[" . ($#thirdPartyLicenses + 2) . "] = {\n";
foreach (@thirdPartyLicenses) {
    print F "\t\"" . @$_[2] . "\",\n";
}

print F "\t0\n";
print F "};\n\n\n";

# Print list of 3rd party urls
print F "static const char *licenses3rdPartyURLs[" . ($#thirdPartyLicenses + 2) . "] = {\n";
foreach (@thirdPartyLicenses) {
    print F "\t\"" . @$_[3] . "\",\n";
}

print F "\t0\n";
print F "};\n\n\n";

close(F);