From 864856fd3e4f554e83efb478f9c9827c451b57a0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 12 Dec 2017 22:49:42 +0100
Subject: [PATCH] admin/visits: list entries of last logins

---
 admin/visits.html |  1 +
 admin/visits.php  | 17 +++++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 admin/visits.html
 create mode 100644 admin/visits.php

diff --git a/admin/visits.html b/admin/visits.html
new file mode 100644
index 0000000..e772122
--- /dev/null
+++ b/admin/visits.html
@@ -0,0 +1 @@
+<h2>Recente gebruikers</h2>
diff --git a/admin/visits.php b/admin/visits.php
new file mode 100644
index 0000000..5c29a6c
--- /dev/null
+++ b/admin/visits.php
@@ -0,0 +1,17 @@
+<?php
+$logs = glob('login/*/last.log');
+
+$logins = [];
+foreach ($logs as $log) {
+	preg_match('{^login/([^/]+)}', $log, $login);
+	$logins[ $login[1] ] = filemtime($log);
+}
+
+print "<ul>\n";
+arsort($logins, SORT_NUMERIC);
+foreach ($logins as $login => $last) {
+	printf('<li>%s <a href="/login/%s">%s</a></li>'."\n",
+		strftime('%F %H:%M', $last), $login, $login
+	);
+}
+print "</ul>\n\n";
-- 
2.30.0