View file wapp_antifront.com/forum/admin.php

<?
include "../config.php";
Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа

//////////////////////////////////////////////////////////////////////////

$gl="$homepage";        /////////// ссылка на главную
$zag="&#x0410;&#x0434;&#x043C;&#x0438;&#x043D;-&#x043F;&#x0430;&#x043D;&#x0435;&#x043B;&#x044C; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;&#x0430;";                                               /////////// Загаловок
$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"&#x0412;&#x044B; &#x043D;&#x0435; &#x0432;&#x0432;&#x0435;&#x043B;&#x0438; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;, &#x043B;&#x0438;&#x0431;&#x043E; &#x0432;&#x044B; &#x0432;&#x0432;&#x0435;&#x043B;&#x0438; &#x043D;&#x0435;&#x0432;&#x0435;&#x0440;&#x043D;&#x044B;&#x0439; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;.
        <br/>&#x0412;&#x0432;&#x0435;&#x0434;&#x0438;&#x0442;&#x0435; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;:<br/><input name=\"par\" value=\"$k\"/><br/>
        <anchor title=\"ok\">&#x0412;&#x043E;&#x0439;&#x0442;&#x0438;
        <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&amp;par=$par\">&#x0414;&#x043E;&#x0431;&#x0430;&#x0432;&#x0438;&#x0442;&#x044C; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;</a><br/>
                <a href=\"admin.php?st=razd&amp;par=$par\">&#x0414;&#x043E;&#x0431;&#x0430;&#x0432;&#x0438;&#x0442;&#x044C; &#x0440;&#x0430;&#x0437;&#x0434;&#x0435;&#x043B;</a><br/>";}


if($st=="for") {print"&#x0412;&#x0432;&#x0435;&#x0434;&#x0438;&#x0442;&#x0435; &#x043D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435;:<br/><input name=\"nfor\" value=\"$k\"/><br/>
        <anchor title=\"ok\">&#x0421;&#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"&#x0412;&#x044B;&#x0431;&#x0435;&#x0440;&#x0438;&#x0442;&#x0435; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;:<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/>&#x0412;&#x0432;&#x0435;&#x0434;&#x0438;&#x0442;&#x0435; &#x043D;&#x0430;&#x0437;&#x0432;&#x0430;&#x043D;&#x0438;&#x0435;:<br/><input name=\"nrazd\" value=\"$k\"/><br/>
        <anchor title=\"ok\">&#x0421;&#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"&#x0424;&#x043E;&#x0440;&#x0443;&#x043C; $nfor &#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"&#x0420;&#x0430;&#x0437;&#x0434;&#x0435;&#x043B; &#x0443;&#x0441;&#x043F;&#x0435;&#x0448;&#x043D;&#x043E; &#x0434;&#x043E;&#x0431;&#x0430;&#x0432;&#x043B;&#x0435;&#x043D;!";}}


}
print"<br/>__________<br/>
<a href=\"admin.php?par=$par&amp;st=ind\">&#x0410;&#x0434;&#x043C;&#x0438;&#x043D; &#x043F;&#x0430;&#x043D;&#x0435;&#x043B;&#x044C;</a>
<br/><a href=\"index.php\">&#x041A; &#x0444;&#x043E;&#x0440;&#x0443;&#x043C;&#x0430;&#x043C;</a><br/>
<a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>
</p></card></wml>";

?>