mirror of
https://github.com/wesnoth/wesnoth
synced 2025-04-25 01:20:26 +00:00
37 lines
824 B
Perl
Executable File
37 lines
824 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
our %langs = (
|
|
'ca' => 'catalan',
|
|
'cs' => 'czech',
|
|
'da' => 'danish',
|
|
'de' => 'german',
|
|
'es' => 'spanish',
|
|
'fi' => 'finnish',
|
|
'fr' => 'french',
|
|
'hu' => 'hungarian',
|
|
'it' => 'italian',
|
|
'nl' => 'dutch',
|
|
'no' => 'norwegian',
|
|
'pl' => 'polish',
|
|
'pt_BR' => 'brazilian',
|
|
'sk' => 'slovak',
|
|
'sv' => 'swedish',
|
|
);
|
|
|
|
our @locales;
|
|
if (@ARGV == 0) {
|
|
@locales = keys %langs;
|
|
} else {
|
|
@locales = @ARGV;
|
|
}
|
|
|
|
foreach my $key (@locales) {
|
|
print STDERR " $langs{$key} -> $key:\n";
|
|
system ("./utils/wml2po.pl data/translations/" . $langs{$key} .
|
|
".cfg po/$key.po > out-$key.log 2> err-$key.log")
|
|
and print STDERR "translation ended in error !\n";
|
|
system ("grep FINAL err-$key.log");
|
|
}
|