1 2 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