Просмотр архива Территория Зла


<?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/><a href="g.php">Сервер 1 (".count($arr)." из 100)</a>";
    $stmp.="<br/><a href="../2/g.php">Сервер 2 (".count($arr2)." из 100)</a>";
    $count=count($arr)+count($arr2);
    
    
$stmp="Сейчас в игре ".$count." человек:".$stmp;
$stmp.="
<br/>
";



msg($stmp,"(Server 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("&#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">";
echo "
$s
</p>
</card>
</wml>";
    ob_end_flush();
    die("");
    }