vm_remote

   1 #!/bin/sh
   2 set -e -f ${DRY_RUN:+-n} -u
   3 tool=$(readlink -e "${0%/*}")
   4 . "$tool"/lib/rule.sh
   5 . "$tool"/etc/vm.sh
   6
   7 rule_help () { # SYNTAX: [--hidden]
   8         local hidden; [ ${1:+set} ] || hidden=set
   9         cat >&2 <<-EOF
  10                 DESCRIPTION:
  11                   ce script regroupe des règles pour administrer la VM ($vm_fqdn)
  12                   _depuis_ une machine distante ;
  13                   il sert à la fois d'outil (aisément bidouillable)
  14                   et de documentation (préçise).
  15                   Voir \`$tool/vm_host'   pour les règles côté machine hôte ($vm_host).
  16                   Voir \`$tool/vm_hosted' pour les règles côté VM hébergée ($vm_fqdn).
  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 rule_git_configure () { # DESCRIPTION: configure ./.git correctement
  27         (
  28         cd "$tool"
  29         git remote rm host || true
  30         git remote add host $vm_host:src/vm
  31         git config --replace remote.host.push HEAD:refs/remotes/master
  32         git remote rm hosted || true
  33         git remote add hosted $vm_fqdn:src/vm
  34         git config --replace remote.hosted.push HEAD:refs/remotes/master
  35         git submodule update --init
  36         )
  37  }
  38 rule_git_push () { # SYNTAX: {host|hosted} $git_push_options
  39         (
  40         cd "$tool"
  41         local remote=${1#remote=}; shift
  42         GIT_SSH=./lib/ssh git push -v "$remote" "$@"
  43         )
  44  }
  45
  46 rule_ssh () {
  47         "$tool"/lib/ssh $vm_fqdn "$@"
  48  }
  49 rule_mosh () {
  50         mosh --ssh="$tool/lib/ssh ${ssh-}" -- $vm_fqdn "$@"
  51  }
  52 rule__ssh_known_hosts_update () {
  53         rule ssh \
  54          -o StrictHostKeyChecking=no \
  55          -o CheckHostIP=no \
  56          -o HashKnownHosts=no \
  57          whoami
  58  }
  59
  60 rule__x509_site_key_decrypt () { # SYNTAX: $site
  61         local site="$1"; shift
  62         gpg --decrypt "$tool"/var/sec/x509/"$site"/key.pass.gpg |
  63         openssl rsa -passin 'stdin' \
  64          -in  var/sec/x509/"$site"/key.pem \
  65          -out '/dev/stdout'
  66  }
  67
  68 rule_luks_key_send () { # DESCRIPTION: envoie la clef de déchiffrement des partitions au démarrage de la VM.
  69         gpg --decrypt var/sec/luks/$vm_fqdn.key.gpg |
  70         "$tool"/lib/ssh root@$vm_fqdn "$@" \
  71          -o CheckHostIP=no \
  72          -o HostKeyAlias=init.$vm_fqdn \
  73          tee /lib/cryptsetup/passfifo \>/dev/null
  74  }
  75 rule_luks_key_backup () { # SYNTAX: ${gpg_options:---recipient $USER@} DESCRIPTION: sauvegarde localement les entêtes des partitions chiffrées.
  76         test "${*+set}" || set -- --recipient "$USER@"
  77         for part in root var home
  78          do
  79                 mkdir -p var/sec/luks
  80                 rule ssh -l root ' \
  81                         set -e -f -u;
  82                         exec 2>/dev/null;
  83                         tmp=$(mktemp -t "luks.'"$part"'.XXXXXXXX.tmp" --dry-run);
  84                         cryptsetup luksHeaderBackup >/dev/null \
  85                          /dev/'"$vm_lvm_vg"'/'"$vm_lvm_lv"'_'"$part"' \
  86                          --header-backup-file "$tmp"; \
  87                         cat "$tmp";
  88                         shred >/dev/null --remove "$tmp"; \
  89                  ' |
  90                 gpg "$@" --encrypt \
  91                  -o var/sec/luks/${vm_lvm_lv}_${part}.luks.gpg
  92          done
  93  }
  94
  95 rule_gitolite_git () {
  96         (
  97         cd "$tool"/etc/gitolite
  98         GIT_SSH=../../lib/ssh \
  99         ssh-agent sh -c ' \
 100                 SSH_ASKPASS='"$tool"'/lib/ssh-pass \
 101                 SSH_ID=git \
 102                 ssh-add '"$tool"'/var/sec/ssh/git </dev/null && \
 103                 git '"$*"
 104         )
 105  }
 106 rule_runit_configure () { # SYNTAX: $sv [...] -- $configure_options
 107         if test $# = 0
 108          then
 109                 set +x
 110                 rule ssh sudo sv status \
 111                  $(sudo find /etc/sv \
 112                  -mindepth 1 -maxdepth 1 -type d \
 113                  -printf '%p\n' | sort)
 114          else
 115                 local services=
 116                 while [ $# -gt 0 ]
 117                  do case $1 in
 118                          (--) shift; break;;
 119                          (*) services="$services $1"; shift;;
 120                          esac
 121                  done
 122                 for sv in $(find "$tool"/etc/sv \
 123                  -mindepth 1 -maxdepth 1 -type d \
 124                  -false $(printf -- '-or -name %s\n' $services) \
 125                  -printf '%f\n')
 126                  do
 127                         rule _runit_sv_configure "$sv" "$@"
 128                  done
 129          fi
 130  }
 131 rule__runit_sv_configure () { # SYNTAX: $sv $configure_options
 132         local sv="$1"; shift
 133         (
 134         test ! -r "$tool"/etc/sv/"$sv"/remote.sh ||
 135         .         "$tool"/etc/sv/"$sv"/remote.sh || return 1
 136         )
 137  }
 138
 139 rule=${1:-help}
 140 ${1+shift}
 141 case $rule in
 142  (help);;
 143  (*)
 144         assert 'test ! "$(hostname --fqdn)" = "$vm_fqdn"' vm_fqdn
 145         assert 'test ! "$(hostname --fqdn)" = "$vm_host"' vm_host
 146         ;;
 147  esac
 148 rule $rule "$@"