Очистка кэша проведена

$dir = $_SERVER['DOCUMENT_ROOT'];
$hdl = opendir($dir);
while($file = readdir($hdl))
{
if($file != '.'&& $file != '..')
{
//echo $file."
";
}
}
closedir($hdl);

echo 'Еще раз открыть окошко для очистки кэша >>>

';
global $user;
echo $user->name."
";
echo $user->hostname."
";
$ff=false;
foreach ($user->roles as &$value) {
if ($value=="А4_Модераторы") {$ff=true;}
if ($value=="Администраторы") {$ff=true;}
if ($value=="Суперадмин") {$ff=true;}
}
if ($ff) {
//$ss=htmlspecialchars($_GET["delfoto"]);
$ss=$_GET["delfoto"];
//ECHO $ss."
";
//http://4turista.ru/files/imagecache/prev800/files/img_0255_0.jpg
//Пора закидывать удочки.
$lin='';
echo '


Список фото со старыми превьюшками:
(еще надо загрузить новые фото в кэш - для этого нажмите F5 на странице поста и на странице "все изображения списком")

';
$tok = strtok($ss, "\n");
while ($tok) {
//echo "Word=$tok
";
$tok = trim($tok, "\x00..\x20");
$nf='/'.$tok; //чтобы в простых именах файлов в следующей строке не удалялась первая буква
$nf=drupal_substr ($nf, 1+strrpos ($nf, '/'));
//echo substr($nf,strlen($nf)-1);
//echo ord(substr($nf,strlen($nf)-1));
if (substr($nf,strlen($nf)-1)==">") {
$nf=drupal_substr ($tok, 0, strpos ($tok, "alt="));
$nf=drupal_substr ($nf, 1+strrpos ($nf, "/"));
//$nf=substr ($tok, 1+strrpos ($tok, "/"), strpos ($tok, "alt=")-strlen($tok));
$nf=drupal_substr ($nf, 0, strpos ($nf, "'"));
}
//$nf=quotemeta(htmlspecialchars(strip_tags($nf)));
$nf=htmlspecialchars(strip_tags($nf));
$nf=str_replace(" ","_",$nf);
$nf=str_replace("\x09","_",$nf);
$nf=str_replace("\n","_",$nf);
$nf=str_replace("\r","_",$nf);
$nf=str_replace("\s","_",$nf);
echo $nf."
";
@unlink($dir.'/files/imagecache/preview/files/'.$nf);
@unlink($dir.'/files/imagecache/prev800/files/'.$nf);
echo '

';
//$lin.=$nf."
".'

';
$tok = strtok("\n");
}
}
else {
echo "фиг";
}
?>