blob: 84f37ef519aaf6e525041c2db575b5caa7f2566b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#!/bin/bash
#
# Simple wrapper around VBoxManage.
#
# Parameters
STORE="/var/cache/virtualbox/"
BASENAME="`basename $0`"
COMMAND="$1"
VM="$2"
shift 2
# Usage
function usage {
echo "usage: $BASENAME <command> [vm]"
exit 1
}
# Execute commands inside a virtual machine
function vbox_exec {
local bin="$1"
shift
local command="guestcontrol"
local options="execute --username vagrant --password vagrant --image $bin"
options="$options --verbose --wait-exit --wait-stdout --wait-stderr --environment \"DISPLAY=:0\" -- $*"
vbox_run $command $options
}
# VBoxManage wrapper
function vbox_run {
local command="$1"
shift
VBoxManage $command $VM $*
}
# Initialize clipboard service
function vbox_clip {
local instances="`ps -o pid,command -e | grep "VBoxClient --clipboard" | cut -d ' ' -f 2 | xargs`"
# Kill old instances
for pid in $instances; do
kill -9 $pid &> /dev/null
done
VBoxClient --clipboard
exit
}
function vbox_natresolver {
# See host's resolver as a DNS proxy in NAT mode
# https://www.virtualbox.org/manual/ch09.html#nat_host_resolver_proxy
VBoxManage modifyvm $VM --natdnshostresolver1 on
}
# Build options
if [ ! -z "$VM" ]; then
if [ "$COMMAND" == "up" ]; then
vbox_natresolver
vbox_run startvm
elif [ "$COMMAND" == "down" ]; then
vbox_run controlvm savestate
elif [ "$COMMAND" == "halt" ]; then
vbox_run controlvm poweroff
elif [ "$COMMAND" == "upgrade" ]; then
vbox_exec /home/vagrant/apps/hydra/hydractl upgrade clean
elif [ "$COMMAND" == "zerofree" ]; then
vbox_exec /usr/bin/sudo /usr/bin/apt-get install zerofree
vbox_exec /usr/bin/sudo /usr/bin/apt-get clean
vbox_exec /usr/bin/sudo /sbin/telinit 1
vbox_exec /bin/mount -o remount,ro /
vbox_exec /usr/sbin/zerofree /dev/sda1
vbox_exec /sbin/halt
for vdi in `ls $STORE/$VM/*.vdi`; do
VBoxManage modifyhd --compact $vdi
done
elif [ "$COMMAND" == "exec" ]; then
vbox_exec $*
else
usage
fi
elif [ "$COMMAND" == "list" ]; then
VBoxManage list runningvms
exit
elif [ "$COMMAND" == "clip" ]; then
vbox_clip
elif [ "$COMMAND" == "natresolver" ]; then
vbox_natresolver
else
usage
fi
# Fix window titles
xdotool search --name "$VM .* Oracle VM VirtualBox" set_window --name $VM
|