Add -list action.

src/hackerbase.scm

@@ -151,6 +151,8 @@
 	    (-action- 'unpaired))
  (-edit () "Edit selected user"
 	(-action- 'edit))
+ (-list () "Lists active members"
+	(-action- 'list))
  ""
  "Id Management Actions:"
  (-idstats () "Returns information about available member ids"
@@ -359,7 +361,7 @@
        (print "Mailman synchronization disabled with manually specified current month.")))
   ((notify)
    (let ((nmembers (members-to-notify MB (-notify-months-))))
-/     (newline)
+     (newline)
      (if (null? nmembers)
 	 (print "Everyone paid on time.")
 	 (let ()
@@ -388,6 +390,11 @@
    (if (-send-emails-)
        (make+send-summary-email MB)
        (make+print-summary-email MB)))
+  ((list)
+   (for-each (lambda (mr)
+	       (print (brmember-nick mr)))
+	     (find-members-by-predicate MB brmember-active?)
+	     ))
   (else
    (print "Nothing to do. Try running with: -h"))