<?php
header("Content-type: text/vnd.wap.wml");
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml>
<card title=\"CHECHEN-WAP\">
<p align=\"center\"><b>CyРїep-РџyРїep Р·aРіpyР·РєРё :)</b>
</p>
<p>";
//Если папка не указана, то она текущая
if(!$f) $f = "./";
//Закрываем доступ к папкам, которые находятся вне текущей папки
$f = str_replace("..",".",$f);
//Открываем папку и читаем содержимое
$dir = opendir("$f");
while ($file = readdir($dir))
{
//Считаем количество ссылок, ну то есть якобы файлов
$vol[] = $file;
//Тут указываем папка ли это или файл. Это самый простой способ, хоть и не лучший. Почему-то ereg тут не работает
$gl = explode(".",$file);
//Если это папка выводим нужную нам ссылку
if(!$gl[1]) $adr="$script_name?f=$f$file/";
//Если это файл, выводим ссылку прямо на файл
else $adr = "$f$file";
//Показываем какие имена не нужно выводить. Это тоже простой способ, потому что редко в именах папок пишут следующее
if($file != "." && $file != ".." && !eregi(".htaccess",$file) && !eregi(".php",$file) && !ereg(".db",$file) && !eregi(".wml",$file))
//Надеюсь, тут комментарии делать не нужно.
print "\r<a href=\"$adr\">".$file."</a><br/>";
}
//Закрываем папку
closedir($dir);
//Если папка пуста, выводим об этом сообщение. Совет: не создавайте файл с отсутствием расширения. Скрипт
//воспримет этот файл, как папку.
if(count($vol)==2) print "\r<b>B РєaС‚aР»oРіe РЅeС‚ С„aР№Р»oРІ!</b><br/>";
if($f!="./") print "\r<br/><anchor>HaР·aРґ<prev/></anchor>";
//Ну тут уже я немножко похулиганю
print "
</p>
<p align=\"center\">
<small>Prj. <a href=\"../\">HalSoft</a><br/>
2006 - ".date("Y")."</small></p>
</card>
</wml>";
?>