Размер файла: 2.04Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'rumdan.php';
include 'zagrum.php';
include 'kto.php';
$new=time();
$timeobn=600;
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=\"$zar\" ontimer=\"gost.php?nr=$nr&new=$new\" >
<timer value=\"$timeobn\"/><p align=\"left\">";
if($tiprum[$nr]!="on"){
print"В комнате:
<anchor title=\"$nr\">$soru[$nr]
<go href=\"seongo.php\" method=\"post\">
<postfield name=\"nr\" value=\"$nr\"/>
</go>
</anchor><br/>
<anchor title=\"ref\">Обновить
<go href=\"gost.php\" method=\"post\">
<postfield name=\"nr\" value=\"$nr\"/>
</go>
</anchor><br/>=======</p><p>";
$ss = @file("$rek/$nr.rum");
$strok = sizeof($ss);
if($ns==""){$ns=0;}
$rps=0;
$kss=7;
while($rps<$kss){
$text=@file("$rek/$nr.rum");
$text=explode(":||:",$text[$ns]);
$tip=trim($text[0]);
$nik=trim($text[1]);
$komy=trim($text[2]);
$time=date("H:i s", $text[3]);
$sob=trim($text[4]);
if($sob!=""){ if($tip=="vs"){print"
<b>$nik</b>
<small>[$time] </small>: ";
if($komy!=""){
print"$komy, ";}
print"$sob<br/>"; $rps=$rps+1;
}}
$ns=$ns+1;
if($ns>=$strok){$rps=$kss+1;}
}
print"</p><p align=\"left\">=======<br/>";
if($ns<$strok){print"<anchor title=\"next\">Далее
<go href=\"gost.php\" method=\"post\">
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"ns\" value=\"$ns\"/>
</go>
</anchor><br/>
";}
}
print"<a href=\"index.php\">Авторизация</a>
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>