From 4039d8283ff74cbf5bff3cc8616d293f13180135 Mon Sep 17 00:00:00 2001
From: clinton_admin <clinton_admin@fritz.hcoop.net>
Date: Sun, 27 Aug 2017 15:13:34 -0400
Subject: [PATCH] passgen: ensure sufficient character classes

Force numeric, cap, and small letters in generated passwords
---
 passgen/passgen.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.20.1