ADD dbus interface to get a specific password

This commit is contained in:
Nathan Dwarshuis 2021-02-14 13:17:17 -05:00
parent fe73296860
commit 1ab10ed55b
1 changed files with 19 additions and 4 deletions

View File

@ -213,6 +213,15 @@ loginToRofiActions Login { username = u, password = p } a =
user = copyIfJust fmtUsername u
pwd = copyIfJust fmtPassword p
getItemPassword' :: BWServerConf -> Session -> String -> IO (Maybe String)
getItemPassword' conf session item = mapM getPwd =<< getSession' conf session
where
getPwd s = readProcess "bw" ["get", "password", item, "--session", s] ""
getItemPassword :: BWServerConf -> Session -> String -> IO String
getItemPassword conf session item = fromMaybe "" <$>
getItemPassword' conf session item
--------------------------------------------------------------------------------
-- | DBus
@ -228,6 +237,7 @@ startService c ses = do
[ autoMethod memGetSession $ getSession c ses
, autoMethod memLockSession $ lockSession ses
, autoMethod memSyncSession $ syncSession c ses
, autoMethod memGetPassword $ getItemPassword c ses
]
}
@ -249,6 +259,9 @@ memLockSession = "LockSession"
memSyncSession :: MemberName
memSyncSession = "SyncSession"
memGetPassword :: MemberName
memGetPassword = "GetPassword"
callMember :: MemberName -> IO [Variant]
callMember m = do
reply <- callMethod $ methodCall path interface m
@ -263,13 +276,15 @@ callSyncSession :: IO ()
callSyncSession = void $ callMember memSyncSession
callGetSession :: IO (Maybe String)
callGetSession = getBodySession <$> callMember memGetSession
callGetSession = getBodyString <$> callMember memGetSession
getBodySession :: [Variant] -> Maybe String
getBodySession [b] = case fromVariant b :: Maybe String of
-- TODO maybe will need to add a caller for getItemPassword
getBodyString :: [Variant] -> Maybe String
getBodyString [b] = case fromVariant b :: Maybe String of
Just "" -> Nothing
s -> s
getBodySession _ = Nothing
getBodyString _ = Nothing
callMethod :: MethodCall -> IO (Either MethodError [Variant])
callMethod mc = do