Размер файла: 5.87Kb
<?
include "../config.php";
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="$homepage"; /////////// ссылка на главную
$zag="Админ-панель форума"; /////////// Загаловок
$adpar="$password"; /////////// Пароль админа
//////////////////////////////////////////////////////////////////////////
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=\"$zag\"><p>";
///////////// выводим вмл заголовок
$par=trim($par);
$adpar=trim($adpar);
if($par!=$adpar) {print"Вы не ввели пароль, либо вы ввели неверный пароль.
<br/>Введите пароль:<br/><input name=\"par\" value=\"$k\"/><br/>
<anchor title=\"ok\">Войти
<go href=\"admin.php?st=ind\" method=\"post\">
<postfield name=\"par\" value=\"$(par)\"/>
</go>
</anchor>";}
else{
if($st=="ind"){print"<a href=\"admin.php?st=for&par=$par\">Добавить форум</a><br/>
<a href=\"admin.php?st=razd&par=$par\">Добавить раздел</a><br/>";}
if($st=="for") {print"Введите название:<br/><input name=\"nfor\" value=\"$k\"/><br/>
<anchor title=\"ok\">Создать
<go href=\"admin.php?st=df&par=$par\" method=\"post\">
<postfield name=\"nfor\" value=\"$(nfor)\"/>
</go>
</anchor>";}
if($st=="razd"){
$mes = @implode("",@file("rek/razd.razd"));
if ($nrazd=="") {$nrazd=1;}
$nf=1;
print"Выберите форум:<br/><select name=\"fr\" title=\"fr\">";
while($nf <= 30)
{$naz = @implode("",@file("rek/$nrazd.tp"));
$naz=trim($naz);
if($naz!=""){print"<option value=\"$nrazd\">$naz</option>"; $nf=$nf+1;}
$nrazd=$nrazd+1;
if($nrazd>$mes) {$nf=35;}};
print"
</select><br/>
<br/>Введите название:<br/><input name=\"nrazd\" value=\"$k\"/><br/>
<anchor title=\"ok\">Создать
<go href=\"admin.php?st=drazd&par=$par\" method=\"post\">
<postfield name=\"nrazd\" value=\"$(nrazd)\"/>
<postfield name=\"fr\" value=\"$(fr)\"/>
</go>
</anchor>";}
if($st=="df"){$mes = @implode("",@file("rek/razd.razd"));
$af = @implode("",@file("rek/$mes.tp"));
if($nfor==$af) {$nfor="";}
if($nfor!=""){$counter_array = file("rek/razd.razd");
$id = $counter_array[0]+1;
$fp = @fopen("rek/razd.razd","wb");
@fputs($fp,$id);
@fclose($fp);
$fp=fopen("rek/$id.tp","w"); ///////// записываем сообщение
fputs($fp,"$nfor \r\n");
fclose($fp);
chmod ("rek/$id.tp", 0777);
$nol=0;
$fp=fopen("rek/$id.prazd","w"); ///////// записываем сообщение
fputs($fp,"$nol \r\n");
fclose($fp);
chmod ("rek/$id.prazd", 0777);}
print"Форум $nfor удачно создан!";}
if($st=="drazd"){$mes = @implode("",@file("rek/$fr.prazd"));
$af=@implode("",@file("rek/$fr=$mes.tp"));
$af=trim($af);
$nrazd=trim($nrazd);
if($af==$nrazd) {$nrazd="";}
if($nrazd!=""){$counter_array = file("rek/$fr.prazd");
$id = $counter_array[0]+1;
$fp = @fopen("rek/$fr.prazd","wb");
@fputs($fp,$id);
@fclose($fp);
$nol="0";
$fp=fopen("rek/$fr=$id.tp","w"); ///////// записываем сообщение
fputs($fp,"$nrazd \r\n");
fclose($fp);
chmod ("rek/$fr=$id.tp", 0777);
$fp=fopen("rek/$fr=$id.tem","w"); ///////// записываем сообщение
fputs($fp,"$nol \r\n");
fclose($fp);
chmod ("rek/$fr=$id.tem", 0777);
print"Раздел успешно добавлен!";}}
}
print"<br/>__________<br/>
<a href=\"admin.php?par=$par&st=ind\">Админ панель</a>
<br/><a href=\"index.php\">К форумам</a><br/>
<a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>