Иллюстрированный самоучитель по PHP

Текст сценария

Файл zapros.php:

<htmlx?php
echo ("<form action=do.php?folder=$folder method=post>");
if ($udal!="") {
echo ("Удалить файлы?<br>");
foreach ($fl as $i) {
echo ("<input type=hidden name=fl[] value=$i>$i из папки $folder<br>");
}
echo ("<input type=submit value=\"Удалить\" name=udal>"); }
function tree($fld) {
global $ folder; global $fl;
$hdl=opendir($fld);
while ($file = readdir($hdl)) {
if (($file!=".")&&($file!="..")) {
$fllnm=$fld."/".$file;
if (is_dir($fllnm)==True) {
$no=0;
foreach ($fl as $i) {
if ($fllnm==$folder."/".$i) {
$no=1; } }
if ($no==0) {
if ($fllnm!=$folder) {
echo ("<input name=rd type=radio value=$fllnm>$fllnm<br>");
}
tree ($fllnm); } } } V
closedir($hdl); }
if ($copy!="") {
$begin="files";
echo ("Куда копировать файлы?<br>");
foreach ($fl as $i) {
echo ("<input type=hidden name=fl[] value=$i>$folder/$i<br>");
}
echo ("<br>Выберите папку для копирования:<br>");
tree($begin);
if ($begin!=$folder) {
echo ("<input name=rd type=radio value=$begin>$begin<br>");
}
echo ("<input type=submit value=\"Скопировать\" name=сору>"); }
if ($ren!="") {
echo ("Переименовать файлы?<Ьг>");
foreach ($fl as $i) {
echo ("<input type=hidden name=afl[] value=$i>");
echo ("$i");
echo ("<input type=text size=3 0 name=rfl[] value=$ixbr>");
}
echo ("<input type=submit value=\"Переименовать\" name=ren>");
}
if ($md!="") {
echo ("Введите имя папки:<brxinput type=text size=3 0 name=newnamexbr>
<input type=submit value=\"Создать папку\" name=md>");
}?>
<brxinput type=submit value="OTMeHa" name=otx/form>
</html>