passgen: ensure sufficient character classes

[hcoop/portal.git] / passgen / passgen.sml

diff --git a/passgen/passgen.sml b/passgen/passgen.sml
index 591bcac..1c51df0 100644 (file)
--- a/passgen/passgen.sml
+++ b/passgen/passgen.sml
@@ -30,7 +30,7 @@ fun gen () =
                     [id] => C.intFromSql id
                   | _ => raise Fail "Bad nextval() return"
 
-       val proc = Unix.execute ("/usr/bin/apg", ["/usr/bin/apg", "-d", "-n", "1"])
+       val proc = Unix.execute ("/usr/bin/apg", ["/usr/bin/apg", "-d", "-n", "1", "-M", "NCL"])
        val inf = Unix.textInstreamOf proc
 
        val pass = case TextIO.inputLine inf of