Preliminary check for wrong admin groups.

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.