mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
41 lines
827 B
Perl
Executable File
41 lines
827 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use File::Copy;
|
|
|
|
my @LANG;
|
|
$x64dir = "bin\\x64\\Release";
|
|
$dir = "bin\\Release\\";
|
|
$platform = "Intel";
|
|
if (-d $x64dir) {
|
|
$dir = $x64dir;
|
|
$platform = "x64";
|
|
}
|
|
|
|
opendir($D, "Translations");
|
|
while ($x = readdir($D)) {
|
|
next unless $x =~ /\.wxl$/;
|
|
next if $x eq "English.wxl";
|
|
|
|
open(F, "<Translations\\$x");
|
|
while (<F>) {
|
|
if ($_ =~ /Culture="([a-z]{2}-[a-z]{2})"/) {
|
|
$culture = $1;
|
|
} elsif ($_ =~ /Id="LANG">(\d+)/) {
|
|
$langcode = $1;
|
|
}
|
|
}
|
|
close(F);
|
|
system("msitran -g $dir\\en-us\\Mumble.msi $dir\\$culture\\Mumble.msi $langcode");
|
|
print "\n";
|
|
push @LANG, $langcode;
|
|
}
|
|
|
|
copy("$dir\\en-us\\Mumble.msi", "$dir\\Mumble.msi");
|
|
foreach (@LANG) {
|
|
print "$_\n";
|
|
system("msidb -d $dir\\Mumble.msi -r $_");
|
|
unlink("$_");
|
|
}
|
|
|
|
system("msiinfo $dir\\Mumble.msi /p $platform;1033," . join(",", @LANG));
|