From f6add164cddbbc6d7d9e6bd5cd073ed43bd6900f Mon Sep 17 00:00:00 2001
From: Silvio Rhatto <rhatto@riseup.net>
Date: Thu, 20 Aug 2015 22:54:41 -0300
Subject: Compact all VDIs on store

---
 vbox | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/vbox b/vbox
index 10a4af0..0069bd6 100755
--- a/vbox
+++ b/vbox
@@ -4,6 +4,7 @@
 #
 
 # Parameters
+STORE="/var/cache/virtualbox/"
 BASENAME="`basename $0`"
 COMMAND="$1"
 VM="$2"
@@ -52,7 +53,10 @@ if [ ! -z "$VM" ]; then
     vbox_exec /bin/mount -o remount,ro /
     vbox_exec /usr/sbin/zerofree /dev/sda1
     vbox_exec /sbin/halt
-    VBoxManage modifyhd --compact /var/cache/virtualbox/$box/$box.vdi
+
+    for vdi in `ls $STORE/$VM/*.vdi`; do
+      VBoxManage modifyhd --compact $vdi
+    done
   elif [ "$COMMAND" == "exec" ]; then
     vbox_exec $*
   else
-- 
cgit v1.2.3