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 Property
import Utility.SafeCommand import Utility.SafeCommand
import Utility.Exception import Utility.Exception
import Utility.Process
type UserName = String type UserName = String
@ -25,10 +26,16 @@ nuked user = check (isJust <$> homedir user) $ cmdProperty "userdel"
] ]
lockedPassword :: UserName -> Property lockedPassword :: UserName -> Property
lockedPassword user = cmdProperty "passwd" lockedPassword user = check (not <$> isLockedPassword user) $ cmdProperty "passwd"
[ Param "--lock" [ Param "--lock"
, Param user , 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 :: UserName -> IO (Maybe FilePath)
homedir user = catchMaybeIO $ homeDirectory <$> getUserEntryForName user homedir user = catchMaybeIO $ homeDirectory <$> getUserEntryForName user