Fix IAllocator multi-evacuate message

Since Ganeti passes full host names (not common-suffix-stripped), we
need to remove the suffix from the evac_nodes keys too. In case one node
is not part of the cluster, it will lead to a wrong error message, but
for now it fixes the problem.

Ganeti/HTools/IAlloc.hs

@@ -134,7 +134,8 @@ parseData body = do
         "multi-evacuate" ->
             do
               ex_names <- fromObj "evac_nodes" request
-              ex_nodes <- mapM (Container.findByName map_n) ex_names
+              let ex_names' = map (stripSuffix $ length csf) ex_names
+              ex_nodes <- mapM (Container.findByName map_n) ex_names'
               let ex_ndx = map Node.idx ex_nodes
               return $ Evacuate ex_ndx
         other -> fail ("Invalid request type '" ++ other ++ "'")