+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
+ '
+ }
+