View file redkat.php

<?




Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml><card id=\"mas\" title=\"AzWaP"><p>";
///////////// выводим вмл заголовок
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//
$parol="1234";              ///////// измените parol на свой пароль!!!//
//
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////

if($par!=$parol){print"Ведите пароль:<br/>

<input title=\"par\" name=\"par\" value=\"\"/><br/>
<anchor title=\"Ok\">Есть
<go href=\"admin.php\" method=\"post\">
<postfield name=\"par\" value=\"$(par)\"/>
</go>
</anchor>
";}
if($par==$parol){
if ($met=="del") {

///////////////выбор удаляемой дкеректории:
print"Выберите категорию которую желаете удалить:<br/>";

if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "")  { print "<a href=\"redkat.php?met=delit&amp;kat=$kat&amp;par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=del&amp;kat=$kat&amp;par=$par\">more</a><br/>";}
}

/////////////удаление выбранной деректории:

if ($met=="delit"){
$text="";
$fp=fopen("rekord/$kat.txt","w");          ///////////  создаем файл с именем деректории о категории
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("rekord/$kat.txt", 0777);

print"Категория успешно удалена";
}
/////////////переименование деректории:
if ($met=="ren"){
print"Выберете деректорию которую желаите переименовать:<br/>";

if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "")  { print "<a href=\"redkat.php?met=rend&amp;kat=$kat&amp;par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=ren&amp;kat=$kat&amp;par=$par\">more</a><br/>";}
}
///////////////переименование деректории:

if ($met=="rend"){
$text=@implode("",@file("rekord/$kat.txt"));
print"Введите новое имя категории:<br/>
<input title=\"text\" name=\"text\" value=\"$text\"/><br/>
<anchor title=\"Ok\">Переиминовать
<go href=\"redkat.php?met=zap&amp;kat=$kat&amp;par=$par\" method=\"post\">
<postfield name=\"text\" value=\"$(text)\"/>
</go>
</anchor>";
}

////////////запись нового имени категории:

if ($met=="zap"){
$text=trim($text);
$fp=fopen("rekord/$kat.txt","w");          ///////////  создаем файл с именем деректории о категории
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("rekord/$kat.txt", 0777);
print"Выбраная вами каатегория успешно переименована в $text";
}

////////// выбор ссылки для удаления:

if ($met==link){print"Выберете категорию:<br/>";

if($kat=="") {$kat = @implode("",@file("rekord/kat.dat"));}      ////////// открываем счетчик количества дерикторий, и считываем из него их количества  (если номер деректории не передан)
$n=0;
while($n <= 15)
{
$text = @implode("",@file("rekord/$kat.txt"));       /////////// выводим ссылки на деректории (15 ссылок на странице)
$text=trim($text);
if ($text != "")  { print "<a href=\"redkat.php?met=vl&amp;kat=$kat&amp;par=$par\">$text</a><br/>"; $n=$n+1; };
$kat=$kat-1;
if ($kat<=0) {$n=16;};
};
if ($kat>0) {print"<a href=\"redkat.php?met=link&amp;kat=$kat&amp;par=$par\">more</a><br/>";}
}

//////////////////выбор удаляемой ссылки:

if ($met=="vl") {print"Чтобы удалить ссылку, нажмите del<br/>";

$vsego = @implode("",@file("rekord/$kat.dat")); ///// окрываем счетчик деректории
///////если он равен нулю, говорим мол: нету здесь ничего:
if($vsego<=0){print"В этой категории пока нет ни одного сайта.";}
if($nach=="") {$nach=1;} /////////определяем начальную позицию

$i=1;
while($i <= 7)
{$text = @implode("",@file("rekord/$nach=$kat.dion"));
$dls ="$nach=$kat";
$nach=$nach+1;
$text=trim($text);
if($text!="") {print "<a href=\"redkat.php?met=dls&amp;par=$par&amp;dls=$dls\"><small>del</small></a><br/> $text";
$i=$i+1; }
if($nach>$vsego) {$i=8;}
};		/////выводи ссылки и описания сайтов


if($nach < $vsego) {print"<a href=\"redkat.php?kat=$kat&amp;nach=$nach&amp;met=vl&amp;par=$par\">Next</a><br/>";}
print"<br/><a href=\"redkat.php?par=$par&amp;met=link\">Выбрать категорию</a>";
}

//////// выбор типа удаления ссылки:

if ($met=="dls"){
print"Выберите тип удаления:<br/>
<a href=\"redkat.php?met=pol&amp;par=$par&amp;dls=$dls\">Полный (возможна повторная регистрация)</a><br/>
<a href=\"redkat.php?met=nepol&amp;par=$par&amp;dls=$dls\">Неполный (повторная регистрация невозможна)</a><br/>
";}

//////полное удаление

if ($met=="pol") {

unlink ("rekord/$dls.dion");
$aff = @implode("",@file("rekord/$dls.daf"));
$aff = trim($aff);
unlink ("rekord/$aff.af");
print"ссылка удалена.<br/>
<a href=\"redkat.php?par=$par&amp;met=link\">Выбрать категорию</a>";
}

//////////неполное удаление (без возможности повторной регистрации)

if ($met=="nepol") {
unlink ("rekord/$dls.dion");
print"ссылка удалена.<br/>
<a href=\"redkat.php?par=$par&amp;met=link\">Выбрать категорию</a>";
}

}print "<br/><a href=\"admin.php?par=$par\">Админ-панель</a><br/></p></card></wml>";

?>