View file online.php

File size: 1.03Kb
<?
/********* PHP OН-ЛАЙН v1.0 ************ 
Copyright 2003, PHP Active Stalker. 
E-mail: [email protected]
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|$savedtime\n");
		$users = $users + 1;
		}
	}

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

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