Просмотр файла game/f_site_clan.php

<?php

$tmp=$QUERY_STRING;if($tmp=='') $tmp=$_SERVER["QUERY_STRING"];
$tmp=urldecode($tmp);
parse_str($tmp);
////////////////
	if (!$login) { msg("Введите название клана на предыдущем экране и выберите ссылку \"Найти игрока\", чтобы узнать, находится ли он в игре и если да, то на каком сервере играет.<br/><anchor>Назад<prev/></anchor>"); }
	else {





	$clan=$login;
$clan=substr($tc[0],strpos($tc[0],"*")+1,strrpos($tc[0],"*")-strpos($tc[0],"*")-1);
	if ($clan && file_exists("clans/".$clan)) $tmp=unserialize(implode("",file("clans/".$clan))); else $tmp=array();
	$keys=array_keys($tmp["m"]);
			if ($keys) foreach ($keys as $i) if ($i && $i!=$login) if (file_exists("online/".$i) && filesize("online/".$i)!=1 && ($id==$i || $klan)) {
			$tmp=file("online/".$i);
			$tmp[0]=str_replace("\n","",$tmp[0]);
			$tmp[0]=str_replace("\r","",$tmp[0]);

			loadloc($tmp[0]);
						if (!isset($l_i[$tmp[0]][$i])) if ($klan) continue; else msg("В игре нет данных ".substr($i,2),"Ошибка");
////////////////
	if (time()>$game["lastai"]+240) include "f_online.dat";	// обновим список
	$g_list=10;
	$stmp="";  if (!$start) $start=0; $i=-1;
	$dh = opendir("online/");
	while (($fname = readdir($dh))!== false) if ($fname!="." && $fname!=".." && $fname!="1.htaccess" && $fname!=".htaccess") {
		$i++;
		if($i>=$start && $i<$start+$g_list) {
			$tmp = file("online/".$fname);
			if ($tmp[0]==".") continue;
			for($it=0;$it<2;$it++) {$tmp[$it]=str_replace("\n","",$tmp[$it]);$tmp[$it]=str_replace("\r","",$tmp[$it]);}
			if (!$tmp[0]) {@unlink("online/".$fname); $i--; continue;}
			loadloc($tmp[0]);
			if (isset($l_i[$tmp[0]][$fname])) {
				$tmp1=explode("|",$l_i[$tmp[0]][$fname]["char"]);


				$tmp3=@file("online/$fname");
				$tmp4=explode("\n",$tmp3[0]);
$stmp.="\n<br/>-----<br/><b>".$tmp1[0]."</b>";
				} else {$i--;@unlink("online/".$fname);}
			}
		}
	closedir($dh);

	if ($i>-1) $stmp="<p>Сейчас в игре ".($i+1)." (на этом сервере разрешено не более $g_max) игроков:".$stmp;
	if ($i>-1) {

		if ($start) {$stmp.= "\n<br/><a href=\"$PHP_SELF?sid=$sid&adm=online\">^ </a>";}
		if ($start+$g_list<$i+1) {if (!$start) $stmp.="\n<br/>"; $stmp.= "<a href=\"$PHP_SELF?sid=$sid&adm=online&start=".($start+$g_list)."\">+ (".($i+1+1-$start-$g_list).")</a>";}
		} else $stmp="<p>Сейчас в игре никого нет";

	//$stmp.= "\n<br/><br/><a href=\"f_site_list.php\">Список серверов</a><br/><br/><anchor>[Назад]<prev/></anchor>";

	msg($stmp,"Онлайн (Cервер ".implode("",file("server.dat")).")");
//////////////////////////////////////////////////////////////////////////////////////












	if (substr($login,0,2)!="u.") $login="u.".strtolower($login);

	// проверим на всех серверах
	$tmp=file("servers.dat");
	for($i=1;$i<count($tmp);$i++) if (@implode("",@file(trim($tmp[$i])."f_site_common.php?login=".$login))=="yes") {$loc=""; msg("В данный момент игрок с именем ".substr($login,2)." находится на <a href=\"".trim($tmp[$i])."g.php?r=".rand(1,99)."\">сервере ".$i."</a>.<br/><anchor>Назад<prev/></anchor>");}

	msg("Игрока с именем ".substr($login,2)." сейчас в игре нет.<br/><anchor>Назад<prev/></anchor>");


function msg($s,$title_v="Найти игрока") {
		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("&#x0".$hexvalue.";");} 
	function translate($s) {return(preg_replace("/[А-яЁё]/e","win2unicode('\\0')",$s));} 
	ob_start("translate");
	$s=str_replace("&amp;","&",$s);
	$s=str_replace("&","&amp;",$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_v\">";
echo "
$s
</p>
</card>
</wml>";
	ob_end_flush();
	die("");
	}