| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 
 |  
<?php
		$open = fopen("../tmp/spfetch.txt", "r") or die("<strong>Can not open file </strong>");	
//Opening ID list	
		if ($open) {
		$cmpt=0;
			while (!feof($open)) {
			$cmpt++;
			$reqid = "reqid".$cmpt;
			$_SESSION['reqid'][$reqid]['id']= array();
			$_SESSION['reqid'][$reqid]['id']= "";
			$_SESSION['reqid'][$reqid]['id']=rtrim($_SESSION['reqid'][$reqid]['id'].fgets($open, 4096)); //Serieux prob d'espace
 
				if ($_SESSION['reqid'][$reqid]['id'] != ""){
 
// execute perl script, search if ID exists
				$node = ('perl ../script/findID.pl '.$_SESSION['reqid'][$reqid]['id'].' prodom');//nature of database doesn't count
				$_SESSION['reqU'][$reqid]['node']=exec($node);
 
//if the ID doesn't exist
				if($_SESSION['reqU'][$reqid]['node']=='NA') $_SESSION['ERROR'] = "This TaxID is not available";
 
//if the ID exists, even for nearest node
					elseif($_SESSION['reqU'][$reqid]['node']!='NA'){
 
					if(!file_exists("../tmp/".$_SESSION['reqU'][$reqid]['node']))
					mkdir ("../tmp/".$_SESSION['reqU'][$reqid]['node'], 0777);
 
// execute perl script, search for the ID description
					$requete_species= ('perl ../script/findDescr.pl '.$_SESSION['reqU'][$reqid]['node'].'');	
					exec($requete_species);
 
					$open2 = fopen("../tmp/".$_SESSION['reqU'][$reqid]['node']."/descr.txt", "r") or die("<strong>Can not open file </strong>");
//Opening description			
						if ($open2) {
						$cmpt2=0;
						$result_requete= "";
						$result_requete_child="";
							while (!feof($open2)) {
							$cmpt2++;
							$req = "req".$cmpt2;	
								if ($cmpt2 < 10) $result_requete= $result_requete.fgets($open2, 4096);
								elseif ($cmpt2 > 10) $result_requete_child=$result_requete_child.fgets($open2, 4096);
							}
						fclose($open2);
						}
 
					list($_SESSION['requete'][$reqid]['NAME'], $_SESSION['requete'][$reqid]['DFS'],$_SESSION['requete'][$reqid]['TYPE'], $_SESSION['requete'][$reqid]['REAL2'],$_SESSION['requete'][$reqid]['TAXID'],  $_SESSION['requete'][$reqid]['TAXIDPA'],  $_SESSION['requete'][$reqid]['CPD'], $_SESSION['requete'][$reqid]['CHG'], $_SESSION['requete'][$reqid]['NBP'], $_SESSION['requete'][$reqid]['NBD']) = explode("\n", $result_requete);
					$_SESSION['requete'][$reqid]['TAXIDCH'] = $result_requete_child;
 
					if ($_SESSION['requete'][$reqid]['REAL2']=="y") $_SESSION['requete'][$reqid]['REAL']="This node were added in the phylogenetic tree";
					else $_SESSION['requete'][$reqid]['REAL']="Real node in the phylogenetic tree";
					}
				}
			}
		}
	fclose($open);		
	header("location:../pages/description_species.php");
	}
?> | 
Partager