Join GitHub today
GitHub is home to over 20 million developers working together to host and review code, manage projects, and build software together.
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
Already on GitHub? Sign in to your account
CA-94616: Check SR Capabilities before suspending VM for checkpoint #933
commented on the diff
Dec 17, 2012
|@@ -178,6 +178,28 @@ let checkpoint ~__context ~vm ~new_name =|
|(* Save the state of the vm *)|
|snapshot_info := Xapi_vm_clone.snapshot_info ~power_state ~is_a_snapshot:true;|
|+ (* Get all the VM's VDI's except CD's *)|
|+ let vbds = Db.VM.get_VBDs ~__context ~self:vm in|
|+ let vbds = List.filter (fun x -> Db.VBD.get_type ~__context ~self:x <> `CD) vbds in|
|+ let vdis = List.map (fun self -> Db.VBD.get_VDI ~__context ~self) vbds in|