Как получить дерево файлов

thecat 15.08.2007 14:29

Здравствуйте, господа.

Писал так:

^listfiles[/]

@listfiles[dir]
Осмотр директории "$dir"<br />
$list[^file:list[$dir]]
^list.menu{
^if($dir eq "/"){
$cfile[${dir}$list.name]
}{
$cfile[${dir}/$list.name]
}
^if(!^cfile.match[cgi-bin|/admin]){
$cfile<br>
^if(-d $cfile){^self.listfiles[$cfile]}
}
}

В результате, для струкутуры ФС
/a.html
/i
/i/1.jpg
/i/2.jpg
/i/3.jpg
/k.html
/f
/f/index.html

скрипт выдает:
/a.html
/i
/i/1.jpg
/i/2.jpg
/i/3.jpg
/3.jpg
/3.jpg
/3.jpg
...

Где я недочитал мануал?

---