From de8c6598d7be3f7d729149850f84962d2c7230f3 Mon Sep 17 00:00:00 2001
From: santic-zombie <santicmail@rambler.ru>
Date: Thu, 26 Mar 2020 23:15:41 +0300
Subject: [PATCH] Added script for counting listeners

---
 index.php  | 19 +++++++++++++
 online.dat |  0
 online.php | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 99 insertions(+)
 create mode 100644 online.dat
 create mode 100644 online.php

diff --git a/index.php b/index.php
index db771a3..4f82e09 100755
--- a/index.php
+++ b/index.php
@@ -49,6 +49,8 @@
 
 		<span id="duration"></span>
 		<br>
+		<br>
+		<div id="listeners">title</div>
 
 	</div>
 
@@ -95,6 +97,23 @@
     });
 </script>
 
+<script  language="JavaScript">
+    function show1()
+    {
+        $.ajax({
+            url: '/online.php',
+	    cache: false,
+            success: function(html){
+                $('#listeners').html(html);
+            }
+        });
+    }
+    $(document).ready(function(){
+        show1();
+        setInterval('show1()',5000);
+    });
+</script>
+
 </body>
 
 </html>
diff --git a/online.dat b/online.dat
new file mode 100644
index 0000000..e69de29
diff --git a/online.php b/online.php
new file mode 100644
index 0000000..0840ce8
--- /dev/null
+++ b/online.php
@@ -0,0 +1,80 @@
+<?php
+  /*
+    ********************************************************************
+    *         Название:  Sad Raven's Online Counter                    *
+    ********************************************************************
+    *           Версия:  1.0                                           *
+    *        Стоимость:  бесплатный скрипт                             *
+    *       Требования:  PHP4 и выше                                   *
+    *        Платформа:  любая                                         *
+    *             Язык:  русский                                       *
+    *            Автор:  Sad Raven (http://www.sad-raven.ru)           *
+    ********************************************************************
+    *           Создан:  15 июня 2002                                  *
+    ********************************************************************
+  */
+
+        $data="online.dat";
+        $time=time();
+        $past_time=time()-600;
+
+        $readdata=fopen($data,"r") or die("Не могу открыть файл $data");
+        $data_array=file($data);
+        fclose($readdata);
+
+        if (getenv('HTTP_X_FORWARDED_FOR'))
+               $user = getenv('HTTP_X_FORWARDED_FOR');
+        else
+             $user = getenv('REMOTE_ADDR');
+
+        $d=count($data_array);
+        for($i=0;$i<$d;$i++)
+                {
+               list($live_user,$last_time)=explode("::","$data_array[$i]");
+               if($live_user!=""&&$last_time!=""):
+               if($last_time<$past_time):
+                        $live_user="";
+                        $last_time="";
+                endif;
+                if($live_user!=""&&$last_time!="")
+                        {
+                        if($user==$live_user)
+                                {
+                                $online_array[]="$user::$time\r\n";
+                                }
+                        else
+                                $online_array[]="$live_user::$last_time";
+                        }
+                endif;
+                }
+
+        if(isset($online_array)):
+        foreach($online_array as $i=>$str)
+                {
+                if($str=="$user::$time\r\n")
+                        {
+                        $ok=$i;
+                        break;
+                        }
+                }
+        foreach($online_array as $j=>$str)
+                {
+                if($ok==$j) { $online_array[$ok]="$user::$time\r\n"; break;}
+                }
+       endif;
+
+        $writedata=fopen($data,"w") or die("Не могу открыть файл $data");
+        flock($writedata,2);
+        if($online_array=="") $online_array[]="$user::$time\r\n";
+        foreach($online_array as $str)
+                fputs($writedata,"$str");
+        flock($writedata,3);
+        fclose($writedata);
+
+        $readdata=fopen($data,"r") or die("Не могу открыть файл $data");
+        $data_array=file($data);
+        fclose($readdata);
+        $online=count($data_array);
+
+        echo "Listeners : $online";
+?>