Keskustelu: Koodit: PHP: Hakemistoskanneri

<?php
function dirscan($dir, $name = false){
	//tarkistetaan onko hakemisto olemassa
	if(is_dir($dir)){
		$basedir = dir($dir);
	} else {
		die("Directory does not exist.");
	}
	$files = array();
	//luetaan hakemisto sekä jätetään pois . ja ..
	while(false !== ($file = $basedir -> read())){
		if($file != ".." && $file != "."){

			$filepath = $dir."/".$file;
			//tarkistetaan onko kohde tiedosto vai hakemisto
			//jos tiedosto, lisätään arrayhin
			if(is_file($filepath)){
				//katsotaan onko tiedostonimeä määritetty
				if($name == false){
					$files[] = $filepath;
				} else if(stristr($file, $name)){
					$files[] = $filepath;
				}
			//jos hakemisto, ajetaan funktio uudella hakemistolla ja ympätään edellisiin
			} else if(is_dir($filepath)){
				$files = array_merge($files, dirscan($filepath, $name));
			}
		}
	}
	return $files;
}
?>

<?php
// Funktio hakemiston lukemiseen
function dirscan($dir, $name = false) {
	// Luodaan lista tiedostoille.
	$files = array();
	/*Luetaan seuraava tiedosto hakemistossa, mikäli se on
        mahdollista.*/
	if ($handle = opendir($dir)) {
		/*Niin kauan kuin tiedostoja riittää, lisätään
                tiedosto listaan.*/
		while (false !== ($file = readdir($handle))) {
			$filepath = $dir."/".$file;
			/*Jos seuraava alkio on tiedosto, siirrytään
                        ehtolauseen sisään.*/
			if(is_file($filepath)) {
				/*Jos tiedostonnimeä ei ole
                                määritelty, lisätään kaikki
                                tiedostot listaan.*/
				if ($name == false) {
					$files[] = $file;
				/*Muutoin lisätään vain annetun
                                päätteen omaavat tiedostot. Ehto
                                siis täyttyy vain, mikäli
                                tiedostoalkiosta löytyy määritelty
                                pääte.*/
				} else if (stristr($file, $name)) {
					/*Poistetaan
                                        tiedostonnimestä turhat
                                        merkit alusta. Funktio siis
                                        poistaa kaikki merkit ennen
                                        parametrina annettuja
                                        merkkejä.*/
					$file = strpbrk($filepath,
                    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ");
					$files[] = $file;
				}
			}
		}
		// Suljetaan kansio.
		closedir($handle);
	}
	return $files;
}
?>