To allow various command-line operations like renew-crypto and node adds to know how to generate SSH keys, some config values need to be queried outside of LUs. This patch adds the ssh_key_type and ssh_key_bits to the config values that can be queried.
Signed-off-by: Hrvoje Ribicic <[email protected]> --- src/Ganeti/Query/Server.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs index aff1c44..56169d0 100644 --- a/src/Ganeti/Query/Server.hs +++ b/src/Ganeti/Query/Server.hs @@ -383,6 +383,8 @@ handleCall _ _ cfg (QueryConfigValues fields) = do , ("drain_flag", liftM (showJSON . not) isQueueOpen) , ("modify_ssh_setup", return $ clusterProperty clusterModifySshSetup) + , ("ssh_key_type", return $ clusterProperty clusterSshKeyType) + , ("ssh_key_bits", return $ clusterProperty clusterSshKeyBits) ] :: [(String, IO JSValue)] let answer = map (fromMaybe (return JSNull) . flip lookup params) fields answerEval <- sequence answer -- 2.1.4
