summaryrefslogtreecommitdiffstats
path: root/modules-available
diff options
context:
space:
mode:
authorSimon Rettberg2016-08-22 12:11:27 +0200
committerSimon Rettberg2016-08-22 12:11:27 +0200
commitf2133e98aa5457f99e4ab7e8f8ac48b9720fb777 (patch)
tree734c3b47b99bdb711f5abce76e130c34d84f3bbd /modules-available
parentMerge branch 'modularization' of git.openslx.org:openslx-ng/slx-admin into mo... (diff)
downloadslx-admin-f2133e98aa5457f99e4ab7e8f8ac48b9720fb777.tar.gz
slx-admin-f2133e98aa5457f99e4ab7e8f8ac48b9720fb777.tar.xz
slx-admin-f2133e98aa5457f99e4ab7e8f8ac48b9720fb777.zip
Modularize cron api
Modules now can have a ./hooks/cron.inc.php to run every X minutes, according to how you set up the cron job for the global /inc/cron.inc.php
Diffstat (limited to 'modules-available')
-rw-r--r--modules-available/eventlog/hooks/cron.inc.php5
-rw-r--r--modules-available/statistics/hooks/cron.inc.php18
-rw-r--r--modules-available/syslog/hooks/cron.inc.php5
3 files changed, 28 insertions, 0 deletions
diff --git a/modules-available/eventlog/hooks/cron.inc.php b/modules-available/eventlog/hooks/cron.inc.php
new file mode 100644
index 00000000..027acf87
--- /dev/null
+++ b/modules-available/eventlog/hooks/cron.inc.php
@@ -0,0 +1,5 @@
+<?php
+
+if (mt_rand(1, 10) === 1) {
+ Database::exec("DELETE FROM eventlog WHERE (UNIX_TIMESTAMP() - dateline) > 86400 * 190");
+} \ No newline at end of file
diff --git a/modules-available/statistics/hooks/cron.inc.php b/modules-available/statistics/hooks/cron.inc.php
new file mode 100644
index 00000000..94c65248
--- /dev/null
+++ b/modules-available/statistics/hooks/cron.inc.php
@@ -0,0 +1,18 @@
+<?php
+
+Database::exec("DELETE FROM statistic WHERE (UNIX_TIMESTAMP() - dateline) > 86400 * 190");
+Database::exec("DELETE FROM machine WHERE (UNIX_TIMESTAMP() - lastseen) > 86400 * 365");
+
+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();
diff --git a/modules-available/syslog/hooks/cron.inc.php b/modules-available/syslog/hooks/cron.inc.php
new file mode 100644
index 00000000..c796675f
--- /dev/null
+++ b/modules-available/syslog/hooks/cron.inc.php
@@ -0,0 +1,5 @@
+<?php
+
+if (mt_rand(1, 10) === 1) {
+ Database::exec("DELETE FROM clientlog WHERE (UNIX_TIMESTAMP() - dateline) > 86400 * 190");
+} \ No newline at end of file