File size: 1.98Kb
<?php
$arr=array();
$dh = opendir('online/');
while (($fname = readdir($dh))!== false) if ($fname!='.' && $fname!='..' && $fname!='1.htaccess' && $fname!='.htaccess') {
$tmp=unserialize(implode('',file('online/'.$fname)));
$arr[$fname]=1;
}
closedir($dh);
$arr2=array();
$dh2 = opendir('../2/online/');
while (($fname2 = readdir($dh2))!== false) if ($fname2!='.' && $fname2!='..' && $fname2!='1.htaccess' && $fname2!='.htaccess') {
$tmp2=unserialize(implode('',file('../2/online/'.$fname2)));
$arr2[$fname2]=1;
}
closedir($dh2);
$stmp="";
$stmp.="<br/><small><b><a href=\"g.php\">Сервер 1 [".count($arr)." из 500]</a></b></small>";
$stmp.="<br/><small><b><a href=\"../2/g.php\">Сервер 2 [".count($arr2)." из 500]</a></b></small>";
$count=count($arr)+count($arr2);
$stmp="<small><b>Сейчас в игре ".$count." человек:</b></small>".$stmp;
$stmp.="<br/><small><b><anchor><prev/>[назад]</anchor></b></small>
<br/>
";
msg($stmp,"Сервер [1]");
function msg($s,$title="") {
header ("Expires: Thu, 01 Jan 1970 00:00:01 GMT");
header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
header ("Cache-Control: no-cache, no-store, must-revalidate, max-age=0");
header ("Pragma: no-cache");
header("Content-type:text/vnd.wap.wml;charset=utf-8");
setlocale (LC_CTYPE, 'ru_RU.CP1251');
function win2unicode ( $s ) { if ( (ord($s)>=192) & (ord($s)<=255) ) $hexvalue=dechex(ord($s)+848); if ($s=="Ё") $hexvalue="401"; if ($s=="ё") $hexvalue="451"; return("�".$hexvalue.";");}
function translate($s) {return(preg_replace("/[А-яЁё]/e","win2unicode('\\0')",$s));}
ob_start("translate");
$s=str_replace("&","&",$s);
$s=str_replace("&","&",$s);
if (substr($s,0,2)!="<p") $s="<p>".$s;
echo "<?xml version=\"1.0\"?>\n<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">";
echo "
<wml>
<card title=\"$title\">";
echo "
$s
</p>
</card>
</wml>";
ob_end_flush();
die("");
}