File size: 756B
<?
$agent=htmlspecialchars(stripslashes("$REMOTE_ADDR"));
$ugent=htmlspecialchars(stripslashes(getenv('HTTP_USER_AGENT')));
$agent=trim($agent);
$ugent=trim($ugent);
$agent="$agent-$ugent";
$time=htmlspecialchars(stripslashes(time()));
$oftime=$time-300;
$den =date("d",$time);
$aron=@file("online.dat");
$ton=0;
foreach($aron as $key => $val) {
$artext=@explode("#",$val);
if($artext[0]>$oftime & $agent!=$artext[1] & $artext[1]!=""){
$newar[$ton]=$val;
$ton=$ton+1;}
if($agent==$artext[1] & $artext[0]>$oftime){$metod="xit";}}
$newar[$ton]="$time#$agent# \r\n";
$fp=@fopen("online.dat","w");
fclose($fp);
foreach($newar as $key => $val) {
$fp=@fopen("online.dat","a");
fputs($fp,"$val");
fclose($fp);}
$online=round($ton+1);
?>