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