Code-source php


        <?php
        #    (gH)   -_-  demande_bioinfo_id.php  ;  TimeStamp (unix) : 05 Juillet 2009 vers 16:09
        ######################################
        
        include("../std.php") ;
        include("../bioinfo_fns.php") ;
        
        debutPage("Correspondances entre identifiants bioinfo") ;
        debutSection() ;
        
        ######################################
        
        h2("Correspondances entre identifiants bioinfo") ;
        
        # vérification qu'un seul identifiant est saisi
        
        $nbid = 0 ;
        $idid = 0 ;
        $ldid = "nacc ngi uacc unam" ;
        $tdid = split(" ",$ldid) ;
        foreach ($tdid as $id) {
          $idid++ ;
          if (isset($_GET[$id])) {
            if (strlen(trim($_GET[$id]))>0) {
              $nbid++ ;
              $idnum = $idid ;
              $idtxt = $_GET[$id] ;
            } ; # fin si
          } ; # fin si
        } ; # fin pour
        
        $ok = 1 ;
        
        if ($nbid<1) {
          $ok = 0 ;
          h2("Vous n'avez saisi aucun identifiant.")  ;
        } ; # fin si
        
        if ($nbid>1) {
          $ok = 0 ;
          h2("Vous avez saisi plus d'un identifiant.")  ;
        } ; # fin si
        
        if ($ok==1) {
        
        h2("(identifiants obtenue à partir de l'id $idtxt)") ;
        
        ## ----------------------------------------------------
        
        
        if ($idnum==1) {
          $nac = $idtxt ;
          $ngi = ncbi_acc2ncbi_gi($nac) ;
          $uac = ncbi_acc2uniprot_acc($nac) ;
          $unm = uniprot_acc2uniprot_name($uac) ;
        } ; # finsi
        
        if ($idnum==2) {
          $ngi = $idtxt ;
        } ; # finsi
        
        if ($idnum==3) {
          $uac = $idtxt ;
        } ; # finsi
        
        if ($idnum==4) {
          $unm = $idtxt ;
        } ; # finsi
        
        ## ----------------------------------------------------
        
        table(1,10,"collapse") ;
        
        tr() ;
          td("C") ; echo "NCBI accession"    ; fintd() ;
          td("C") ; echo "NCBI gi"           ; fintd() ;
          td("C") ; echo "Uniprot accession" ; fintd() ;
          td("C") ; echo "Uniprot name"      ; fintd() ;
        fintr() ;
        
        tr() ;
          td("C") ; echo href(urlNcbi_acc($nac),$nac)          ; fintd() ;
          td("C") ; echo href(urlNcbi_acc($ngi),$ngi)          ; fintd() ;
          td("C") ; echo href(urlUniprot($uac),$uac)       ; fintd() ;
          td("C") ; echo href(urlUniprot("$uac.xml"),$unm) ; fintd() ;
        fintr() ;
        
        fintable() ;} ; # fin si
        
        ######################################
        
        finSection() ;
        finPage() ;
        
        ######################################
        ?>
Si vous préférez, vous pouvez utiliser celle de geshi ou même celle construite autour de la fonction highlight_file.
Listing du fichier reponse_bioinfo_id.php avec syntaxhighlighter
