Revision 332a83ca

b/lib/constants.py
2144 2144
CONFD_REQ_MC_PIP_LIST = 5
2145 2145
CONFD_REQ_INSTANCES_IPS_LIST = 6
2146 2146
CONFD_REQ_NODE_DRBD = 7
2147
CONFD_REQ_NODE_INSTANCES = 8
2147 2148

  
2148 2149
# Confd request query fields. These are used to narrow down queries.
2149 2150
# These must be strings rather than integers, because json-encoding
b/src/Ganeti/Confd/Server.hs
242 242
                 (a, b, c, d, e, f) <- minors]
243 243
  return (ReplyStatusOk, J.showJSON encoded)
244 244

  
245
buildResponse cdata req@(ConfdRequest { confdRqType = ReqNodeInstances }) = do
246
  let cfg = fst cdata
247
  node_name <- case confdRqQuery req of
248
                PlainQuery str -> return str
249
                _ -> fail $ "Invalid query type " ++ show (confdRqQuery req)
250
  let instances = getNodeInstances cfg node_name
251
  return (ReplyStatusOk, J.showJSON instances)
252

  
245 253
-- | Creates a ConfdReply from a given answer.
246 254
serializeResponse :: Result StatusAnswer -> ConfdReply
247 255
serializeResponse r =
b/src/Ganeti/Confd/Types.hs
78 78
  , ("ReqMcPipList",        'C.confdReqMcPipList )
79 79
  , ("ReqInstIpsList",      'C.confdReqInstancesIpsList )
80 80
  , ("ReqNodeDrbd",         'C.confdReqNodeDrbd )
81
  , ("ReqNodeInstances",    'C.confdReqNodeInstances)
81 82
  ])
82 83
$(makeJSONInstance ''ConfdRequestType)
83 84

  

Also available in: Unified diff