netsurf/utils/fetch-transifex.pl

128 lines
3.5 KiB
Perl

#!/usr/bin/perl
#
# Copyright © 2013 Vincent Sanders <vince@netsurf-browser.org>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# * The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
=head1
retrive resource from transifex service
=cut
use strict;
use Getopt::Long ();
use LWP::UserAgent;
use JSON qw( decode_json );
use Data::Dumper;
use Fcntl qw( O_CREAT O_EXCL O_WRONLY O_APPEND O_RDONLY O_WRONLY );
use constant GETOPT_OPTS => qw( auto_abbrev no_getopt_compat bundling );
use constant GETOPT_SPEC =>
qw( output|o=s
lang|l=s
resource|res|r=s
project|prj|p=s
user|u=s
password|w=s
help|h|? );
# ensure no locale translation is applied and leave it all in UTF-8
use bytes;
# default option values:
my %opt = qw( resource messagesany project netsurf user netsurf );
sub output_stream ();
sub usage ();
sub main ()
{
my $output;
my $opt_ok;
# option parsing:
Getopt::Long::Configure( GETOPT_OPTS );
$opt_ok = Getopt::Long::GetOptions( \%opt, GETOPT_SPEC );
if( $opt_ok )
{
$output = output_stream();
}
# double check the options are sane (and we weren't asked for the help)
if( !$opt_ok || $opt{help} || $opt{lang} !~ /^[a-z]{2}$/ )
{
usage();
}
my $transifexurl = "https://www.transifex.com/api/2/project/" . $opt{project} . "/resource/" . $opt{resource} . "/translation/" . $opt{lang} . "/";
my $ua = LWP::UserAgent->new;
$ua->credentials(
'www.transifex.com:443',
'Transifex API',
$opt{user} => $opt{password}
);
my $response = $ua->get( $transifexurl );
if (!$response->is_success) {
die $response->status_line . " When fetching " . $transifexurl;
}
# Decode the entire JSON
my $decoded_json = decode_json( $response->decoded_content );
print ( $output $decoded_json->{'content'} );
}
main();
sub usage ()
{
print(STDERR <<TXT );
usage:
$0 -l lang-code \
[-o output-file] [-r resource] [-p project] [-u user] [-w password]
lang-code : en fr ko ... (no default)
project : transifex project (default 'netsurf')
resource : transifex resource (default 'messagesany')
user : transifex resource (default 'netsurf')
password : transifex resource (no default)
output-file: defaults to standard output
TXT
exit(1);
}
sub output_stream ()
{
if( $opt{output} )
{
my $ofh;
sysopen( $ofh, $opt{output}, O_CREAT|O_EXCL|O_APPEND|O_WRONLY ) ||
die( "$0: Failed to open output file $opt{output}: $!\n" );
return $ofh;
}
return \*STDOUT;
}