#!/usr/bin/perl -w -s

# PODNAME: tmx2html
# ABSTRACT: Converts a TMX to an HTML formatted page

use strict;
use warnings;

use XML::TMX;
use XML::TMX::Reader;

our ($icons,$o,$ff,$v);

my $tmx = shift;
my $tmx_obj = XML::TMX::Reader->new($tmx);
my $OUT ;

$o //= "__.html" if $v;
if ($v and $v eq "1"){ $v="firefox" }

if($o){ open($OUT, ">", $o ) or die("Cant create $o\n") }
else  { $OUT = \*STDOUT }

binmode($OUT,":utf8");

print $OUT qq{
<html>
<head>
  <style>
tr {
    background-color: #e0e0e0;
    vertical-align: top;
} 
tr:nth-child(even) {background-color: #f0f0f0;}
/* tr:hover           {background-color: #c8c8c8;} */
tr:hover           {background-color: #ffe0e0;}
 </style>
  <title>    </title>
  <meta charset="UTF-8"/>
</head>
<body>
},
 $tmx_obj->to_html(),

qq{</body>
</html>
};

if ($v){system("$v $o") }

__END__

=pod

=encoding UTF-8

=head1 NAME

tmx2html - Converts a TMX to an HTML formatted page

=head1 VERSION

version 0.39

=head1 SYNOPSIS

   tmx2html [-icons] file.tmx > file.html
      -o=out-html      -- def: __.html
      -v               -- show with firefox
      -v=chromium      -- show with chromium

=head1 DESCRIPTION

Pretty prints a TMX as an HTML file. Icons for languages can be
produced, but still buggy.

=head1 AUTHORS

=over 4

=item *

Alberto Simões <ambs@cpan.org>

=item *

José João Almeida <jj@di.uminho.pt>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010-2017 by Projeto Natura <natura@di.uminho.pt>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
