File size: 1.31Kb
<?
#-----------------------------------------------------#
# ********* WAP-NEWS ********* #
# Made by : X-ray #
# E-mail : [email protected] #
# Site : http://www.zugdidi.us #
# WAP-Site : http://geowap.mobi #
# ICQ : 49-47-485-47 #
# Вы не имеете право вносить изменения в код скрипта #
# ЗАПРЕЩЕННО ПЕРЕПРОДАВАТЬ ДАННЫЙ СКРИПТ!!! #
#-----------------------------------------------------#
$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("inc/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("inc/online.dat","w");
fclose($fp);
foreach($newar as $key => $val) {
$fp=@fopen("inc/online.dat","a");
fputs($fp,"$val");
fclose($fp);}
$online=round($ton+1);
?>