From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 12 Dec 2017 21:49:42 +0000 (+0100)
Subject: admin/visits: list entries of last logins
X-Git-Tag: v2.5^0
X-Git-Url: http://git.shiar.net/minimedit.git/commitdiff_plain/864856fd3e4f554e83efb478f9c9827c451b57a0

admin/visits: list entries of last logins
---

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";