Просмотр архива Бекап okmob.ru


<?
/********* PHP OН-ЛАЙН v1.0 ************ 
Copyright 2003, PHP Active Stalker. 
E-mail: stalker@phpactive.ru
Website: http://www.phpactive.ru
**********************************************/ 
$ip = $REMOTE_ADDR;
$time = time();
$minutes = 15;
$found = 0;
$users = 0;
$user  = "";

$tmpdata = $DOCUMENT_ROOT."/online/data";

if (!is_file("$tmpdata/online.txt"))    
    {
    $s = fopen("$tmpdata/online.txt","w");
    fclose($s);
    chmod("$tmpdata/online.txt",0666);
    }

$f = fopen("$tmpdata/online.txt","r+");
flock($f,2);

while (!feof($f))
    {
    $user[] = chop(fgets($f,65536));
    }

fseek($f,0,SEEK_SET);
ftruncate($f,0);

foreach ($user as $line)
    {
    list($savedip,$savedtime) = split("|",$line);
    if ($savedip == $ip) {$savedtime = $time;$found = 1;}
    if ($time < $savedtime + ($minutes * 60)) 
        {
        fputs($f,"$savedip|$savedtimen");
        $users = $users + 1;
        }
    }

if ($found == 0) 
    {
    fputs($f,"$ip|$timen");
    $users = $users + 1;
    }

fclose ($f);
print "Он-лайн:&nbsp;<font color=black>$users</font>
";
?>