#!/usr/bin/perl
#-->cgi:/home/jj/public_html/bin/perfide1
#-->dir:/tmp/lixo

use strict;
use CGI::Auto;
use CGI ":standard";
use utf8;

my $tmx = "/home/jj/svn/el0910/pln/10-01-04/TMX/_.";
my $com = join('|', 
    qq{grep -m 50 [%o#60(option)] -P --color=always  [%s#20(pattern)] ${tmx}[%c(langs)].tmx }, 
    q{sed -e 's/.\[01;31m/<b>/g' -e  's!.\[00m!</b>!g' -e  's/.\[K//g'},
 );

CGI::Auto::auto(
   title       => "PerFide: Pesquisa em corpus religioso (vaticano)",
   description => p("O corpus é constituído por uma série de documentos 
      paralelos do site do Vaticano. Inclui vários tipos: Incíclicas, 
      Sermões, Biografias de santos, Relatórios de viagem"),
   command     => $com,
   tohtml      => \&tmx2html, 
   latin1      => 1,
   -begin      => hr,
   -option     => [ ignore_case => "-i", just_the_pattern => "-o", words => "-w"],
   -pattern_before  => hr,
   -langs_before  => "Pares de Lingua:",
   -langs      => ["pt-it" => "pt.it", 
                    fr => "pt.fr",
                    de => "pt.de",
                    en => "pt.en",
                    es => "pt.es",
                    ru => "pt.ru", ],
   -end        => hr,
);

sub tmx2html{
     my $b=shift;
     $b =~ s{<tuv lang=['"](.*?).>}{<p><font color='red'>\U$1\E</font> }g;
     $b =~ s{</tu>}{<hr>}g;
     $b =~ s/_unicode_(\d+)_/pack("U",$1)/ge;
     $b;
   }