File size: 2.07Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'uzdan.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=\"Опции\"><p>";
///////////// выводим вмл заголовок
if($login != ""){ if($statys=="admin" || $forst=="moder"){
$ss = @file("$foto/$obr.foto");
$strok = sizeof($ss);
$strok=$strok-1;
$ts=0;
$arra=@file("$foto/$obr.foto");
while($ts<=$strok){
$arme=@explode(":||:",$arra[$ts]);
$nara=trim($arme[1]);
$nora=trim($arme[0]);
if($nora!=""){
print"$nora <input name=\"naz$nora\" maxlength=\"200\" value=\"$nara\"/><br/>";}
$ts=$ts+1;
}
$nora=$nora+1;
print"$nora <input name=\"naz$nora\" maxlength=\"200\" value=\"\"/><br/>";
print"<anchor title=\"ok\">Сохранить
<go href=\"adfoto.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"obr\" value=\"$obr\"/>
<postfield name=\"met\" value=\"rra\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"key\" value=\"$key\"/>";
$ts=0;
while($ts<=$nora){print"<postfield name=\"nrazd[$ts]\" value=\"$(naz$ts)\"/>"; $ts=$ts+1;}
print"<postfield name=\"ts\" value=\"$ts\"/>
</go></anchor><br/>";
}}
print "<anchor title=\"ok\">В чат
<go href=\"chat.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"obr\" value=\"$obr\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor>
<br/><br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>