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

use strict;
use CGI::Auto;

my $tmx = "/home/jj/svn/el0910/pln/10-01-04/TMX/_.";

CGI::Auto::auto(
 title    => "test 13 PerFide: Pesquisa em corpus religioso (vaticano)",
 command  => qq{grep -m 50 [%o(option)] -P --color=always  [%s(pattern)] $tmx}
   . qq{[%c(langs)].tmx | } 
   . qq{sed -e 's/.\\[01;31m/<b>/g' -e  's!.\\[00m!</b>!g' -e  's/.\\[K//g'},

 tohtml => sub{
     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;
   },
 latin1 => 1,
 -option  => [ ignore_case => "-i", just_the_pattern => "-o", words => "-w"],
 -langs   => ["pt-it" => "pt.it", 
               fr => "pt.fr",
               de => "pt.de",
               en => "pt.en",
               es => "pt.es",
               ru => "pt.ru",
               ],
);