From 61d8214d9d8cea6ba047d1a26f9edc1ea180234b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 19:10:32 -0400
Subject: propellor spin

---
 Property/User.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'Property/User.hs')

diff --git a/Property/User.hs b/Property/User.hs
index 58bfa37a..dcbf56c9 100644
--- a/Property/User.hs
+++ b/Property/User.hs
@@ -4,8 +4,6 @@ import System.Posix
 
 import Common
 
-type UserName = String
-
 data Eep = YesReallyDeleteHome
 
 sshAccountFor :: UserName -> Property
@@ -24,6 +22,14 @@ nuked user _ = check (isJust <$> homedir user) $ cmdProperty "userdel"
 	]
 	`describe` ("nuked user " ++ user)
 
+setPassword :: UserName -> Property
+setPassword user = Property (user ++ " password set") $
+	withPrivData (Password user) $ \password -> makeChange $
+		withHandle StdinHandle createProcessSuccess
+			(proc "chpasswd" []) $ \h -> do
+				hPutStrLn h $ user ++ ":" ++ password
+				hClose h
+
 lockedPassword :: UserName -> Property
 lockedPassword user = check (not <$> isLockedPassword user) $ cmdProperty "passwd"
 	[ Param "--lock"
-- 
cgit v1.3-2-g0d8e