'; verGetPost(array('id', 'mtg')); if ($id == '') $genopar->error("Erro."); $tipos = array('n', 'p'); foreach ($tipos as $tipo){ $dir = "../Fasta/$mtg/ORFs/".$tipo."/"; $fileName = $dir."ORF".$id.".fas"; $seq = ''; $col = 60; $file = fopen($fileName, "r"); echo "

\n";
	$tit = strtoupper(fgets($file, 1024));
	while (!feof($file))
		$seq .= strtoupper(fgets($file, 4096));
	
	echo "$tit";
	foreach (str_split($seq, $col) as $seqPart)
		echo "$seqPart";
	
	echo '

'; echo "

"; if ($tipo == 'n'){ $megablast="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$seq&DATABASE=nr&PAGE=Nucleotides&PROGRAM=blastn&BLAST_PROGRAMS=megaBlast&PAGE_TYPE=BlastSearch"; $blastx="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$seq&DATABASE=nr&PAGE=Nucleotides&PROGRAM=blastn&BLAST_PROGRAMS=blastx&PAGE_TYPE=BlastSearch"; echo "Mandar para o BLAST (MEGABLAST)
"; echo "Mandar para o BLAST (BLASTX)"; }else{ $blastp="http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$seq&DATABASE=nr&PAGE=Proteins&PROGRAM=blastp&BLAST_PROGRAMS=blastp&PAGE_TYPE=BlastSearch"; echo "Mandar para o BLAST (BLASTP)"; } if ($tipo == 'n') $link = "http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$seq&DATABASE=nr&PAGE=Nucleotides&PROGRAM=blastn"; elseif($tipo == 'p') $link = "http://www.ncbi.nlm.nih.gov/BLAST/Blast.cgi?QUERY=$seq&DATABASE=nr&PAGE=Proteins&PROGRAM=blastp"; else exit; // $progr = array("megaBlast","blastx"); // foreach ($progr as $prog){ // $link .= "&BLAST_PROGRAMS=$prog&PAGE_TYPE=BlastSearch"; // echo "Mandar para o BLAST (".strtoupper($prog).")
"; // } echo "

"; } ?>