From: clinton_admin <clinton_admin@fritz.hcoop.net>
Date: Sun, 27 Aug 2017 19:13:34 +0000 (-0400)
Subject: passgen: ensure sufficient character classes
X-Git-Url: https://git.hcoop.net/hcoop/portal.git/commitdiff_plain/4039d8283ff74cbf5bff3cc8616d293f13180135

passgen: ensure sufficient character classes

Force numeric, cap, and small letters in generated passwords
---

diff --git a/passgen/passgen.sml b/passgen/passgen.sml
index 591bcac..1c51df0 100644
--- 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