15b173569d
1. Install zanata-cli on your computer (https://zanata.readthedocs.io/en/latest/client/installation/linux-installation/) 2. Configure zanata-cli (https://zanata.readthedocs.io/en/latest/client/configuration/) 3. Do your stuff, add your new strings to locale/en.json only 4. Push the new locales: make push-locales 5. Translate on https://trad.framasoft.org 6. Pull the new locales: make pull-locales (requires the Perl module JSON, provided by libjson-perl on Debian) 7. Commit and enjoy
27 lines
547 B
Perl
Executable File
27 lines
547 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use JSON;
|
|
#use Hash::Merge::Simple qw(merge);
|
|
|
|
my $json = JSON->new->utf8->space_before(0)->space_after(1)->indent(4)->canonical(1);
|
|
|
|
my $new_json = {};
|
|
my $old_json = '';
|
|
|
|
while (defined(my $line = <STDIN>)) {
|
|
$old_json .= $line;
|
|
}
|
|
|
|
$old_json = decode_json($old_json);
|
|
for my $key (keys %{$old_json}) {
|
|
$key =~ m/^([^.]*)\.(.*)$/;
|
|
my $real_key = $1;
|
|
my $trad_key = $2;
|
|
|
|
$new_json->{$real_key}->{$trad_key} = $old_json->{$key} if $old_json->{$key};
|
|
}
|
|
|
|
print $json->encode($new_json);
|