File size: 2.15Kb
<?
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>";
$lokpo="onr";
include 'online.php';
include 'zagrum.php';
print"Сейчас в комнате \"$zar\":<br/><br/>";
$ttime=time();
$ofti=$ttime-200;
$ss = @file("$rek/online.txt");
$strok = sizeof($ss);
$nko=0;
$tpo=0;
while($nko<=$strok){
$text=@file("$rek/online.txt");
$text=explode(":||:",$text[$nko]);
$tza=trim($text[0]);
$logoni=trim($text[1]);
$meo=trim($text[2]);
$komo=trim($text[3]);
if($tza>$ofti & $meo=="chat" & $komo==$nr & $logoni!=""){
print"<anchor title=\"$nik\">$logoni
<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=\"$logoni\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>";
}
$nko=$nko+1;}
print"<br/>========<br/><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=\"key\" value=\"$key\"/>
</go></anchor>
<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/><br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>