X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/0868840155aca9662f97318b114a07ae4c8319d6..c9731b9b3ee43c4c8d82c31009a5870a01d3acfa:/src/main-vmail.sml

diff --git a/src/main-vmail.sml b/src/main-vmail.sml
index 63ea19d..8acb845 100644
--- a/src/main-vmail.sml
+++ b/src/main-vmail.sml
@@ -23,7 +23,16 @@ val _ =
 	[] => print "Invalid command-line arguments\n"
       | domain :: rest =>
 	case rest of
-	    ["add", user, mailbox] =>
+	    ["list"] =>
+	    (case Main.requestListMailboxes domain of
+		 Vmail.Error msg => (print msg;
+				     print "\n")
+	       | Vmail.Listing users => app (fn {user, mailbox} => (print user;
+								    print "\t";
+								    print mailbox;
+								    print "\n")) users)
+
+	  | ["add", user, mailbox] =>
 	    (case Client.getpass () of
 		 Client.Passwd passwd =>
 		 Main.requestNewMailbox {domain = domain,