#!/usr/bin/perl

use CGI qw(:all) ;
use XML::DT ;

my $filename = shift;

%h=( -html => 1,
     -outputenc => 'ISO-8859-1',
     -type => { table => "SEQH",
                tbody => "SEQH",
                tr    => "SEQH",
              },
     td  => sub{$c},
     tr  => sub{$c},
     table  => sub{ 
        my ($li,$co)=dimTabela();
        print STDERR "Debug,$li,$co\n";
        if($li == 1 && $co == 1){h1($c->[0]{-c}[0]{-c}) }
        elsif($co == 1)         {ul(li([map {$_->{-c}[0]{-c}} @$c])) }
        elsif($li == 1)         {ol(li([map {$_->{-c}} @{$c->[0]{-c}}])) }
        else                    {toxml()}
     },
   );

print dt($filename,%xml);
   
sub dimTabela{
  my $nrows = @$c;
  my $ncolumns = (sort map { scalar(@{$_->{-c}}) } @$c)[-1];
  ($nrows,$ncolumns);
}