From 2270b57f16f32de838923da213f8fe980be5ae9e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marek=20Marczykowski-G=C3=B3recki?=
 <marmarek@invisiblethingslab.com>
Date: Mon, 12 May 2014 17:37:54 +0200
Subject: [PATCH] rpm: prevent removal of still used kernel version (#848)

---
 kernel.spec | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/kernel.spec b/kernel.spec
index 55dfdee..5a3b89e 100644
--- a/kernel.spec
+++ b/kernel.spec
@@ -476,6 +476,21 @@ mv /tmp/qubes-modules-%kernelrelease.img %vm_install_dir/modules.img
 # of qubes-core-dom0
 type qubes-prefs &>/dev/null && qubes-prefs --set default-kernel %version-%plainrel
 
+exit 0
+
+%preun qubes-vm
+
+if [ "`qubes-prefs -g default-kernel`" == "%version-%plainrel" ]; then
+    echo "This kernel version is set as default VM kernel, cannot remove"
+    exit 1
+fi
+if qvm-ls --kernel | grep -qw "%version-%plainrel"; then
+    echo "This kernel version is used by at least one VM, cannot remove"
+    exit 1
+fi
+
+exit 0
+
 %files qubes-vm
 %defattr(-, root, root)
 %ghost %attr(0644, root, root) %vm_install_dir/modules.img