be safer, keep more leafs around
[distro-setup] / switch-mail-host
index 12bf126e1f2512179915933ebacf0ebeb6ec0513..651c96ecc3a92d00e37cd50fc189d8a735e75db6 100644 (file)
@@ -4,7 +4,7 @@ source /usr/local/lib/err
 
 usage() {
   cat <<EOF
-Usage: ${0##*/} [OPTIONS] push|pull HOST
+Usage: switch-mail-host|switch-host2 [OPTIONS] push|pull HOST
 
 Turn off mail receiving on OLD_HOST, run btrbk to move mail to NEW_HOST,
 turn on mail receiving on NEW_HOST.  Assumes we want to move all
@@ -12,6 +12,8 @@ filesystems unless passing -o.
 
 -i         Disallow incremental backup.
 -o         Only btrbk /o, instead of all filesystems.
+--force    Run even though our local state does not say that MAIL_HOST is
+           us when pushing or HOST when pulling.
 -h|--help  Print help and exit.
 
 I used to adjust home network dns so NEW_HOST resolves locally if it is
@@ -23,6 +25,8 @@ EOF
   exit $1
 }
 
+script_name="${BASH_SOURCE[0]}"
+script_name="${script_name##*/}"
 
 restore_new_btrbk=false
 restore_old_btrbk=false
@@ -37,7 +41,7 @@ err-cleanup() {
   fi
 }
 
-pre="${0##*/}:"
+pre="${SSH_CLIENT:+$HOSTNAME} $script_name:"
 m() { printf "$pre %s\n"  "$*"; "$@"; }
 e() { printf "$pre %s\n"  "$*"; }
 err() { echo "$pre ERROR: $*" >&2; }
@@ -50,6 +54,8 @@ fi
 
 ##### begin command line parsing ########
 
+mail_only=false
+host2_only=false
 force=false
 mp_args="-m /o,/q,/a"
 temp=$(getopt -l force,help ioh "$@") || usage 1
@@ -58,7 +64,8 @@ while true; do
   case $1 in
     --force) force=true ;;
     -i) incremental_arg="-i" ;;
-    -o) mp_args="-m /o" ;;
+    -o)
+      mail_only=true ;;
     -h|--help) usage ;;
     --) shift; break ;;
     *) echo "$0: Internal error! unexpected args: $*" ; exit 1 ;;
@@ -74,28 +81,39 @@ if [[ ! $HOSTNAME ]]; then
   exit 1
 fi
 
-case $1 in
+source /a/bin/bash_unpublished/source-state
+
+direction=$1
+host=$2
+case $direction in
   push)
     old_host=$HOSTNAME
     old_hostname=$HOSTNAME
-    new_host=$2
+    new_host=$host
     bbk_args="-t $new_host"
     new_shell="ssh -F $HOME/.ssh/confighome root@$new_host"
-    $new_shell -v hostname
-    new_hostname=$($new_shell hostname)
+    if ! new_hostname=$($new_shell hostname); then
+      echo "$pre: error: failed ssh. retrying failed $new_shell with -v for more info:"
+      $new_shell -v hostname
+    fi
     ;;
   pull)
-    old_host=$2
+    old_host=$host
     new_host=$HOSTNAME
     new_hostname=$HOSTNAME
     bbk_args="-s $old_host"
     old_shell="ssh -F $HOME/.ssh/confighome root@$old_host"
-    # tests ssh connection
-    if ! old_hostname=$($old_shell hostname); then
-      echo "retrying failed $old_shell with -v"
+    old_shelliank="ssh -F $HOME/.ssh/confighome iank@$old_host"
+    # tests ssh connection. crafted this to not need to do escape chars
+    f=/a/bin/bash_unpublished/source-state
+    if ! old_info=($($old_shell "hostname; sed -n s,.*MAIL_HOST=,,p $f; sed -n s,.*HOST2=,,p $f")); then
+      echo "$pre: error: failed ssh. retrying failed $old_shell with -v for more info:"
       $old_shell -v hostname
       exit 1
     fi
+    old_hostname=${old_info[0]}
+    MAIL_HOST=${old_info[1]}
+    HOST2=${old_info[2]}
     ;;
   *)
     err invalid first argument
@@ -103,9 +121,33 @@ case $1 in
     ;;
 esac
 
-source /a/bin/bash_unpublished/source-state
+case $script_name in
+  switch-mail-host)
+    if [[ $MAIL_HOST != "$HOST2" ]]; then
+      mail_only=true
+    fi
+    ;;
+  switch-host2)
+    host2_only=true
+    ;;
+  *)
+    err unexpected script name
+    ;;
+esac
+
+if $mail_only; then
+  mp_args="-m /o"
+elif $host2_only; then
+  mp_args="-m /a,/ar,/q,/qr"
+fi
 
-if [[ $old_hostname != "$MAIL_HOST" ]] && ! $force; then
+
+if $host2_only; then
+  if [[ $old_hostname != "$HOST2" ]]; then
+    err "\$old_hostname($old_hostname) != \$HOST2($HOST2). Rerun with --force if you really want this."
+    exit 1
+  fi
+elif [[ $old_hostname != "$MAIL_HOST" ]] && ! $force; then
   err "\$old_hostname($old_hostname) != \$MAIL_HOST($MAIL_HOST). Rerun with --force if you really want this."
   exit 1
 fi
