//funkcia nacita zoznam zakazanych mien (napr. index.php), nazov suboru ban.lis, jeden nazov na riadok
function ban($path){
	$handle=fopen($path."/ban.lis","r");
	$contents = fread($handle, filesize($path."/ban.lis"));
	$names=explode("\n",$contents);
	return $names;
}

//definicia funkcie
//postupne ziskava zoznam mien suborov, ak existuje subor s rovnakym nazvom a priponou .lis, nacita z neho popis suboru
//rekurzivne berie aj podadresare (myslim)
function show($dir,$path) {
	$names=ban($dir);
	$count=0;
	if (is_dir($dir)) {
 		if ($dh = opendir($dir)) {
		        while (($file = readdir($dh)) !== false) {
				
				foreach ($names as $name)
				{//ci zakazany subor
					if($name==$file)
						continue;
				}
					
				if(is_dir($file)){
					if( $file == "." || $file == ".." )
						continue;
					$send=$path.$file."/";
					$count=$count+show($file,$names,$send);
				}
				else
				{
					$name=explode(".",$file);
					list($check,$ext)=$name;
					if($ext != "lis")
					{
						if($ext != "zip")
							$target=" target=\"_blank\" ";
						else
							$target="";
						$name=$dir."/".$check.".lis";
						if(file_exists($name))
						{
							$handle=fopen($name,"r");
							$text=fread($handle,filesize($name));
							fclose($handle);
						}
						else
							$text="No commentary available";
						echo "<a ".$target." href=".$path.$file.">".$file."</a><br>";
						echo "<p class='text'>".$text."</p>";
						$count++;
					}
				}
			}
        	closedir($dh);
		}
    	}
	return $count;
}

//volanie funkcie
if(show("./adresar","adresar/")==0) //dvojte zadanie adresara nechcem vediet...
		echo "<p class='text'>Directory is empty</p>";