View file inc/counter.php

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);
?>