View file modules/kabinet/friends_online_count.php

<?php
########################################
##	           WAP-ENGINE             ##
########################################
##                                    ##
##  Автор : CHUMA (Токарев Владимир)  ##
##  e-mail : [email protected]     ##
##  WAP : http://wap-engine.ru        ##
##                                    ##
########################################
##         ВЫ НЕ ИМЕЕТЕ ПРАВО         ##
##        ИЗМЕНЯТЬ КОД СКРИПТА        ##
##  ДЛЯ ДАЛЬНЕЙШЕГО РАСПРОСТРАНЕНИЯ!  ##
########################################
$friens_online_f = @file($dob_url.'/data/users/'.$login.'_friends.php');
$friends_count_onl = count($friens_online_f);
unset($friends);

for($i=2; $i < $friends_count_onl - 2; $i++)
 {
  $friends[] = $friens_online_f[$i];
 }
 
$users_on_f_inf = file($dob_url.'/data/user_online.txt');
$users_on_count_inf = count($users_on_f_inf);
  for($i=0; $i <= $users_on_count_inf; $i++)
   {
    $users_on_exp = explode('|', $users_on_f_inf[$i]);
    $user_on_arr_inf[] = $users_on_exp[0];
   }
  $user_on_str = implode('|', $user_on_arr_inf);
  
$fr_count_onl = count($friends);
$fr_onl = 0;

for($i=0; $i <= $fr_count_onl; $i++)
 {
  if(@strstr($user_on_str, trim($friends[$i])))
   {
    $fr_onl = $fr_onl + 1;
   }
 }
  
echo $fr_onl;
?>