web/privatedoc/includes/listdir.class.php
author ymh@caf4f556-3d62-0410-8435-a86758001935
Wed, 11 Mar 2009 15:30:12 +0000
changeset 7 7a5d38af0e65
permissions -rw-r--r--
add privtae docs to site
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     1
<?php
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     2
function lister($chemin, $first=0)
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     3
{
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     4
   
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     5
   
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     6
   //nom du r�pertoire � lister
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     7
   $nom_repertoire = $chemin;
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     8
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
     9
   //on ouvre un pointeur sur le repertoire
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    10
   $pointeur = opendir($nom_repertoire);
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    11
    
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    12
   
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    13
    
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    14
     $i=0;
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    15
   //pour chaque fichier et dossier
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    16
   while ($fichier = readdir($pointeur))
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    17
   {
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    18
    
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    19
      //on ne traite pas les . et ..
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    20
      if(($fichier != '.') && ($fichier != '..'))
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    21
      {
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    22
            
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    23
         //si c'est un dossier, on le lit
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    24
         if (is_dir($nom_repertoire.'/'.$fichier))
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    25
         {
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    26
      
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    27
                echo "<ul><li>".$fichier."</li></ul>";
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    28
                lister($nom_repertoire.'/'.$fichier, 1);
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    29
    
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    30
         }
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    31
         else
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    32
         {
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    33
            $tab=array();
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    34
            $path='';
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    35
            $tab = explode("/",$chemin);
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    36
            
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    37
            for($i=5;$i<count($tab);$i++){
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    38
                $path .= $tab[$i]."/";
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    39
            }
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    40
?>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    41
     
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    42
                <tr>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    43
                    <td><?php echo $fichier ?></td>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    44
                    <td width="40%"><a href="javascript:void(0)" onclick="switchMedia('fichier_<?php echo $i ?>', '<?=$path?>')">�couter</a> - <a href="http://www.iri.centrepompidou.fr/documents/audio/<?=$path.$fichier?>" title="clic droit -> enregistrer sous">t�l�charger</a>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    45
                    <input type="hidden" id="fichier_<?php echo $i ?>" value="<?=urlencode(trim($fichier))?>"/>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    46
                    </td>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    47
                </tr>
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    48
                
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    49
                
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    50
<?php        
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    51
        }
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    52
      }
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    53
      $i++;
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    54
      
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    55
   }
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    56
   
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    57
 
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    58
   //fermeture du pointeur
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    59
   closedir($pointeur);
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    60
}
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    61
7a5d38af0e65 add privtae docs to site
ymh@caf4f556-3d62-0410-8435-a86758001935
parents:
diff changeset
    62
?>