Work on merging dokuwiki passwd.

src/mbase.scm

@@ -314,7 +314,22 @@
  ;; Adds dokuwiki information to all users found, returns new mbase
  ;; and list of remaining users.
  (define (mbase-merge-dokuwiki mb dw)
-   (values mb dw))
+   (let loop ((dw dw)
+	      (mb mb)
+	      (rem '()))
+     (if (null? dw)
+	 (values mb rem)
+	 (let* ((row (car dw))
+		(username (car row))
+		(mr (find-member-by-nick mb username)))
+	   (if mr
+	       (let ()
+		 (loop (cdr dw)
+		       mb
+		       rem))
+	       (loop (cdr dw)
+		     mb
+		     (cons row rem)))))))
 
  ;; Simple syntax wrapper
  (define-syntax with-mbase-progress%