#!/usr/bin/perl -s

use strict;
use warnings;

use XML::TMX::CWB;

our ($slang,  # source language
     $tlang,  # target language
     $h,      # help
     $v,      # verbose
     $o);     # output filename

if ($h) {
    print "cwb2tmx [-slang=EN] [-tlang=PT] [-o=foo.tmx] <source corpus ID> <target corpus ID>\n";
    exit 1;
}

my $source = shift or die "Source corpus name is required\n";
my $target = shift or die "Target corpus name is required\n";

my %ops;
$ops{source_lang} = $slang || "LANG1";
$ops{target_lang} = $tlang || "LANG2";
$ops{output}      = $o     || undef;
$ops{verbose}     = $v     || 0;

XML::TMX::CWB->toTMX(source => $source,
                     target => $target,
                     %ops);

=encoding UTF-8

=head1 NAME

cwb2tmx - convert an aligned CWB corpus to TMX format

=head1 SYNOPSIS

  cwb2tmx [-slang=Lang1] [-slang=Lang2] [-o=output.tmx]
          <source corpus ID> <target corpus ID>

=head1 DESCRIPTION

This command retrieves a CWB aligned corpus (given the pair of corpora
identifiers) and exports it on TMX format.

The following optinal parameters can be used:

=over 4

=item C<-o>

Used to specify output filename.

=item C<-slang1>

Name for the source language. C<LANG1> is used if none is supplied.

=item C<-slang2>

Name for the target language. C<LANG2> is used if none is supplied.

=item C<-v>

Verbose mode

=item C<-h>

Prints basic help information.

=back

=head1 SEE ALSO

XML::TMX::CWB (3)

=head1 AUTHOR

Alberto Manuel Brandão Simões, E<lt>ambs@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2010-2011 by Alberto Manuel Brandão Simões

=cut