From b8039013673dbf969d9956a36325126b080e7018 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 2 Jul 2023 20:38:01 +0200
Subject: [PATCH] Preliminary check for wrong admin groups.

---
 src/members-print.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/members-print.scm b/src/members-print.scm
index 4cc4b3e..4111bf6 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -412,6 +412,13 @@
 	      (string-intersperse
 	       (map car dwpu)
 	       ", "))))
+   (let ((dwmu (find-members-by-predicate mb (compose not brmember-dokuwiki-groups-ok?))))
+     (when (not (null? dwmu))
+       (newline)
+       (print "Members in wrong dokuwiki group(s): "
+	      (string-intersperse
+	       (map brmember-nick dwmu)
+	       ", "))))
    )
 
  ;; Prints the stats in format used by gnuplot.