View file forum/admin.php

<?
Error_Reporting(E_ALL & ~E_NOTICE);          
header("Content-type:text/vnd.wap.wml;charset=utf-8");      

include 'config.php';                                                 

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"<b>&#x043D;&#x0435;&#x0432;&#x0435;&#x0440;&#x043D;&#x044B;&#x0439; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;</b>
<br/>
&#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;:
<br/><input name=\"par\" value=\"$k\"/><br/>
	<anchor title=\"ok\">&#x0432;&#x043E;&#x0439;&#x0442;&#x0438;
	<go href=\"admin.php?st=ind\" method=\"post\">
	<postfield name=\"par\" value=\"$(par)\"/>
	</go>
	</anchor>";}

	else{
if($st=="ind"){print"
<img src=\"st/38.gif\" alt =\"+\"/>
<a href=\"admin.php?st=for&amp;par=$par\"><font color=\"blue\">[&#x0434;&#x043E;&#x0431;&#x0430;&#x0432;&#x0438;&#x0442;&#x044C; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;]</font></a><br/>
<img src=\"st/38.gif\" alt =\"+\"/>
		<a href=\"admin.php?st=razd&amp;par=$par\"><font color=\"blue\">[&#x0434;&#x043E;&#x0431;&#x0430;&#x0432;&#x0438;&#x0442;&#x044C; &#x0440;&#x0430;&#x0437;&#x0434;&#x0435;&#x043B;]</font></a>";}


if($st=="for") {print"&#x043D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435;:
<br/>
<input name=\"nfor\" value=\"$k\"/><br/>
	<anchor title=\"ok\">&#x0441;&#x043E;&#x0437;&#x0434;&#x0430;&#x0442;&#x044C;
	<go href=\"admin.php?st=df&amp;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"&#x0432;&#x044B;&#x0431;&#x0435;&#x0440;&#x0438;&#x0442;&#x0435; &#x0440;&#x0430;&#x0437;&#x0434;&#x0435;&#x043B;:<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/>&#x043D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435; :<br/><input name=\"nrazd\" value=\"$k\"/><br/>
	<anchor title=\"ok\">&#x0441;&#x043E;&#x0437;&#x0434;&#x0430;&#x0442;&#x044C;
	<go href=\"admin.php?st=drazd&amp;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"&#x0444;&#x043E;&#x0440;&#x0443;&#x043C; <b>$nfor</b> &#x0443;&#x0434;&#x0430;&#x0447;&#x043D;&#x043E; &#x0441;&#x043E;&#x0437;&#x0434;&#x0430;&#x043D;!";}


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"&#x0440;&#x0430;&#x0437;&#x0434;&#x0435;&#x043B; &#x0443;&#x0441;&#x043F;&#x0435;&#x0448;&#x043D;&#x043E; &#x0434;&#x043E;&#x0431;&#x0430;&#x0432;&#x043B;&#x0435;&#x043D;!";}}


}
print"<br/>---<br/>
<img src=\"st/44.gif\" alt =\"+\"/>
<a href=\"index.php\"><font color=\"blue\">[$sktext[12]]</font></a>
</p></card></wml>";

?>