Parašė ibodom· 2008 Kov. 8 17:03:05
#2
Elemtarus online scriptas.Susideda is triju failu.
online.dat
online.php
who.php
Suchmodinkite online.dat i 777
-----------------------------------------------
Online.php:
<?php
$data="online.dat";
$time=time();
$past_time=time()-300;
$readdata=@fopen($data,"r") or die("$data tokio failo nera!");
$data_array=file($data);
@fclose($readdata);
if (getenv('HTTP_X_FORWARDED_FOR'))
$user = getenv('HTTP_X_FORWARDED_FOR');
else
$user = getenv('REMOTE_ADDR');
$agent = getenv('HTTP_USER_AGENT');
$d=count($data_array);
for($i=0;$i<$d;$i++)
{
list($live_agent,$live_user,$last_time)=explode("::","$data_array[$i]");
if($live_user!=""&&$last_time!=""&&$live_agent!=""):
if($last_time<$past_time):
$live_user="";
$last_time="";
$live_agent="";
endif;
if($live_user!=""&&$last_time!=""&&$live_agent!="")
{
if($user==$live_user&&$agent==$live_agent)
{
$online_array[]="$agent::$user::$time\r\n";
}
else
$online_array[]="$live_agent::$live_user::$last_time";
}
endif;
}
if(isset($online_array)):
foreach($online_array as $i=>$str)
{
if($str=="$agent::$user::$time\r\n")
{
$ok=$i;
break;
}
}
foreach($online_array as $j=>$str)
{
if($ok==$j) { $online_array[$ok]="$agent::$user::$time\r\n"; break;}
}
endif;
$writedata=@fopen($data,"w") or die("$data tokio failo nera!");
@flock($writedata,2);
if($online_array=="") $online_array[]="$agent::$user::$time\r\n";
foreach($online_array as $str)
fputs($writedata,"$str");
@flock($writedata,3);
@fclose($writedata);
$readdata=@fopen($data,"r") or die("$data tokio failo nera!");
$data_array=@file($data);
@fclose($readdata);
$online=count($data_array);
print '<u>Online:</u><a href="who.php">'.$online.'</a><br/>';
?>
-----------------------------------------------------------
who.php
<?php
$data = file('online.dat');
foreach($data as $val)
{
$ex = explode('::', $val);
$ex2 = explode(' ', $ex[0]);
print '<b>'.$ex2[0].'</b>-'.date('H:i:s', (int)(trim($ex[2]))).'<br/>';
}
?>
Redagavo kiskiss· 2008 Kov. 8 17:03:26