@@ -149,28 +191,33 @@ while $active; do
 done
 
 # ensure these are unused before doing anything
-
 e "On $new_host: umounting /m and /o, checking emacs"
-$new_shell bash -s <<'EOF'
+{
+  cat <<'EOF'
 set -eE
-if pgrep -f 'emacs --daemon' &>/dev/null; then
-  bufs="$(emacsclient --eval "$(cat /a/bin/ds/unsaved-buffers.el)"| sed '/^"nil"$/d;s/^"(/E: /;s/)"$//')"
+if pgrep -G iank -u iank -f 'emacs --daemon' &>/dev/null; then
+  bufs="$(sudo -u iank env XDG_RUNTIME_DIR=/run/user/1000 emacsclient --eval "$(cat /a/bin/ds/unsaved-buffers.el)"| sed '/^"nil"$/d;s/^"(/E: /;s/)"$//')"
   if [[ $bufs ]]; then
     echo "error: on $HOSTNAME, unsaved emacs files: $bufs" >&2
     exit 1
   fi
 fi
+EOF
+  if ! $host2_only; then
+    cat <<EOF
 for dir in m o; do
-  if mountpoint -q /$dir; then
-    echo On $new_host: umount /$dir
-    umount /$dir
+  if mountpoint -q /\$dir; then
+    echo On $new_host: umount /\$dir
+    umount /\$dir
   fi
 done
 EOF
+  fi
+} | $new_shell bash -s
 
 $old_shell bash -s <<'EOF'
-if pgrep -f 'emacs --daemon' &>/dev/null; then
-  bufs="$(emacsclient --eval "$(cat /a/bin/ds/unsaved-buffers.el)"| sed '/^"nil"$/d;s/^"(/E: /;s/)"$//')"
+if pgrep -G iank -u iank -f 'emacs --daemon' &>/dev/null; then
+  bufs="$(sudo -u iank env XDG_RUNTIME_DIR=/run/user/1000 emacsclient --eval "$(cat /a/bin/ds/unsaved-buffers.el)"| sed '/^"nil"$/d;s/^"(/E: /;s/)"$//')"
   if [[ $bufs ]]; then
     echo "error: on $HOSTNAME, unsaved emacs files: $bufs" >&2
     exit 1
@@ -200,9 +247,22 @@ if ! m btrbk-run -v $bbk_args $incremental_arg $mp_args; then
   exit $ret
 fi
 
+if ! $mail_only; then
+  m $old_shell sed -ri "s/HOST2=.*/HOST2=$new_hostname/" /a/bin/bash_unpublished/source-state
+  m $new_shell sed -ri "s/HOST2=.*/HOST2=$new_hostname/" /a/bin/bash_unpublished/source-state
+fi
+
+if $host2_only; then
+  if [[ $old_hostname != "$MAIL_HOST" && $old_hostname != kd ]]; then
+    m $old_shell systemctl --now disable btrbk.timer
+  fi
+  m $new_shell systemctl --now enable btrbk.timer
+  exit 0
+fi
+
 if ! m $old_shell /a/exe/primary-setup $new_hostname; then
   ret=$?
-  err "failed \$old_shell primary-setup \$new_hostname. fix and rerun switch-mail-host"
+  err "failed \$old_shell primary-setup \$new_hostname. fix and rerun $script_name"
   exit $ret
 fi
 
@@ -211,7 +271,7 @@ fi
 m $new_shell killall -q emacs ||:
 
 e Running main btrbk
-m btrbk-run -v $bbk_args $incremental_arg -m /o || ret=$?
+m btrbk-run -v --fast $bbk_args $incremental_arg -m /o || ret=$?
 if (( ret )); then
   bang="$(printf "$(tput setaf 5)█$(tput sgr0)%.0s" 1 2 3 4 5 6 7)"
   e $bang failed btrbk of /o. restoring old host as primary
@@ -219,6 +279,10 @@ if (( ret )); then
   exit $ret
 fi
 
+# new system is usable at this point
+printf "$(tput setaf 5 2>/dev/null ||:)█$(tput sgr0 2>/dev/null||:)%.0s" $(eval echo "{1..${COLUMNS:-60}}")
+echo
+
 # once I accidentally accepted incoming mail on old host. I used this script to copy over that mail:
 #
 # die=false; for d in o.leaf.2021-05-29T10:02:08-0400/m/{4e,md,4e2}/{,l/}!(*myarchive)/new; do if $die; then break; fi; find $d -type f -mtime -5 | while read -r f; do dir="${f%new/*}"; dir="btrbk/o.20210530T000011-0400/${dir#*/}"; fname="${f##*/}"; [[ -e $dir/new/$fname || -e $dir/cur/$fname ]] && continue; if ! e cp -a $f /${dir#*/*/}new; then echo failed cp; die=true; break; fi ; done; done