X-Git-Url: https://git.cyclocoop.org/?a=blobdiff_plain;f=vm_remote;h=64e535362296ebd0fc9056a6498b19b5f03d8b10;hb=22f04b9fac14adc3d3fc98273ba126c3a51792c3;hp=7601a016c6d09a715a77e9d23ecd2e96bd41633b;hpb=b29eee4bccda9713ca66f55f8ac382e688d5078c;p=lhc%2Fateliers.git

diff --git a/vm_remote b/vm_remote
index 7601a01..64e5353 100755
--- a/vm_remote
+++ b/vm_remote
@@ -1,8 +1,9 @@
 #!/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
+TRACE=1
 
 rule_help () { # SYNTAX: [--hidden]
 	local hidden; [ ${1:+set} ] || hidden=set
@@ -23,28 +24,31 @@ rule_help () { # SYNTAX: [--hidden]
 		EOF
  }
 
-rule_git_config () { # DESCRIPTION: configure le .git local pour bien pousser
+rule_git_configure () { # DESCRIPTION: configure ./.git correctement
 	(
 	cd "$tool"
 	git remote rm host || true
-	git remote add host $vm_host:tool/vm
+	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 root@$vm_fqdn:tool/vm
+	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|hosted} $git_push_options
+	(
+	cd "$tool"
 	local remote=${1#remote=}; shift
-	GIT_SSH=./vm_ssh git push -v "$remote" "$@"
-	info "penser à faire : vm_hosted git_reset"
+	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/vm_ssh $*" $vm_fqdn
+	mosh --ssh="$tool/lib/ssh ${ssh-}" -- $vm_fqdn "$@"
  }
 rule__ssh_known_hosts_update () {
 	rule ssh \
@@ -53,14 +57,24 @@ rule__ssh_known_hosts_update () {
 	 -o HashKnownHosts=no \
 	 whoami
  }
-rule_key_disk_send () {
+
+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"/vm_ssh root@$vm_fqdn "$@" \
+	"$tool"/lib/ssh root@$vm_fqdn "$@" \
 	 -o CheckHostIP=no \
 	 -o HostKeyAlias=init.$vm_fqdn \
 	 tee /lib/cryptsetup/passfifo \>/dev/null
  }
-rule_key_disk_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/sec/luks
@@ -74,11 +88,127 @@ rule_key_disk_backup () {
 			cat "$tmp";
 			shred >/dev/null --remove "$tmp"; \
 		 ' |
-		gpg --encrypt --recipient $USER@ \
+		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_duplicity_configure () {
+	subkey_caps="e s" \
+	rule gpg_gen_key "backup+$vm_hostname@$vm_domainname" <<-EOF
+		Name-Real: $vm_fqdn
+		Name-Email: backup+$vm_hostname@$vm_domainname
+		Name-Comment: (duplicity)
+		Expire-Date: 0
+		EOF
+ }
+rule_duplicity_key_send () {
+	gpg --export-options export-reset-subkey-passwd \
+	 --export-secret-subkeys "backup+$vm_hostname@$vm_domainname" |
+	rule ssh gpg --import -
+ }
+rule_gpg () { # SYNTAX: $gpg_options
+	LANG=C gpg --no-permission-warning --homedir "$tool"/var/pub/openpgp "$@"
+ }
+rule_gpg_gen_key () { # SYNTAX: $uid  ENV: $gpg_options
+	local uid="$1"
+	install -d -m 700 \
+	 var/pub/openpgp
+	install -d -m 700 \
+	 var/sec \
+	 var/sec/openpgp
+	if test ! -e "$tool"/var/sec/openpgp/"$uid".pass.gpg
+	 then gpg --encrypt $gpg_options -o "$tool"/var/sec/openpgp/"$uid".pass.gpg <<-EOF
+			$(stdbuf --output 0 tr -d -c '[:alnum:][:punct:]' <"${random:-/dev/urandom}" | head -c 42)
+			EOF
+	 fi
+	if ! rule gpg --list-keys -- "$uid" >/dev/null
+	 then
+		rule gpg --batch --gen-key
+			# DOC: http://git.gnupg.org/cgi-bin/gitweb.cgi?p=gnupg.git;a=blob_plain;f=doc/DETAILS;hb=refs/heads/STABLE-BRANCH-1-4
+			Key-Type: RSA
+			Key-Length: 4096
+			Key-Usage: sign
+			Passphrase:$(gpg --decrypt ${gpg_options-} "$tool"/var/sec/openpgp/"$uid".pass.gpg)
+			Preferences: TWOFISH AES256 CAST5 BLOWFISH CAMELLIA256 3DES SHA512 SHA384 SHA256 SHA224 SHA1 BZIP2 ZLIB ZIP NONE MDC NO-KS-MODIFY
+			$(cat -)
+			%commit
+			EOF
+	 fi
+	caps=$(
+		rule gpg --with-colons --fixed-list-mode --with-fingerprint --list-secret-keys \
+		 -- "$uid" |
+		sed -e 's/^ssb\(:[^:]*\)\{11\}.*/\1/;t;d'
+	 )
+	for cap in ${subkey_caps:-}
+	 do
+		test ! "$caps" = "$(printf %s "$caps" | sed -e 's/'"$cap"'//g')" ||
+		printf '%s\n' 8 s e $cap q 4096 ${expire:-0} save |
+		rule gpg --keyid-format "long" --with-colons --fixed-list-mode --expert \
+		 --passphrase-fd 3 --command-fd 0 --edit-key "$uid" addkey 3<<-EOF
+			$(gpg --decrypt ${gpg_options-} "$tool"/var/sec/openpgp/"$uid".pass.gpg)
+			EOF
+	 done
+ }
+rule_mysql_backup () {
+	mkdir -p "$tool"/var/backup/mysql
+	rule ssh -l backup '
+		for db in $(sudo -u backup mysql -u backup --skip-column-names <<-EOF
+			SELECT schema_name
+				FROM information_schema.schemata
+				WHERE schema_name NOT IN ("information_schema", "performance_schema");
+			EOF
+		 ); do
+			$db
+		 done
+	 '
+ }
+
 rule=${1:-help}
 ${1+shift}
 case $rule in