Размер файла: 3.53Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.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=\"$obr\"><p>";
///////////// выводим вмл заголовок
$textu=@file("$uzer/$obr.log");
$textu=explode(":||:",$textu[0]);
$logu=trim($textu[0]);
$polu=trim($textu[2]);
$vozrast=trim($textu[3]);
$mestou=$textu[4];
$infau=$textu[5];
$orentu=trim($textu[6]);
$mailu=trim($textu[7]);
$sajtu=trim($textu[8]);
$lichst=trim($textu[9]);
$fortu=trim($textu[10]);
$postovu=trim($textu[11]);
if($logu==""){print"Пользователь не зарегестрирован";}else{
////////////////////////////////
if($lichst=="ob" || $lichst==""){
if($postovu<=20){$lichst="Наблюдатель";}
if($postovu>20){$lichst="гость";}
if($postovu>200){$lichst="Частый гость";}
if($postovu>500){$lichst="Почетный гость";}
if($postovu>1000){$lichst="Чатланин";}
if($postovu>2000){$lichst="Почетный чатланин";}
if($postovu>5000){$lichst="Динозавр";}
if($postovu>10000){$lichst="порабы и личный статус себе придумать...";}
}
print"<b>$logu</b> ";
if($polu=="m"){print"(Мужчина)";} else {print"(Дама)";}
print"<br/>$lichst<br/>";
if($fortu=="moder"){print"модератор<br/>";}
print"-------<br/>
Возраст: $vozrast<br/>
Откуда: $mestou<br/>
Инфа: $infau<br/>
Постов: $postovu<br/>";
if($mailu!="" & $mailu!="@"){print"Почта: <a href=\"mailto:$mailu\">$mailu</a><br/>";}
if($sajtu!="" & $sajtu!="http://"){print"Сайт: <a href=\"$sajtu\">$sajtu</a><br/>";}
}
print "<br/><br/><anchor title=\"ok\">Вернутся
<go href=\"say.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>";
?>