From 1e57f42bde0d2cc11f77ff834c9d6d3631ac27cb Mon Sep 17 00:00:00 2001
From: Simon Rettberg
Date: Fri, 19 Feb 2016 15:02:08 +0100
Subject: [statistics] cron: log usage

---
 apis/cron.inc.php | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'apis')

diff --git a/apis/cron.inc.php b/apis/cron.inc.php
index 318fb67f..7171fb4e 100644
--- a/apis/cron.inc.php
+++ b/apis/cron.inc.php
@@ -31,5 +31,20 @@ case 6:
 	break;
 }
 
+// TODO: Move to some module
+function logstats() {
+	$NOW = time();
+	$cutoff = $NOW - 86400 * 30;
+	$online = $NOW - 610;
+	$known = Database::queryFirst("SELECT Count(*) AS val FROM machine WHERE lastseen > $cutoff");
+	$on = Database::queryFirst("SELECT Count(*) AS val FROM machine WHERE lastseen > $online");
+	$used = Database::queryFirst("SELECT Count(*) AS val FROM machine WHERE lastseen > $online AND logintime <> 0");
+	Database::exec("INSERT INTO statistic (dateline, typeid, clientip, username, data) VALUES (:now, '~stats', '', '', :vals)", array(
+		'now' => $NOW,
+		'vals' => $known['val'] . '#' . $on['val'] . '#' . $used['val'],
+	));
+}
+logstats();
+
 Trigger::checkCallbacks();
 Trigger::ldadp();
-- 
cgit v1.2.3-55-g7522