#!/usr/bon/perl

use File::Basename;

my $DB_NAME = shift;
my $MTG_NAME = shift;
my $OUT_FILE = shift;

@timeData = localtime(time);
$sufixo = sprintf("%04d%02d%02d-%02d%02d%02d",($timeData[5]+1900),($timeData[4]+1),$timeData[3],$timeData[2],$timeData[1],$timeData[0]);

# PEGAR DATA PARA COLOCAR NO NOME DA PASTA E NO NOME DO ARQUIVO DE SAIDA
$outDir = "tmp/".$MTG_NAME."_".$sufixo;

print basename($outDir)."\n";

mkdir $outDir or die "Erro ao criar diretorio";

$contigDir = "../Fasta/$MTG_NAME/Contigs/n";
opendir(DIR, $contigDir);

#PARA CADA ARQUIVO DE CONTIG ($fcontig)
foreach(readdir(DIR)){
	if ($_ =~ /\.$/){ next; }
# 	if ($_ !~ /541/) {next;}
	($contigID) = ($_ =~ /Contig(\d+).fas/);
	
	$ini = 0;
	$fim = 0;
	
	$fcontig = $contigDir."/".$_;
	
	$GBfile = $outDir."/Contig".$contigID.".gbk";

	#GERAR O GBK DELE NA PASTA CRIADA ($GBfile)
	print $GBfile."\n";
	system("perl geraGenBankFile.pl $DB_NAME $MTG_NAME $contigID $ini $fim $fcontig $GBfile");
# 	last;
}

#TAR GZ NA PASTA $outDir
$tarGzCmd = "tar czf $OUT_FILE $outDir";
system($tarGzCmd);