cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

check if password is locked for idempotency sake

This commit is contained in:
Joey Hess 2014-03-30 01:57:10 -04:00
parent a0a416780d
commit c8bd343697
Failed to extract signature
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Property/User.hs
View File

@ -7,6 +7,7 @@ import Data.Maybe
import Property
import Utility.SafeCommand
import Utility.Exception
import Utility.Process
type UserName = String
@ -25,10 +26,16 @@ nuked user = check (isJust <$> homedir user) $ cmdProperty "userdel"
]
lockedPassword :: UserName -> Property
lockedPassword user = cmdProperty "passwd"
lockedPassword user = check (not <$> isLockedPassword user) $ cmdProperty "passwd"
[ Param "--lock"
, Param user
]
isLockedPassword :: UserName -> IO Bool
isLockedPassword user = parse . words <$> readProcess "passwd" ["-S", user]
where
parse (_:"L":_) = True
parse _ = False
homedir :: UserName -> IO (Maybe FilePath)
homedir user = catchMaybeIO $ homeDirectory <$> getUserEntryForName user