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

use strict;
use utf8;
use CGI qw(:all);
use CGI::Auto;

CGI::Auto::auto(title => "Trivial Pursuit Local",
    command => "agrep -d '\n\n' -w -e [%c(field)] /home/jj/svn/main/misc/Trivial/trivial_db.txt",
    -field => [ todos => ".",
                informat => 'inf',
                Braga => 'Braga',
                matemat => 'mat',
                hist => 'hist',
                filos => 'fil',
                música => 'mus',
                medic => 'med'],
    tohtml => \&makeit,
  );

sub makeit{ my $t=shift;
   my @p = split(/\n\n+/i,$t);
   my ($len,$ele,$n)=(scalar @p,"",0);
   while($ele =~ /html>/ or $ele !~ /\S/){
     $ele = $p[int(rand($len))]; 
     return pre("not found") if $n++  > 100;}
   $ele =~ s/\&/&/g;
   $ele =~ s/</&lt;/g;
   $ele =~ s!\((.*?)\) *\n!<hr/>Tema: $1<hr/>!s;
   $ele =~ s!\n::\s*(.*)!resp($1)!se;
   $len.pre($ele)
}

sub resp{ my $r=shift;
$r =~ s/\n/\\n/g;
$r =~ s/'/"/g;
$r =~ s!(http://\S+)!a({href=>"$1"},"$1")!ge;
qq{<hr/>
<button onclick="showR()">↓</button>\t<span id="r"></span>
<script type="text/javascript">
function showR(){document.getElementById("r").innerHTML=
  '<span id="Re">$r</span>';
}
</script>} 
}
__END__