#!/usr/bin/perl $file_in = $ARGV[0]; # Nome do arquivo que contem a lista de autores print "init-unid v 1.0\n"; print "Prepara arquivos de configuracao e inicializa arvore de diretorios para UNID/DEPTO\n"; print "baseado em um arquivo com o lay-out sglund|sgldep|nomund|nomdep\n\n"; open(FILE_IN, "$file_in") || die "\nNao foi possível abrir o arquivo: $file_in\n"; $arqs_path = "/home/tycho/arqs/unid"; $conf_arqs_path = "/home/tycho/arqs/unid"; $output_path = "/home/tycho/prod/unid"; print "Processando arquivos de entrada...\n"; while() { $_ =~ s/\n//; ($sglund,$sgldep,$nomund,$nomdep) = split ('\|', $_ ) ; #verifica se os paths existem, senao cria # nivel 1 - unid $path = $output_path . "/" . $sglund; if (!(-e $path)){ mkdir($path,0777); } # nivel 2 - depto $path = $output_path . "/" . $sglund . "/" . $sgldep; if (!(-e $path)){ mkdir($path,0777); } # gera o arquivo de configuracao $file_out = "unid_".$sglund."_".$sgldep.".conf"; open(FILE_OUT, "> $conf_arqs_path/$file_out"); print FILE_OUT "nome-do-grupo = $nomund
$nomdep\n"; print FILE_OUT "arquivo-de-entrada = " . $arqs_path . "/" . "unid_".$sglund."_".$sgldep.".dat\n"; print FILE_OUT "diretorio-de-saida = " . $output_path . "/" . $sglund . "/" . $sgldep . "\n"; print FILE_OUT "email-do-admin = tycho\@usp.br\n"; print FILE_OUT "itens-desde-o-ano = \n"; print FILE_OUT "itens-ate-o-ano = \n"; print FILE_OUT "itens-por-pagina = 1000\n"; print FILE_OUT "criar-paginas-jsp = nao\n"; print FILE_OUT "idioma = PT\n"; print FILE_OUT "mostrar-ids-lattes = sim\n\n"; print FILE_OUT "mostrar-orientacoes= sim\n"; print FILE_OUT "mostrar-projetos = sim\n"; print FILE_OUT "mostrar-bancas = sim\n"; print FILE_OUT "mostrar-comissoes = sim\n"; print FILE_OUT "mostrar-eventos = sim\n"; print FILE_OUT "mostrar-premios = sim\n"; print FILE_OUT "\n"; print FILE_OUT "mostrar-grafo-colaboracoes= sim\n"; print FILE_OUT "mostrar-todos-os-nos = sim\n"; print FILE_OUT "mostrar-indicadores = nao\n"; print FILE_OUT "\n"; print FILE_OUT "mostrar-mapa-de-pesquisa = sim\n"; print FILE_OUT "google-map-key = ABQIAAAAj9PCPWHe7x_dPFuPi3QxwhRR2eV29ijoGZgLzbx2SqoO18xEtxTdJWCzMb7s5ixY5C1I1lTQcHtrkQ \n"; print FILE_OUT "google-analytics-key = UA-3919590-15\n"; close(FILE_OUT); } close(FILE_IN);