netsurf/tools/fetch-transifex.pl

#!/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;
}