From b5284cc23fc7ce49a3f75762d6387c28dbb174eb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:17:44 -0400 Subject: password locking --- Property/User.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'Property') diff --git a/Property/User.hs b/Property/User.hs index 3ab5f570..47d6fb5b 100644 --- a/Property/User.hs +++ b/Property/User.hs @@ -17,5 +17,18 @@ nonsystem user = check (isNothing <$> homedir user) $ cmdProperty "adduser" , Param user ] +{- Removes user home directory!! Use with caution. -} +nuked :: UserName -> Property +nuked user = check (isJust <$> homedir user) $ cmdProperty "userdel" + [ Param "-r" + , Param user + ] + +lockedPassword :: UserName -> Property +lockedPassword user = cmdProperty "passwd" + [ Param "--lock" + , Param user + ] + homedir :: UserName -> IO (Maybe FilePath) homedir user = catchMaybeIO $ homeDirectory <$> getUserEntryForName user -- cgit v1.2.3