Listing vmail mailboxes

[hcoop/domtool2.git] / src / main-vmail.sml

diff --git a/src/main-vmail.sml b/src/main-vmail.sml
index 63ea19d..05cb86f 100644 (file)
--- a/src/main-vmail.sml
+++ b/src/main-vmail.sml
@@ -23,7 +23,14 @@ 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 => (print user;
+                                                        print "\n")) users)
+
+         | ["add", user, mailbox] =>
            (case Client.getpass () of
                 Client.Passwd passwd =>
                 Main.requestNewMailbox {domain = domain,