#!/usr/bin/perl
use locale;
use CGI qw/:standard escapeHTML/;
#print "\n\n\n";
print '';
print h1 ('Resultados para a validação do bosque');
print '
';
print a({href=>"/FS/howto_validar.html", target=>"_blank"},"Consultar manual para validação");
print '
';
print a({href=>"validar_bosque.html"},"Regressar à página anterior");
print '
';
#print '';
while(<>){
chomp;
next if (/^\#? *$/);
next if (/^--$/);
if (/^\#\#\w/){
s/\#//g;
print "$_
\n\n";
}elsif (/\#\#\-$/){
print "
\n";
}elsif (/^\#\-/){
print "
\n\n";
}elsif (/^\#/){
s/\#//g;
print "
$_\n";
}elsif (/^(T\d+)/){
print "
\n$1$'\n";
}else{
print "
$_\n";
}
}
print '';
print '
Regressar à página anterior
';
#print "\n\n\n\n";
print '';
print '';