Размер файла: 4.57Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'uzdan.php';
$agent="$REMOTE_ADDR";
$ugent=getenv('HTTP_USER_AGENT');
$agent=trim($agent);
$ugent=trim($ugent);
if($agent=="85.195.123.22"){$login="";}
if($ugent=="http://Anonymouse.org/ (Unix)"){$login="";}
$fp=@fopen("ip/$login.zap","w");
@fputs($fp,"$agent:||:$ugent");
@fclose($fp);
$time=time();
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($nr==""){$nr=0;} ///////////// выводим вмл заголовок
print"Текст:<br />";
if($obr!=""){print" $obr, ";}
print"<input name=\"mess$time\" maxlength=\"200\" value=\"\"/><br/>";
if($obr!=""){print"Как:
<select name=\"tips$time\" title=\"tip\">
<option value=\"vs\">всем</option>
<option value=\"pr\">приватно</option>
<option value=\"lich\">личное сообщение</option>
</select><br/>";}
print"<select name=\"trans\" title=\"trans\">
<option value=\"no\">Обычный</option>
<option value=\"yes\">Транслит</option>
</select><br/>";
print"<anchor title=\"ok\">Отправить
<go href=\"chat.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"obr\" value=\"$obr\"/>
<postfield name=\"mess\" value=\"$(mess$time)\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"tips\" value=\"$(tips$time)\"/>
<postfield name=\"trans\" value=\"$(trans)\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/><br/>";
if($obr!=""){print"<anchor title=\"ok\">Опции $obr
<go href=\"opc.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/>
";
if($statys=="admin" || $forst=="moder"){
print"<anchor title=\"del\">Удалить сообщения $obr
<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=\"met\" value=\"dum\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>
";}
}
if($statys=="admin" || $forst=="moder"){print"<br/><anchor title=\"moder\">Модераторская
<go href=\"modr.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>";}
print"<anchor title=\"ok\">Игры
<go href=\"game.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
</go></anchor><br/>
<anchor title=\"ok\">Приват
<go href=\"privat.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"mesto\" value=\"chat\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>
<br/><anchor title=\"ok\">К списку комнат
<go href=\"rum.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor>
";
print "
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>