Merge branch 'stable-2.12' into stable-2.13
authorLisa Velden <velden@google.com>
Mon, 3 Aug 2015 11:45:42 +0000 (13:45 +0200)
committerLisa Velden <velden@google.com>
Mon, 3 Aug 2015 14:26:02 +0000 (14:26 +0000)
* stable-2.12
  Correct indendation
  In confd provide proper serial number

* stable-2.11
  (no changes)

* stable-2.10
  Add a new unit test for LUInstanceMultiAlloc
  Fix a bug in LUInstanceMultiAlloc LU

Conflicts:
      lib/bootstrap.py

Resolution:
        lib/bootstrap.py: take indendation from stable-2.12

Semantical conflicts:
        src/Ganeti/Confd/Server.hs: add serial number to new queries

Signed-off-by: Lisa Velden <velden@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

1  2 
lib/bootstrap.py
lib/cmdlib/instance.py
src/Ganeti/Confd/Server.hs
test/py/cmdlib/instance_unittest.py

Simple merge
Simple merge
@@@ -240,32 -246,12 +249,36 @@@ buildResponse cdata req@(ConfdRequest 
      case confdRqQuery req of
        PlainQuery str -> return str
        _ -> fail $ "Invalid query type " ++ show (confdRqQuery req)
+   inst <- lookupContainer (Bad $ "unknown instance: " ++ inst_uuid)
+             inst_uuid $ configInstances cfg
    case getInstDisks cfg inst_uuid of
-     Ok disks -> return (ReplyStatusOk, J.showJSON disks)
+     Ok disks -> return (ReplyStatusOk, J.showJSON disks, instSerial inst)
      Bad e -> fail $ "Could not retrieve disks: " ++ show e
  
 +-- | Return arbitrary configuration value given by a path.
 +buildResponse cdata req@(ConfdRequest { confdRqType = ReqConfigQuery
 +                                      , confdRqQuery = pathQ }) = do
 +  let cfg = fst cdata
 +  path <-
 +    case pathQ of
 +      PlainQuery path -> return path
 +      _ -> fail $ "Invalid query type " ++ show (confdRqQuery req)
 +  let configValue = extractJSONPath path cfg
 +  case configValue of
-     J.Ok jsvalue -> return (ReplyStatusOk, jsvalue)
++    J.Ok jsvalue -> return (ReplyStatusOk, jsvalue,
++                            clusterSerial $ configCluster cfg)
 +    J.Error _ -> return queryArgumentError
 +
 +-- | Return activation state of data collectors
 +buildResponse (cdata,_) (ConfdRequest { confdRqType = ReqDataCollectors }) = do
 +  let mkConfig col =
 +        (dName col, DataCollectorConfig
 +                   (dActive col (dName col) cdata)
 +                   (dInterval col (dName col) cdata))
 +      datacollectors = containerFromList $ map mkConfig collectors
-   return (ReplyStatusOk, J.showJSON datacollectors)
++  return (ReplyStatusOk, J.showJSON datacollectors,
++          clusterSerial . configCluster $ cdata)
 +
  -- | Creates a ConfdReply from a given answer.
  serializeResponse :: Result StatusAnswer -> ConfdReply
  serializeResponse r =
Simple merge