From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 15 Oct 2019 03:29:23 +0000 (+0200)
Subject: login/edit: admin links to doc/post user pages
X-Git-Tag: v4.1~28
X-Git-Url: http://git.shiar.nl/minimedit.git/commitdiff_plain/0275acd4a61e80020aa589b21f82ea9cdc711859

login/edit: admin links to doc/post user pages
---

diff --git a/widget/login/edit.php b/widget/login/edit.php
index 0d61a4f..829631e 100644
--- a/widget/login/edit.php
+++ b/widget/login/edit.php
@@ -161,7 +161,28 @@ if ($_POST) {
 	}
 }
 
+if ($User->admin('user')) {
 ?>
+<aside>
+<h2>Gebruikersbeheer</h2>
+<?php
+	$postdir = 'doc/post';
+	if (is_dir($postdir)) {
+		print "<h3>Brieven</h3><ul>\n";
+		foreach (glob("$postdir/*.html") as $link) {
+			$page = new ArchiveArticle($link);
+			printf('<li><a href="/%s?login=%s">%s</a></li>'."\n",
+				$page->link, $user->login, $page->name
+			);
+		}
+		print "</ul>\n";
+	}
+?>
+</aside>
+<?php
+}
+?>
+
 <form method="post" enctype="multipart/form-data">
 	<ul class="grid">
 <?php