From 442f54e705f1f995169e1c479ff3254d4787d004 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 24 Nov 2007 16:09:36 +0000 Subject: [PATCH] Use pwgen instead of apg --- app/app.sml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/app.sml b/app/app.sml index fde065e..96d9f47 100644 --- a/app/app.sml +++ b/app/app.sml @@ -98,14 +98,14 @@ type application = { name : string, rname : string, gname : string option, email fun randomPassword () = let - val proc = Unix.execute ("/usr/bin/apg", ["/usr/bin/apg", "-n", "1", "-m", "10"]) + val proc = Unix.execute ("/usr/bin/pwgen", ["-cCnB", "8", "1"]) in case TextIO.inputLine (Unix.textInstreamOf proc) of - NONE => raise Fail "Couldn't execute apg" + NONE => raise Fail "Couldn't execute pwgen" | SOME line => case String.tokens Char.isSpace line of [s] => s - | _ => raise Fail "Couldn't parse output of apg" + | _ => raise Fail "Couldn't parse output of pwgen" end val allLower = CharVector.map Char.toLower -- 2.20.1