#!/bin/sh
set -e -f ${DRY_RUN:+-n} -u
-tool=${0%/*}
-. "$tool"/lib/functions.sh
+tool=$(readlink -e "${0%/*}")
+. "$tool"/lib/rule.sh
. "$tool"/etc/vm.sh
-rule_help () {
+rule_help () { # SYNTAX: [--hidden]
+ local hidden; [ ${1:+set} ] || hidden=set
cat >&2 <<-EOF
- DESCRIPTION: ce script regroupe des fonctions utilitaires
- pour gérer la VM _depuis_ une machine distante ;
- il sert à la fois d'outil et de documentation.
- Voir \`$tool/vm_host' pour les utilitaires côté machine hôte.
- Voir \`$tool/vm_hosted' pour les utilitaires côté VM hébergée.
+ DESCRIPTION:
+ ce script regroupe des règles pour administrer la VM ($vm_fqdn)
+ _depuis_ une machine distante ;
+ il sert à la fois d'outil (aisément bidouillable)
+ et de documentation (préçise).
+ Voir \`$tool/vm_host' pour les règles côté machine hôte ($vm_host).
+ Voir \`$tool/vm_hosted' pour les règles côté VM hébergée ($vm_fqdn).
SYNTAX: $0 \$RULE \${RULE}_SYNTAX
RULES:
- $(sed -ne 's/^rule_\([^_][^ ]*\) () {\( *#.*\|\)/\t\1\2/p' "$tool"/vm.sh "$0")
+ $(sed -ne "s/^rule_\(${hidden:+[^_]}[^ ]*\) () {\( *#.*\|\)/ \1\2/p" "$tool"/etc/vm.sh "$0")
ENVIRONMENT:
TRACE # affiche les commandes avant leur exécution
- $(sed -ne 's/^readonly \([^ ][^ =]*\).*}\( *#.*\|\)$/\t$\1\2/p' "$tool"/vm.sh "$0")
+ $(sed -ne 's/^readonly \([^ ][^ =]*\).*}\( *#.*\|\)$/\t$\1\2/p' "$tool"/etc/vm.sh "$0")
EOF
}
-rule_git_config () {
+rule_git_configure () { # DESCRIPTION: configure ./.git correctement
(
cd "$tool"
- git config remote.host.url >/dev/null ||
- git remote add host $vm_host:tool/vm
- git config --replace remote.host HEAD:refs/heads/origin
- git config remote.$vm.url >/dev/null ||
- git remote add vm root@$vm_fqdn:tool/vm
- git config --replace remote.$vm HEAD:refs/heads/origin
+ git remote rm host || true
+ git remote add host $vm_host:src/vm
+ git config --replace remote.host.push HEAD:refs/remotes/master
+ git remote rm hosted || true
+ git remote add hosted $vm_fqdn:src/vm
+ git config --replace remote.hosted.push HEAD:refs/remotes/master
+ git submodule update --init
)
}
-rule_git_push () { # SYNTAX: {host|vm} $git_commit_options
+rule_git_push () { # SYNTAX: {host|hosted} $git_push_options
+ (
+ cd "$tool"
local remote=${1#remote=}; shift
- git add . &&
- git commit -a -C HEAD "$@" &&
- GIT_SSH=./vm_ssh git push -v -f "$remote"
+ GIT_SSH=./lib/ssh git push -v "$remote" "$@"
+ )
}
rule_ssh () {
- "$tool"/vm_ssh $vm_fqdn "$@"
+ "$tool"/lib/ssh $vm_fqdn "$@"
+ }
+rule_mosh () {
+ mosh --ssh="$tool/lib/ssh ${ssh-}" -- $vm_fqdn "$@"
}
rule__ssh_known_hosts_update () {
- "$tool"/vm_ssh $vm_fqdn "$@" \
+ rule ssh \
-o StrictHostKeyChecking=no \
-o CheckHostIP=no \
-o HashKnownHosts=no \
whoami
}
-rule_disk_key_send () {
- gpg --decrypt var/lib/luks/$vm_fqdn.key.gpg |
- "$tool"/vm_ssh root@$vm_fqdn "$@" \
+
+rule__x509_site_key_decrypt () { # SYNTAX: $site
+ local site="$1"; shift
+ gpg --decrypt "$tool"/var/sec/x509/"$site"/key.pass.gpg |
+ openssl rsa -passin 'stdin' \
+ -in var/sec/x509/"$site"/key.pem \
+ -out '/dev/stdout'
+ }
+
+rule_luks_key_send () { # DESCRIPTION: envoie la clef de déchiffrement des partitions au démarrage de la VM.
+ gpg --decrypt var/sec/luks/$vm_fqdn.key.gpg |
+ "$tool"/lib/ssh root@$vm_fqdn "$@" \
-o CheckHostIP=no \
-o HostKeyAlias=init.$vm_fqdn \
tee /lib/cryptsetup/passfifo \>/dev/null
}
-rule_disk_key_backup () {
+rule_luks_key_backup () { # SYNTAX: ${gpg_options:---recipient $USER@} DESCRIPTION: sauvegarde localement les entêtes des partitions chiffrées.
+ test "${*+set}" || set -- --recipient "$USER@"
for part in root var home
do
- mkdir -p var/lib/luks
- rule_ssh -l root ' \
- tmp=$(mktemp)
- cryptsetup luksHeaderBackup \
- /dev/$vm_lvm_vg/${vm_lvm_lv}_${part} \
- --header-backup-file "$tmp" \
- cat "$tmp"
- shred --remove "$tmp"
+ mkdir -p var/sec/luks
+ rule ssh -l root ' \
+ set -e -f -u;
+ exec 2>/dev/null;
+ tmp=$(mktemp -t "luks.'"$part"'.XXXXXXXX.tmp" --dry-run);
+ cryptsetup luksHeaderBackup >/dev/null \
+ /dev/'"$vm_lvm_vg"'/'"$vm_lvm_lv"'_'"$part"' \
+ --header-backup-file "$tmp"; \
+ cat "$tmp";
+ shred >/dev/null --remove "$tmp"; \
' |
- gpg --encrypt --recipient $USER@ \
- -o var/lib/luks/${vm_lvm_lv}_${part}.luks.gpg
+ gpg "$@" --encrypt \
+ -o var/sec/luks/${vm_lvm_lv}_${part}.luks.gpg
done
}
+rule_gitolite_git () {
+ (
+ cd "$tool"/etc/gitolite
+ GIT_SSH=../../lib/ssh \
+ ssh-agent sh -c ' \
+ SSH_ASKPASS='"$tool"'/lib/ssh-pass \
+ SSH_ID=git \
+ ssh-add '"$tool"'/var/sec/ssh/git </dev/null && \
+ git '"$*"
+ )
+ }
+rule_runit_configure () { # SYNTAX: $sv [...] -- $configure_options
+ if test $# = 0
+ then
+ set +x
+ rule ssh sudo sv status \
+ $(sudo find /etc/sv \
+ -mindepth 1 -maxdepth 1 -type d \
+ -printf '%p\n' | sort)
+ else
+ local services=
+ while [ $# -gt 0 ]
+ do case $1 in
+ (--) shift; break;;
+ (*) services="$services $1"; shift;;
+ esac
+ done
+ for sv in $(find "$tool"/etc/sv \
+ -mindepth 1 -maxdepth 1 -type d \
+ -false $(printf -- '-or -name %s\n' $services) \
+ -printf '%f\n')
+ do
+ rule _runit_sv_configure "$sv" "$@"
+ done
+ fi
+ }
+rule__runit_sv_configure () { # SYNTAX: $sv $configure_options
+ local sv="$1"; shift
+ (
+ test ! -r "$tool"/etc/sv/"$sv"/remote.sh ||
+ . "$tool"/etc/sv/"$sv"/remote.sh || return 1
+ )
+ }
+
rule=${1:-help}
${1+shift}
case $rule in
(help);;
(*)
- test ! "$(hostname --fqdn)" = "$vm_fqdn"
- test ! "$(hostname --fqdn)" = "$vm_host"
- set "${TRACE:+-x}"
+ assert 'test ! "$(hostname --fqdn)" = "$vm_fqdn"' vm_fqdn
+ assert 'test ! "$(hostname --fqdn)" = "$vm_host"' vm_host
;;
esac
-rule_$rule "$@"
+rule $rule "$@"