Add querying of ssh-related config values
authorHrvoje Ribicic <riba@google.com>
Wed, 18 Nov 2015 14:53:53 +0000 (14:53 +0000)
committerHrvoje Ribicic <riba@google.com>
Fri, 20 Nov 2015 10:14:07 +0000 (11:14 +0100)
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 <riba@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>

src/Ganeti/Query/Server.hs

index 5ca5a1f..595236c 100644 (file)
@@ -385,6 +385,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