Файл: gowap/redkat.php
Строк: 92
<?
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="GOWAP"><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&kat=$kat&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&kat=$kat&par=$par">more</a><br/>";}
}
/////////////удаление выбранной деректории:
if ($met=="delit"){
$text="";
$fp=fopen("rekord/$kat.txt","w"); /////////// создаем файл с именем деректории о категории
fputs($fp,"$text rn");
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&kat=$kat&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&kat=$kat&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&kat=$kat&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 rn");
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&kat=$kat&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&kat=$kat&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&par=$par&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&nach=$nach&met=vl&par=$par">Next</a><br/>";}
print"<br/><a href="redkat.php?par=$par&met=link">Выбрать категорию</a>";
}
//////// выбор типа удаления ссылки:
if ($met=="dls"){
print"Выберите тип удаления:<br/>
<a href="redkat.php?met=pol&par=$par&dls=$dls">Полный (возможна повторная регистрация)</a><br/>
<a href="redkat.php?met=nepol&par=$par&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&met=link">Выбрать категорию</a>";
}
//////////неполное удаление (без возможности повторной регистрации)
if ($met=="nepol") {
unlink ("rekord/$dls.dion");
print"ссылка удалена.<br/>
<a href="redkat.php?par=$par&met=link">Выбрать категорию</a>";
}
}print "<br/><a href="admin.php?par=$par">Админ-панель</a><br/></p></card></wml>";
?>