#!/usr/bin/perl use gls; use Data::Dumper; $index_file="undef"; while ($arg=shift) { if ($arg eq "-h") { ajuda(); } elsif ($arg eq "-d") { $dir=shift; @files=`ls $dir`; push @fich,filtrar(\@files,$dir); } elsif($arg eq "-i") { $index=1; $index_file=shift; } elsif($arg eq "-a") { $output=shift; $aio=1; } elsif ($arg !~/^-/) { push @fich,$arg; } else { print "$arg - opção desconhecida\nuse gls2html.pl -h para ajuda\n"; exit; } } for (@fich) { push @glossarios, new($_); } if ($aio==1) { all_in_one(\@glossarios,$output); } else { tohtml(\@glossarios,$index_file); } sub all_in_one { $aux=shift; $output=shift; @glossarios=@$aux; open (OUT,">$output"); # Cabeçalho do html ############################ print OUT "\n"; print OUT ''; print OUT "\n"; print OUT "

Glossários



"; print OUT ""; print OUT "
Conteúdo:
"; print OUT ""; print OUT ""; print OUT ""; print OUT ""; for $g(@glossarios) { $autor=get_autor($g); $titulo=get_titulo($g); $desc=get_desc($g); print OUT ""; print OUT ""; print OUT ""; } print OUT "
TituloAutorDescrição
$titulo$autor$desc

"; ################################################### $n=1; $ind=1; print OUT "
\n"; print OUT ""; $cnt=0; for $g(@glossarios) { @ch=get_keys($g); for (@ch) { push @{$palavras{$_}},$cnt; } $cnt++; } print OUT ""; @ch=(); for (keys %palavras) { push @ch,$_; } @res=gls::ordenar(\@ch); for (@res) { print OUT "\n"; $n++; $ind++; } $n=1; $ind=1; print OUT "
Índice
$_
\n"; for (@res) { $pos=shift @{$palavras{$_}}; $g=$glossarios[$pos]; $significado=get_sig($g,$_); $titulo=get_titulo($g); $autor=get_autor($g); print OUT ""; print OUT ""; $n++; $ind++; } print OUT "
$_
"; print OUT ""; print OUT "
$titulo
$autor
 $significado
"; print OUT "\n"; close (OUT); } sub tohtml { $aux=shift; $index=shift; $i=0; if ($index ne "undef") { $i=1; # Criação do índice ################### open (IND,">$index"); print IND ""; print IND ''; print IND ""; print IND "

Índice de Glossários


"; print IND ""; print IND ""; print IND ""; print IND ""; print IND ""; print IND ""; print IND ""; ######################################## } @glossarios=@$aux; for $g (@glossarios) { $output = get_file_name($g); $output=$output.".html"; $titulo=get_titulo($g); $autor=get_autor($g); $desc=get_desc($g); if ($i==1) { print IND ""; print IND ""; print IND ""; } open (OUT,">$output"); print OUT "\n"; print OUT ''; print OUT "\n"; $n=1; print OUT "
TítuloAutorDescrição

$titulo

$autor$desc
\n"; print OUT ""; print OUT "\n"; print OUT ""; @ch=get_keys($g); for (@ch) { print OUT "\n"; $n++; } $n=1; print OUT "
\n"; print OUT "$titulo
$autor
$desc
$_
\n"; @ch=get_keys($g); for (@ch) { $significado=get_sig($g,$_); print OUT ""; $n++; } print OUT ""; print OUT "
$_ $significado

"; print OUT "\n"; close (OUT); } if ($i==1) { print IND ""; } } sub filtrar { my $f=shift; my $dir=shift; my @files=@$f; my @array=(); if ($dir!~/\/$/g) { $dir=$dir."/"; } for (@files) { chomp($_); if ($_=~/\.gls$/gi) { $f=$dir.$_; push @array,$f; } } return @array; } sub ajuda { print "\n"; print "gls2html.pl - Converte ficheiros .gls para html\n\n"; print "gls2html.pl [OPCOES] [FICHEIROS]\n\n"; print "OPCOES\n"; print "\t -d - converte todos os ficheiros .gls da directoria referida\n\n"; print "\t -a - converte os ficheiros para um unico ficheiro\n\n"; print "\t -i - cria um indice dos ficheiros criados no ficheiro referido, esta opção não funciona em conjunto com -a\n\n"; exit; }