Transifex translation downloader

transifex_downloader.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use LWP::Simple;
use JSON;

my $proj = 'friendica';
my $lang = 'eo';
my $auth = 'user:password';

my $fmt_list  = 'https://%[email protected]/api/2/project/%s/resources/';
my $fmt_trans = 'https://%[email protected]/api/2/project/%s/resource/%s/translation/%s/';

my $url_resources    = sprintf($fmt_list, $auth, $proj);

my $resources = decode_json(get($url_resources));
foreach(@{$resources}){
	my $res = $_;
	my $slug = $res->{'slug'};
	my $name = $res->{'name'};
	my $url_trans = sprintf($fmt_trans, $auth, $proj, $slug, $lang);
	my $resource = decode_json(get($url_trans));
	my $content = $resource->{'content'};
	open my $fh_out, ">/tmp/$name";
	binmode $fh_out, ':utf8';
	print $fh_out $content;
	close $fh_out;
	print "/tmp/$name\n";
}