de458ef89f228f258a31d8fa87d4338cbaa954e1
[lhc/ateliers.git] / vm_host
1 #!/bin/sh
2 set -e -f ${DRY_RUN:+-n} -u
3 tool=${0%/*}
4 . "$tool"/lib/rule.sh
5 . "$tool"/etc/vm.sh
6 . "$tool"/lib/mk.sh
7
8 rule_help () { # SYNTAX: [--hidden]
9 local hidden; [ ${1:+set} ] || hidden=set
10 cat >&2 <<-EOF
11 DESCRIPTION:
12 ce script regroupe des règles pour administrer la VM ($vm_fqdn)
13 _depuis_ son hôte ($vm_host) ;
14 il sert à la fois d'outil (aisément bidouillable)
15 et de documentation (préçise).
16 Voir \`$tool/vm_hosted' pour les règles côté VM hébergée.
17 SYNTAX: $0 \$RULE \${RULE}_SYNTAX
18 RULES:
19 $(sed -ne "s/^rule_\(${hidden:+[^_]}[^ ]*\) () {\( *#.*\|\)/ \1\2/p" "$tool"/etc/vm.sh "$0")
20 ENVIRONMENT:
21 TRACE # affiche les commandes avant leur exécution
22 $(sed -ne 's/^readonly \([^ ][^ =]*\).*}\( *#.*\|\)$/\t$\1\2/p' "$tool"/etc/vm.sh "$0")
23 EOF
24 }
25
26 readonly vm_dev_disk=/dev/mapper/domU-$(printf %s "$vm_fqdn-disk" | sed -e 's/-/--/g')
27 readonly vm_dev_disk_boot="${vm_dev_disk}1"
28
29 rule_git_config () {
30 (
31 cd "$tool"
32 git config --replace branch.master.remote .
33 git config --replace branch.master.merge refs/remotes/master
34 )
35 }
36 rule_git_reset () {
37 (
38 cd "$tool"
39 #git checkout -f -B master remotes/master
40 # NOTE: pas de -B sous squeeze
41 git checkout HEAD'^' &&
42 git branch -f master remotes/master &&
43 git checkout master
44 git clean -f -d -x
45 )
46 }
47
48 rule_vm_configure () {
49 mk_reg mod=644 own=root:root /etc/xen/$vm_fqdn.cfg <<-EOF
50 # -*- mode: python; -*-
51 # DOC: http://wiki.xen.org/wiki/Xen_Linux_PV_on_HVM_drivers
52 import os, re
53 name = "$vm_fqdn"
54 arch = os.uname()[4]
55 memory = 2048
56 vcpus = 1
57 pae = 1
58 acpi = 1
59 apic = 1
60 vif = ['mac=$vm_mac,bridge=$vm_bridge']
61 disk = ['phy:/dev/domU/$vm_fqdn-disk,hda,w']
62 device_model = 'qemu-dm'
63 # HVM :
64 #kernel = "/usr/lib/xen-4.0/boot/hvmloader"
65 #builder = 'hvm'
66 #xen_platform_pci = 1 # NOTE: the guest VM can use optimized PV on HVM drivers
67 # PV :
68 #kernel = "pv-grub.gz" # NOTE: pas encore dans Debian car il ne fonctionne qu'avec grub-legacy
69 #extra = "(hd0,0)/grub/grub.cfg"
70 bootloader = '/usr/bin/pygrub'
71
72 # boot on floppy (a), hard disk (c) or CD-ROM (d)
73 #boot = 'd'
74
75 #vnc = 1
76 #sdl = 0
77 #vncconsole = 0
78 #vnclisten = "0.0.0.0"
79 #vncpasswd = ""
80 #usbdevice = 'tablet'
81
82 keymap = 'fr'
83 serial = 'pty'
84 on_poweroff = 'destroy'
85 on_reboot = 'restart'
86 on_crash = 'restart'
87 EOF
88 }
89 rule_vm_start () {
90 test ! -e /dev/domU/$vm_fqdn-disk1
91 sudo xm create $vm_fqdn.cfg
92 rule vm_attach
93 }
94 rule_vm_attach () {
95 assert '! pgrep -f "sudo xm console $vm_fqdn"'
96 info 'Ctrl-] pour se détacher de la console'
97 sudo xm console $vm_fqdn
98 }
99 rule_vm_stop () {
100 sudo xm shutdown $vm_fqdn
101 }
102 rule_vm_stop_force () {
103 sudo xm destroy $vm_fqdn
104 }
105
106 rule_disk_mount () { # DESCRIPTION: montage du disque de la VM depuis l'hôte
107 sudo kpartx -a -v /dev/domU/$vm_fqdn-disk
108 #sudo xm block-attach 0 phy:/dev/domU/$vm_fqdn-disk $vm_dev_disk w
109 }
110 rule_disk_umount () { # DESCRIPTION: démontage du disque de la VM depuis l'hôte
111 rule part_boot_umount
112 case $vm_use_lvm in
113 (yes)
114 rule part_lvm_umount
115 ;;
116 (no)
117 rule part_root_umount
118 rule part_var_umount
119 rule part_home_umount
120 ;;
121 (*) exit 1;;
122 esac
123 sudo kpartx -d -v /dev/domU/$vm_fqdn-disk
124 #sudo xm block-detach 0 $vm_dev_disk
125 # XXX: DANGEREUX ; si jamais il bloque parce que le disque était encore utilisé :
126 # utiliser xm block-detach 0 $vm_dev_disk --force ;
127 # ôter les éventuels mappages LVM concernés avec dmsetup table et dmsetup remove --force ;
128 # ôter les mappages concernés dans /etc/lvm/cache/.cache,
129 # et pour bien trouver tous les mappages :
130 # % sudo find /dev -type l -exec sh -c 'printf "%s -> " "$@"; readlink "$@"' - {} \; | grep $vm_dev_disk
131 # enfin, ôter l'éventuel verrou dans /var/lock/lvm/
132 }
133
134 case $vm_use_lvm in
135 (no)
136 readonly vm_dev_disk_swap="${vm_dev_disk}5"
137 readonly vm_dev_disk_root="${vm_dev_disk}6"
138 readonly vm_dev_disk_var="${vm_dev_disk}7"
139 readonly vm_dev_disk_home="${vm_dev_disk}8"
140 ;;
141 (yes)
142 readonly vm_lvm_pv="${vm_dev_disk}2"
143 readonly vm_dev_disk_swap=/dev/$vm_lvm_vg/${vm_lvm_lv}_swap
144 readonly vm_dev_disk_root=/dev/$vm_lvm_vg/${vm_lvm_lv}_root
145 readonly vm_dev_disk_var=/dev/$vm_lvm_vg/${vm_lvm_lv}_var
146 readonly vm_dev_disk_home=/dev/$vm_lvm_vg/${vm_lvm_lv}_home
147 ;;
148 (*) exit 1;;
149 esac
150
151 rule_disk_format () { # DESCRIPTION: partitionnage du disque de la VM
152 case $vm_use_lvm in
153 (no)
154 sudo sfdisk $vm_dev_disk <<-EOF
155 # partition table of $vm_dev_disk
156 unit: sectors
157
158 ${vm_dev_disk}1 : start= 63, size= 497952, Id=83, bootable
159 ${vm_dev_disk}2 : start= 498015, size=418927005, Id= 5
160 ${vm_dev_disk}3 : start= 0, size= 0, Id= 0
161 ${vm_dev_disk}4 : start= 0, size= 0, Id= 0
162 ${vm_dev_disk}5 : start= 498078, size= 1959867, Id=82
163 ${vm_dev_disk}6 : start= 2458008, size= 29302497, Id=83
164 ${vm_dev_disk}7 : start= 31760568, size= 9767457, Id=83
165 ${vm_dev_disk}8 : start= 41528088, size=377896932, Id=83
166 EOF
167 ;;
168 (yes)
169 sudo sfdisk $vm_dev_disk <<-EOF
170 # partition table of $vm_dev_disk
171 unit: sectors
172
173 ${vm_dev_disk}1 : start= 63, size= 497952, Id=83, bootable
174 ${vm_dev_disk}2 : start= 498015, size=418927005, Id=8E
175 EOF
176 ;;
177 (*) exit 1;;
178 esac
179 #sudo partprobe $vm_dev_disk
180 sudo kpartx -u -v /dev/domU/$vm_fqdn-disk
181 }
182
183 rule_part_lvm_format () {
184 rule part_lvm_umount
185 ! sudo vgs | grep -q "^ $vm_lvm_vg " ||
186 sudo vgremove $vm_lvm_vg
187 sudo pvcreate --dataalignment 512k $vm_lvm_pv
188 sudo vgcreate --dataalignment 512k $vm_lvm_vg $vm_lvm_pv
189 sudo lvcreate --contiguous y -n ${vm_lvm_lv}_swap -L 1G $vm_lvm_vg
190 sudo lvcreate --contiguous y -n ${vm_lvm_lv}_root -L 15G $vm_lvm_vg
191 sudo lvcreate --contiguous y -n ${vm_lvm_lv}_var -L 5G $vm_lvm_vg
192 sudo lvcreate --contiguous y -n ${vm_lvm_lv}_home -l 99%FREE $vm_lvm_vg
193 rule part_lvm_umount
194 }
195 rule_part_lvm_mount () {
196 case $vm_use_lvm in
197 (yes)
198 sudo vgchange -a y $vm_lvm_vg
199 ;;
200 (*) exit 1;;
201 esac
202 }
203 rule_part_lvm_umount () {
204 case $vm_use_lvm in
205 (yes)
206 rule part_root_umount
207 rule part_var_umount
208 rule part_home_umount
209 ! sudo vgs | grep -q "^ $vm_lvm_vg " ||
210 sudo vgchange -a n $vm_lvm_vg
211 ;;
212 (*) exit 1;;
213 esac
214 }
215
216 rule_part_randomize () { # SYNTAX: $part # NOTE: à anticiper
217 local part="$1"
218 eval "sudo dd if=/dev/urandom of=\$vm_dev_disk_$part"
219 }
220 rule_part_randomize_stat () { # SYNTAX: $part # DESCRIPTION: fait afficher la progression de rule_part_randomize
221 local part="$1"
222 eval "pkill -USR1 -f \"^dd if=/dev/urandom of=\$vm_dev_disk_$part\""
223 }
224 rule__part_encrypted_format () { # SYNTAX: $part # DESCRIPTION: formatage d'une partition distincte de /
225 # NOTE: la clef de chiffrement est dérivée de celle de /,
226 # / doit être déchiffrée pour que cela fonctionne.
227 local part="$1"
228 eval "local dev=\"\$vm_dev_disk_$part\""
229 test ! -e /dev/mapper/${vm_lvm_lv}_root_deciphered ||
230 sudo /bin/sh -c "/lib/cryptsetup/scripts/decrypt_derived ${vm_lvm_lv}_root_deciphered |
231 cryptsetup luksFormat --hash=sha512 --key-size=512 \
232 --cipher=aes-xts-essiv:sha256 --key-file=- --align-payload=8 $dev"
233 }
234 rule__part_encrypted_mount () { # SYNTAX: $part
235 local part="$1"
236 eval "local dev=\"\$vm_dev_disk_$part\""
237 test -e /dev/mapper/${vm_lvm_lv}_${part}_deciphered ||
238 sudo /bin/sh -c "/lib/cryptsetup/scripts/decrypt_derived ${vm_lvm_lv}_root_deciphered |
239 cryptsetup luksOpen --key-file=- $dev ${vm_lvm_lv}_${part}_deciphered"
240 }
241 rule__part_encrypted_umount () { # SYNTAX: $part
242 local part="$1"
243 eval "local dev=\"\$vm_dev_disk_$part\""
244 test ! -e /dev/mapper/${vm_lvm_lv}_${part}_deciphered ||
245 sudo cryptsetup luksClose ${vm_lvm_lv}_${part}_deciphered
246 }
247
248 rule_part_root_format () {
249 if ! mount | grep -q "^$vm_dev_disk_root "
250 then
251 sudo cryptsetup luksFormat --hash=sha512 --key-size=512 \
252 --cipher=aes-xts-essiv:sha256 --key-file=- --align-payload=8 $vm_dev_disk_root
253 sudo cryptsetup luksOpen --key-file=- $vm_dev_disk_root ${vm_lvm_lv}_root_deciphered
254 sudo mke2fs -t ext4 -c -c -m 5 -T ext4 -b $vm_e2fs_block_size \
255 -E resize=30G${vm_e2fs_extended_options} \
256 -L ${vm_lvm_lv}_root \
257 /dev/mapper/${vm_lvm_lv}_root_deciphered
258 ! mountpoint -q /mnt/$vm_fqdn
259 sudo mount -v /dev/mapper/${vm_lvm_lv}_root_deciphered /mnt/$vm_fqdn
260 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/boot
261 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/dev
262 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/home
263 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/proc
264 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/sys
265 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/var
266 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/root
267 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/root/tool
268 mk_dir mod=0770 own=root:root /mnt/$vm_fqdn/root/tool/ateliers
269 sudo umount -v /mnt/$vm_fqdn
270 sudo cryptsetup luksClose ${vm_lvm_lv}_root_deciphered
271 fi
272 }
273 rule_part_root_mount () {
274 test -e /dev/mapper/${vm_lvm_lv}_root_deciphered ||
275 sudo cryptsetup luksOpen $vm_dev_disk_root ${vm_lvm_lv}_root_deciphered
276 mountpoint -q /mnt/$vm_fqdn ||
277 sudo mount -v -t ext4 /dev/mapper/${vm_lvm_lv}_root_deciphered /mnt/$vm_fqdn
278 }
279 rule_part_root_umount () {
280 ! mountpoint -q /mnt/$vm_fqdn ||
281 sudo umount -v /mnt/$vm_fqdn
282 ! test -e /dev/mapper/${vm_lvm_lv}_root_deciphered ||
283 sudo cryptsetup luksClose ${vm_lvm_lv}_root_deciphered
284 }
285 rule_part_swap_format () {
286 rule _part_encrypted_format swap
287 rule _part_encrypted_mount swap
288 sudo mkswap -f -L ${vm_lvm_lv}_swap \
289 /dev/mapper/${vm_lvm_lv}_swap_deciphered
290 rule _part_encrypted_umount swap
291 }
292 rule_part_boot_format () {
293 mount | grep -q "^$vm_dev_disk_boot " ||
294 sudo mke2fs -t ext2 -c -c -m 5 -T small \
295 -E resize=1G${vm_e2fs_extended_options} \
296 -L ${vm_lvm_lv}_boot $vm_dev_disk_boot
297 }
298 rule_part_boot_mount () {
299 mountpoint -q /mnt/$vm_fqdn
300 test -d /mnt/$vm_fqdn/boot
301 mountpoint -q /mnt/$vm_fqdn/boot ||
302 sudo mount -v -t ext2 $vm_dev_disk_boot /mnt/$vm_fqdn/boot
303 }
304 rule_part_boot_umount () {
305 ! mountpoint -q /mnt/$vm_fqdn/boot ||
306 sudo umount -v /mnt/$vm_fqdn/boot
307 }
308 rule_part_var_format () {
309 rule _part_encrypted_format var
310 rule _part_encrypted_mount var
311 sudo mke2fs -t ext4 -c -c -m 5 -T ext4 -b $vm_e2fs_block_size \
312 -E resize=10G${vm_e2fs_extended_options} \
313 -L ${vm_lvm_lv}_var \
314 /dev/mapper/${vm_lvm_lv}_var_deciphered
315 rule _part_encrypted_umount var
316 }
317 rule_part_var_mount () {
318 rule _part_encrypted_mount var
319 mountpoint -q /mnt/$vm_fqdn/var ||
320 sudo mount -v -t ext4 /dev/mapper/${vm_lvm_lv}_var_deciphered /mnt/$vm_fqdn/var
321 }
322 rule_part_var_umount () {
323 ! mountpoint -q /mnt/$vm_fqdn/var ||
324 sudo umount -v /mnt/$vm_fqdn/var
325 rule _part_encrypted_umount var
326 }
327 rule_part_home_format () {
328 rule _part_encrypted_format home
329 rule _part_encrypted_mount home
330 sudo mke2fs -t ext4 -c -c -m 0 -T ext4 -b $vm_e2fs_block_size \
331 -E resize=400G${vm_e2fs_extended_options} \
332 -L ${vm_lvm_lv}_home \
333 /dev/mapper/${vm_lvm_lv}_home_deciphered
334 # NOTE: -O quota pas supporté par e2fsprogs/squeeze
335 rule _part_encrypted_umount home
336 }
337 rule_part_home_mount () {
338 rule _part_encrypted_mount home
339 mountpoint -q /mnt/$vm_fqdn/home ||
340 sudo mount -v -t ext4 /dev/mapper/${vm_lvm_lv}_home_deciphered /mnt/$vm_fqdn/home
341 }
342 rule_part_home_umount () {
343 ! mountpoint -q /mnt/$vm_fqdn/home ||
344 sudo umount -v /mnt/$vm_fqdn/home
345 rule _part_encrypted_umount home
346 }
347
348 rule_debian_install () {
349 rule disk_mount
350 rule part_lvm_mount
351 rule part_root_mount
352 rule part_boot_mount
353 rule part_var_mount
354 sudo DEBOOTSTRAP_DIR=/usr/share/debootstrap/ LANG=C LC_CTYPE=C debootstrap \
355 --arch=$vm_arch --verbose --keyring=/usr/share/keyrings/debian-archive-keyring.gpg \
356 --exclude=vim-tiny \
357 --include=$(printf '%s,' \
358 acl \
359 bsdmainutils \
360 busybox \
361 ca-certificates \
362 console-setup \
363 cryptsetup \
364 dash \
365 dnsutils \
366 dropbear \
367 etckeeper \
368 git-core \
369 gnupg \
370 hashalot \
371 htop \
372 ifupdown \
373 initramfs-tools \
374 kbd \
375 less \
376 locales \
377 lvm2 \
378 mosh \
379 molly-guard \
380 ncurses-term \
381 openssh-client \
382 openssh-server \
383 openssl \
384 pciutils \
385 procps \
386 quota \
387 quotatool \
388 rsync \
389 screen \
390 sudo \
391 sysprofile \
392 vim-nox \
393 wget \
394 zsh \
395 ) \
396 $vm_lsb_name /mnt/$vm_fqdn/ \
397 http://ftp.fr.debian.org/debian/
398 rule part_var_umount
399 rule part_boot_umount
400 rule part_root_umount
401 }
402
403 rule_chroot () {
404 rule disk_mount
405 rule part_lvm_mount
406 rule part_root_mount
407 rule part_boot_mount
408 rule part_var_mount
409 #rule_part_home_mount
410 mountpoint -q /mnt/$vm_fqdn/proc ||
411 sudo mount -t proc proc /mnt/$vm_fqdn/proc
412 mountpoint -q /mnt/$vm_fqdn/sys ||
413 sudo mount -t sysfs sys /mnt/$vm_fqdn/sys
414 mountpoint -q /mnt/$vm_fqdn/dev ||
415 sudo mount --bind /dev /mnt/$vm_fqdn/dev
416 if test -d /mnt/$vm_fqdn/root/tool/vm/.git
417 then
418 mountpoint -q /mnt/$vm_fqdn/root/tool/vm ||
419 sudo mount --bind "$tool" /mnt/$vm_fqdn/root/tool/vm
420 else
421 rsync -a "$tool"/ /mnt/$vm_fqdn/root/tool/vm
422 fi
423 sudo chroot /mnt/$vm_fqdn /bin/bash || true
424 rule _chroot_clean
425 }
426 rule__chroot_clean () {
427 ! sudo mountpoint -q /mnt/$vm_fqdn/root/tool/vm ||
428 sudo umount -v /mnt/$vm_fqdn/root/tool/$vm
429 ! mountpoint -q /mnt/$vm_fqdn/dev ||
430 sudo umount -v /mnt/$vm_fqdn/dev
431 ! mountpoint -q /mnt/$vm_fqdn/sys ||
432 sudo umount -v /mnt/$vm_fqdn/sys
433 ! mountpoint -q /mnt/$vm_fqdn/proc ||
434 sudo umount -v /mnt/$vm_fqdn/proc
435 rule part_home_umount
436 rule part_var_umount
437 rule part_boot_umount
438 rule part_root_umount
439 rule disk_umount
440 }
441
442 rule=${1:-help}
443 ${1+shift}
444 case $rule in
445 (help);;
446 (*)
447 assert 'test "$(hostname --fqdn)" = "$vm_host"' vm_host
448 ;;
449 esac
450 rule $rule "$@"