You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1576 lines
52 KiB

  1. #!/bin/bash
  2. . /etc/shlib
  3. include common
  4. include parse
  5. include cmdline
  6. include config
  7. [[ "${BASH_SOURCE[0]}" != "${0}" ]] && SOURCED=true
  8. version=0.1
  9. desc='Manage 0k related installs'
  10. help=""
  11. ##
  12. ## Functions
  13. ##
  14. is-port-open() {
  15. local host="$1" port="$2" timeout=5
  16. start="$SECONDS"
  17. debug "Testing if $host's port $2 is open ..."
  18. while true; do
  19. timeout 1 bash -c "</dev/tcp/${host}/${port}" >/dev/null 2>&1 && break
  20. sleep 0.2
  21. if [ "$((SECONDS - start))" -gt "$timeout" ]; then
  22. return 1
  23. fi
  24. done
  25. debug " .. $host's port $2 is open."
  26. return 0
  27. }
  28. resolve() {
  29. local ent hostname="$1"
  30. debug "Resolving $1 ..."
  31. if ent=$(getent ahosts "$hostname"); then
  32. ent=$(echo "$ent" | egrep ^"[0-9]+.[0-9]+.[0-9]+.[0-9]+\s+" | \
  33. head -n 1 | awk '{ print $1 }')
  34. debug " .. resolved $1 to $ent."
  35. echo "$ent"
  36. else
  37. debug " .. couldn't resolve $1."
  38. return 1
  39. fi
  40. }
  41. set_errlvl() { return "${1:-1}"; }
  42. export master_pid=$$
  43. ssh:open() {
  44. local hostname ssh_cmd ssh_options
  45. ssh_cmd=(ssh)
  46. ssh_options=()
  47. while [ "$#" != 0 ]; do
  48. case "$1" in
  49. "--stdin-password")
  50. ssh_cmd=(sshpass "${ssh_cmd[@]}")
  51. ;;
  52. -o)
  53. ssh_options+=("$1" "$2")
  54. shift
  55. ;;
  56. *)
  57. [ -z "$hostname" ] && hostname="$1" || {
  58. err "Surnumerous positional argument '$1'. Expecting only hostname."
  59. return 1
  60. }
  61. ;;
  62. esac
  63. shift
  64. done
  65. full_cmd=(
  66. "${ssh_cmd[@]}"
  67. -o ControlPath=/tmp/ssh-control-master-${master_pid}-$hostname \
  68. -o ControlMaster=auto -o ControlPersist=900 \
  69. -o ConnectTimeout=5 -o StrictHostKeyChecking=no \
  70. "${ssh_options[@]}" \
  71. "$hostname" "$@" -- true)
  72. "${full_cmd[@]}" >/dev/null 2>&1 || {
  73. err "Failed: ${full_cmd[*]}"
  74. return 1
  75. }
  76. trap_add EXIT,INT 'ssh:quit "$hostname"'
  77. }
  78. ssh:rsync() {
  79. local src="$1" dst="$2"
  80. hostname=${src%%:*}
  81. hostname=${hostname#*@}
  82. local rsync_ssh_options=(
  83. -o ControlPath="/tmp/ssh-control-master-${master_pid}-$hostname"
  84. -o ControlMaster=auto
  85. -o ControlPersist=900
  86. -o ConnectTimeout=10
  87. -o StrictHostKeyChecking=no
  88. )
  89. if ! ssh:run "root@$hostname" -- type -p rsync </dev/null >/dev/null; then
  90. info "No 'rsync' available on '$hostname'. Requesting installation..."
  91. ssh:run "root@$hostname" -- apt-get install rsync -y || {
  92. err "Installation of 'rsync' failed on '$hostname'"
  93. return 1
  94. }
  95. fi
  96. local cmd=(
  97. rsync -e "ssh ${rsync_ssh_options[*]}"
  98. -azvArH --delete --delete-excluded
  99. --partial --partial-dir .rsync-partial
  100. "$src" "$dst"
  101. )
  102. "${cmd[@]}"
  103. }
  104. ssh:open-try() {
  105. local opts hostnames
  106. opts=()
  107. hostnames=()
  108. while [ "$#" != 0 ]; do
  109. case "$1" in
  110. -o)
  111. opts+=("$1" "$2")
  112. shift
  113. ;;
  114. *)
  115. hostnames+=("$1")
  116. ;;
  117. esac
  118. shift
  119. done
  120. password=''
  121. for host in "${hostnames[@]}"; do
  122. debug "Trying $host with publickey."
  123. ssh:open -o PreferredAuthentications=publickey \
  124. "${opts[@]}" \
  125. "$host" >/dev/null 2>&1 && {
  126. echo "$host"$'\n'"$password"$'\n'
  127. return 0
  128. }
  129. debug " .. failed connecting to $host with publickey."
  130. done
  131. local times=0 password
  132. while [ "$((++times))" -le 3 ]; do
  133. read -sp "$HOST's password: " password
  134. errlvl="$?"
  135. echo >&2
  136. if [ "$errlvl" -gt 0 ]; then
  137. exit 1
  138. fi
  139. for host in "${hostnames[@]}"; do
  140. debug "Trying $host with password ($times/3)"
  141. echo "$password" | ssh:open -o PreferredAuthentications=password \
  142. --stdin-password \
  143. "${opts[@]}" \
  144. "$host" >/dev/null 2>&1 && {
  145. echo "$host"$'\n'"$password"$'\n'
  146. return 0
  147. }
  148. debug " .. failed connecting to $host with password."
  149. done
  150. err "login failed. Try again... ($((times+1))/3)"
  151. done
  152. return 1
  153. }
  154. ssh:run() {
  155. local hostname="$1" ssh_options cmd
  156. shift
  157. ssh_options=()
  158. cmd=()
  159. while [ "$#" != 0 ]; do
  160. case "$1" in
  161. "--")
  162. shift
  163. cmd+=("$@")
  164. break
  165. ;;
  166. *)
  167. ssh_options+=("$1")
  168. ;;
  169. esac
  170. shift
  171. done
  172. ## XXXvlab: keeping in case we need some debug
  173. # debug "$DARKCYAN$hostname$NORMAL $WHITE\$$NORMAL" "$@"
  174. # debug "Running cmd: ${cmd[*]}"
  175. # for arg in "${cmd[@]}"; do
  176. # debug "$arg"
  177. # done
  178. {
  179. {
  180. ssh -o ControlPath=/tmp/ssh-control-master-${master_pid}-$hostname \
  181. -o ControlMaster=auto -o ControlPersist=900 \
  182. -o "StrictHostKeyChecking=no" \
  183. "${ssh_options[@]}" "$hostname" -- "${cmd[@]}"
  184. } 3>&1 1>&2 2>&3 ## | sed -r "s/^/$DARKCYAN$hostname$NORMAL $DARKRED\!$NORMAL /g"
  185. set_errlvl "${PIPESTATUS[0]}"
  186. } 3>&1 1>&2 2>&3
  187. }
  188. ssh:quit() {
  189. local hostname="$1"
  190. shift
  191. ssh -o ControlPath=/tmp/ssh-control-master-${master_pid} \
  192. -o ControlMaster=auto -o ControlPersist=900 -O exit \
  193. "$hostname" 2>/dev/null
  194. }
  195. is_ovh_domain_name() {
  196. local domain="$1"
  197. [[ "$domain" == *.ovh.net ]] && return 0
  198. [[ "$domain" == "ns"*".ip-"*".eu" ]] && return 0
  199. return 1
  200. }
  201. is_ovh_hostname() {
  202. local domain="$1"
  203. [[ "$domain" =~ ^vps-[0-9a-f]*$ ]] && return 0
  204. [[ "$domain" =~ ^vps[0-9]*$ ]] && return 0
  205. return 1
  206. }
  207. vps_connection_check() {
  208. local vps="$1"
  209. ip=$(resolve "$vps") ||
  210. { echo "${DARKRED}no-resolve${NORMAL}"; return 1; }
  211. is-port-open "$ip" "22" </dev/null ||
  212. { echo "${DARKRED}no-port-22-open${NORMAL}"; return 1; }
  213. ssh:open -o ConnectTimeout=10 -o PreferredAuthentications=publickey \
  214. "root@$vps" >/dev/null 2>&1 ||
  215. { echo "${DARKRED}no-ssh-root-access${NORMAL}"; return 1; }
  216. }
  217. vps_check() {
  218. local vps="$1"
  219. vps_connection_check "$vps" </dev/null || return 1
  220. if size=$(
  221. echo "df /srv -h | tail -n +2 | sed -r 's/ +/ /g' | cut -f 5 -d ' ' | cut -f 1 -d %" |
  222. ssh:run "root@$vps" -- bash); then
  223. if [ "$size" -gt "90" ]; then
  224. echo "${DARKRED}above-90%-disk-usage${NORMAL}"
  225. elif [ "$size" -gt "75" ]; then
  226. echo "${DARKYELLOW}above-75%-disk-usage${NORMAL}"
  227. fi
  228. else
  229. echo "${DARKRED}no-size${NORMAL}"
  230. fi </dev/null
  231. compose_content=$(ssh:run "root@$vps" -- cat /opt/apps/myc-deploy/compose.yml </dev/null) ||
  232. { echo "${DARKRED}no-compose${NORMAL}"; return 1; }
  233. echo "$compose_content" | grep backup >/dev/null 2>&1 ||
  234. { echo "${DARKRED}no-backup${NORMAL}"; return 1; }
  235. }
  236. backup:setup-rsync() {
  237. local admin="$1" vps="$2" server="$3" id="$4"
  238. [ -z "${BACKUP_SSH_SERVER}" ] || {
  239. err "Unexpected error: '\$BACKUP_SSH_SERVER' is already set in '$FUNCNAME'."
  240. return 1
  241. }
  242. BACKUP_SSH_OPTIONS=(-o StrictHostKeyChecking=no)
  243. if [[ "$server" == *":"* ]]; then
  244. BACKUP_SSH_OPTIONS+=(-p "${server#*:}")
  245. BACKUP_SSH_SERVER=${server%%:*}
  246. else
  247. BACKUP_SSH_SERVER="$server"
  248. fi
  249. if ! private_key=$(ssh "${BACKUP_SSH_OPTIONS[@]}" \
  250. "$admin"@"${BACKUP_SSH_SERVER}" request-recovery-key "$id"); then
  251. err "Couldn't request a recovery key for '$id' with account '$admin'."
  252. return 1
  253. fi
  254. if ! VPS_TMP_DIR=$(echo "mktemp -d" | ssh:run "root@$vps" -- bash); then
  255. err "Couldn't create a temporary directory on vps"
  256. return 1
  257. fi
  258. cat <<EOF | ssh:run "root@$vps" -- bash || return 1
  259. touch "$VPS_TMP_DIR/recover_key" &&
  260. chmod go-rwx "$VPS_TMP_DIR/recover_key" &&
  261. printf "%s\n" "$private_key" >> "$VPS_TMP_DIR/recover_key"
  262. EOF
  263. BACKUP_SSH_OPTIONS+=(-i "$VPS_TMP_DIR/recover_key" -l rsync)
  264. BACKUP_VPS_TARGET="$vps"
  265. BACKUP_IDENT="$id"
  266. echo "type -p rsync >/dev/null 2>&1 || apt-get install -y rsync </dev/null" |
  267. ssh:run "root@$vps" -- bash || return 1
  268. }
  269. backup:rsync() {
  270. local ssh_options
  271. [ -n "${BACKUP_SSH_SERVER}" ] || {
  272. err "Unexpected error: '\$BACKUP_SSH_SERVER' is not set in 'rsync_exists'."
  273. return 1
  274. }
  275. rsync_options=()
  276. while [[ "$1" == "-"* ]]; do
  277. rsync_options+=("$1")
  278. shift
  279. done
  280. local src="$1" dst="$2"
  281. cat <<EOF | ssh:run "root@${BACKUP_VPS_TARGET}" -- bash
  282. rsync -e "ssh ${BACKUP_SSH_OPTIONS[*]}" \
  283. -azvArH --delete --delete-excluded \
  284. --partial --partial-dir .rsync-partial \
  285. --numeric-ids ${rsync_options[*]} \
  286. "${BACKUP_SSH_SERVER}":/var/mirror/"${BACKUP_IDENT}${src}" "${dst}"
  287. EOF
  288. }
  289. backup:path_exists() {
  290. local src="$1"
  291. [ -n "${BACKUP_SSH_SERVER}" ] || {
  292. err "Unexpected error: '\$BACKUP_SSH_SERVER' is not set in 'rsync_exists'."
  293. return 1
  294. }
  295. cat <<EOF | ssh:run "root@${BACKUP_VPS_TARGET}" -- bash >/dev/null 2>&1
  296. rsync -e "ssh ${BACKUP_SSH_OPTIONS[*]}" \
  297. -nazvArH --numeric-ids \
  298. "${BACKUP_SSH_SERVER}":/var/mirror/"${BACKUP_IDENT}${src}" "/tmp/dummy"
  299. EOF
  300. }
  301. file:vps_backup_recover() {
  302. local admin="$1" server="$2" id="$3" path="$4" vps="$5" vps_path="$6"
  303. backup:rsync "${path}" "${vps_path}" || return 1
  304. if [[ "$path" == *"/" ]]; then
  305. if [ "$path" == "$vps_path"/ ]; then
  306. msg_target="Directory '$path'"
  307. else
  308. msg_target="Directory '$path' -> '$vps_path'"
  309. fi
  310. else
  311. if [ "$path" == "$vps_path" ]; then
  312. msg_target="File '$path'"
  313. else
  314. msg_target="File '$path' -> '$vps_path'"
  315. fi
  316. fi
  317. info "$msg_target was ${GREEN}successfully${NORMAL} restored on $vps."
  318. }
  319. mailcow:vps_backup_recover() {
  320. local admin="$1" server="$2" id="$3" path="$4" vps="$5" vps_path="$6"
  321. if ! compose_yml_files=$(cat <<EOF | ssh:run "root@$vps" -- bash
  322. urn=com.docker.compose.project
  323. docker ps -f "label=\$urn=mailcowdockerized" \
  324. --format="{{.Label \"\$urn.working_dir\"}}/{{.Label \"\$urn.config_files\"}}" |
  325. uniq
  326. EOF
  327. ); then
  328. err "Couldn't get list of running projects"
  329. return 1
  330. fi
  331. stopped_containers=
  332. if [ -n "$compose_yml_files" ]; then
  333. echo "Found running mailcowdockerized containers" >&2
  334. if [[ "$compose_yml_files" == *$'\n'* ]]; then
  335. err "Running containers are confusing, did not find only one mailcowdockerized project."
  336. return 1
  337. fi
  338. if ! echo "[ -e \"$compose_yml_files\" ]" | ssh:run "root@$vps" -- bash ; then
  339. ## For some reason, sometimes $urn.config_files holds an absolute path
  340. compose_yml_files=/${compose_yml_files#*//}
  341. if ! echo "[ -e \"$compose_yml_files\" ]" | ssh:run "root@$vps" -- bash ; then
  342. err "Running containers are confusing, they don't point to an existing docker-compose.yml."
  343. return 1
  344. fi
  345. fi
  346. echo "Containers where launched from '$compose_yml_files'" >&2
  347. COMPOSE_FILE="$compose_yml_files"
  348. ENV_FILE="${COMPOSE_FILE%/*}/.env"
  349. if ! echo "[ -e \"${ENV_FILE}\" ]" | ssh:run "root@$vps" -- bash ; then
  350. err "Running containers are confusing, docker-compose.yml has no '.env' next to it."
  351. return 1
  352. fi
  353. echo "${WHITE}Bringing mailcowdockerized down${NORMAL}"
  354. echo "docker-compose -f \"${COMPOSE_FILE}\" --env-file \"${ENV_FILE}\" down" |
  355. ssh:run "root@$vps" -- bash
  356. stopped_containers=1
  357. fi
  358. if [[ "$path" == "/"* ]]; then
  359. ##
  360. ## Additional intelligence to simple file copy
  361. ##
  362. if [[ "$path" == "/var/lib/docker/volumes/mailcowdockerized_*-vol-1/_data"* ]]; then
  363. volume_name=${path#/var/lib/docker/volumes/}
  364. volume_name=${volume_name%%/*}
  365. volume_dir=${path%%"$volume_name"*}
  366. ## Create volumes if not existent
  367. if ! ssh:run "root@$vps" -- "
  368. [ -d '${volume_dir}' ] ||
  369. docker run --rm -v ${volume_name}:/tmp/dummy docker.0k.io/alpine:3.9
  370. [ -d '${volume_dir}' ]
  371. "; then
  372. err "Couldn't find nor create '${volume_dir}'."
  373. return 1
  374. fi
  375. fi
  376. echo "${WHITE}Sync from backup ${path} to VPS ${vps_path}${NORMAL}" >&2
  377. backup:rsync "${path}" "${vps_path}" || return 1
  378. if [[ "$path" == *"/" ]]; then
  379. if [ "$path" == "$vps_path"/ ]; then
  380. msg_target="Directory '$path'"
  381. else
  382. msg_target="Directory '$path' -> '$vps_path'"
  383. fi
  384. else
  385. if [ "$path" == "$vps_path" ]; then
  386. msg_target="File '$path'"
  387. else
  388. msg_target="File '$path' -> '$vps_path'"
  389. fi
  390. fi
  391. else
  392. ALL_TARGETS=(mailcow postfix rspamd redis crypt vmail{,-attachments} mysql)
  393. if [[ -n "$path" ]]; then
  394. targets=()
  395. bad_targets=()
  396. for target in ${path//,/ }; do
  397. if [[ " ${ALL_TARGETS[*]} " != *" $target "* ]]; then
  398. bad_targets+=("$target")
  399. fi
  400. targets+=("$target")
  401. done
  402. if [ "${#bad_targets[@]}" -gt 0 ]; then
  403. bad_target_msg=$(printf "%s, " "${bad_targets[@]}")
  404. err "Unknown components: ${bad_target_msg%, }. These are allowed components:"
  405. printf " - %s\n" "${ALL_TARGETS[@]}" >&2
  406. return 1
  407. fi
  408. msg_target="Partial mailcow backup"
  409. else
  410. targets=("${ALL_TARGETS[@]}")
  411. msg_target="Full mailcow backup"
  412. fi
  413. for target in "${targets[@]}"; do
  414. case "$target" in
  415. postfix|rspamd|redis|crypt|vmail|vmail-attachments)
  416. volume_name="mailcowdockerized_${target}-vol-1"
  417. volume_dir="/var/lib/docker/volumes/${volume_name}/_data"
  418. if ! backup:path_exists "${volume_dir}/"; then
  419. warn "No '$volume_name' in backup. This might be expected."
  420. continue
  421. fi
  422. ## Create volumes if not existent
  423. if ! ssh:run "root@$vps" -- "
  424. [ -d '${volume_dir}' ] ||
  425. docker run --rm -v ${volume_name}:/tmp/dummy docker.0k.io/alpine:3.9
  426. [ -d '${volume_dir}' ]
  427. "; then
  428. err "Couldn't find nor create '${volume_dir}'."
  429. return 1
  430. fi
  431. echo "${WHITE}Downloading of $volume_name${NORMAL}"
  432. backup:rsync "${volume_dir}/" "${volume_dir}" || return 1
  433. ;;
  434. mailcow)
  435. ## Mailcow git base
  436. COMPOSE_FILE=
  437. for mailcow_dir in /opt/{apps/,}mailcow-dockerized; do
  438. backup:path_exists "${mailcow_dir}/" || continue
  439. ## this possibly change last value
  440. COMPOSE_FILE="$mailcow_dir/docker-compose.yml"
  441. ENV_FILE="$mailcow_dir/.env"
  442. echo "${WHITE}Download of $mailcow_dir${NORMAL}"
  443. backup:rsync "${mailcow_dir}"/ "${mailcow_dir}" || return 1
  444. break
  445. done
  446. if [ -z "$COMPOSE_FILE" ]; then
  447. err "Can't find mailcow base installation path in backup."
  448. return 1
  449. fi
  450. ;;
  451. mysql)
  452. if [ -z "$COMPOSE_FILE" ]; then
  453. ## Mailcow git base
  454. compose_files=()
  455. for mailcow_dir in /opt/{apps/,}mailcow-dockerized; do
  456. ssh:run "root@$vps" -- "[ -e \"$mailcow_dir/docker-compose.yml\" ]" || continue
  457. ## this possibly change last value
  458. compose_files+=("$mailcow_dir/docker-compose.yml")
  459. done
  460. if [ "${#compose_files[@]}" == 0 ]; then
  461. err "No compose file found for mailcow installation."
  462. return 1
  463. elif [ "${#compose_files[@]}" -gt 1 ]; then
  464. err "Multiple compose files for mailcow found:"
  465. for f in "${compose_files[@]}"; do
  466. echo " - $f" >&2
  467. done
  468. echo "Can't decide which to use for mounting mysql container." >&2
  469. return 1
  470. fi
  471. COMPOSE_FILE="${compose_files[0]}"
  472. ENV_FILE="${COMPOSE_FILE%/*}/.env"
  473. if ! ssh:run "root@$vps" -- "[ -e \"${COMPOSE_FILE%/*}/.env\" ]"; then
  474. err "No env file in '$ENV_FILE' found."
  475. return 1
  476. fi
  477. fi
  478. ## Mysql database
  479. echo "${WHITE}Downloading last backup of mysql backups${NORMAL}"
  480. backup:rsync "/var/backups/mysql/" "/var/backups/mysql" || return 1
  481. if ! env_content=$(echo "cat '$ENV_FILE'" | ssh:run "root@$vps" -- bash); then
  482. err "Can't access env file: '$ENV_FILE'."
  483. return 1
  484. fi
  485. root_password=$(printf "%s\n" "$env_content" | grep ^DBROOT= | cut -f 2 -d =)
  486. echo "${WHITE}Bringing mysql-mailcow up${NORMAL}"
  487. if ! image=$(cat <<EOF | ssh:run "root@$vps" -- bash
  488. shyaml get-value services.mysql-mailcow.image < "${COMPOSE_FILE}"
  489. EOF
  490. ); then
  491. err "Failed to get image name of service 'mysql-mailcow' in 'compose.yml'."
  492. return 1
  493. fi
  494. if [ -z "$(ssh:run "root@$vps" -- docker images -q "$image")" ]; then
  495. info "Image '$image' not available, pull it."
  496. if ! ssh:run "root@$vps" -- \
  497. docker-compose -f "${COMPOSE_FILE}" --env-file "${ENV_FILE}" \
  498. pull mysql-mailcow; then
  499. err "Failed to pull image of service 'mysql-mailcow'."
  500. return 1
  501. fi
  502. fi
  503. if ! container_id=$(cat <<EOF | ssh:run "root@$vps" -- bash
  504. echo "[client]
  505. password=$root_password" > "$VPS_TMP_DIR/my.cnf"
  506. docker-compose -f "${COMPOSE_FILE}" --env-file "${ENV_FILE}" \
  507. run -d \
  508. -v "$VPS_TMP_DIR/my.cnf:/root/.my.cnf:ro" \
  509. mysql-mailcow
  510. EOF
  511. ); then
  512. err "Failed to bring up mysql-mailcow"
  513. return 1
  514. fi
  515. START="$SECONDS"
  516. retries=0
  517. timeout=600
  518. while true; do
  519. ((retries++))
  520. echo " waiting for mysql db..." \
  521. "(retry $retries, $(($SECONDS - $START))s elapsed, timeout is ${timeout}s)" >&2
  522. cat <<EOF | ssh:run "root@$vps" -- bash && break
  523. echo "SELECT 1;" | docker exec -i "$container_id" mysql >/dev/null 2>&1
  524. EOF
  525. if (($SECONDS - $START > $timeout)); then
  526. err "Failed to connect to mysql-mailcow."
  527. echo "docker-compose -f \"${COMPOSE_FILE}\" --env-file \"${ENV_FILE}\" down" |
  528. ssh:run "root@$vps" -- bash
  529. return 1
  530. fi
  531. sleep 0.4
  532. done
  533. DBUSER=$(printf "%s\n" "$env_content" | grep ^DBUSER= | cut -f 2 -d =)
  534. DBPASS=$(printf "%s\n" "$env_content" | grep ^DBPASS= | cut -f 2 -d =)
  535. echo "${WHITE}Uploading mysql dump${NORMAL}"
  536. cat <<EOF | ssh:run "root@$vps" -- bash
  537. echo "
  538. DROP DATABASE IF EXISTS mailcow;
  539. CREATE DATABASE mailcow;
  540. GRANT ALL PRIVILEGES ON mailcow.* TO '$DBUSER'@'%' IDENTIFIED BY '$DBPASS';
  541. " | docker exec -i "$container_id" mysql
  542. zcat /var/backups/mysql/mailcow/*.gz | docker exec -i "$container_id" mysql mailcow
  543. EOF
  544. if [ "$?" != 0 ]; then
  545. err "Failed to load mysql dump."
  546. echo "docker-compose -f \"${COMPOSE_FILE}\" --env-file \"${ENV_FILE}\" down" |
  547. ssh:run "root@$vps" -- bash
  548. return 1
  549. fi
  550. echo "${WHITE}Bringing mysql-mailcow down${NORMAL}"
  551. echo "docker-compose -f \"${COMPOSE_FILE}\" --env-file \"${ENV_FILE}\" down" |
  552. ssh:run "root@$vps" -- bash
  553. ;;
  554. *)
  555. err "Unknown component '$target'. Bailing out."
  556. return 1
  557. esac
  558. done
  559. ssh:run "root@$vps" -- "rm -rf '$VPS_TMP_DIR'"
  560. fi
  561. if [ -n "$stopped_containers" ]; then
  562. echo "${WHITE}Starting mailcow${NORMAL}" >&2
  563. echo "docker-compose -f \"${COMPOSE_FILE}\" --env-file \"${ENV_FILE}\" up -d" |
  564. ssh:run "root@$vps" -- bash
  565. fi
  566. info "$msg_target was ${GREEN}successfully${NORMAL} restored on $vps."
  567. }
  568. vps_backup_recover() {
  569. local vps="$1" admin server id path rtype force type
  570. read-0 admin server id path rtype force
  571. if [[ "$vps" == *":"* ]]; then
  572. vps_path=${vps#*:}
  573. vps=${vps%%:*}
  574. else
  575. vps_path=
  576. fi
  577. vps_connection_check "$vps" </dev/null || {
  578. err "Failed to access '$vps'."
  579. return 1
  580. }
  581. if type=$(ssh:run "root@$vps" -- vps get-type); then
  582. info "VPS $vps seems to be of ${WHITE}$type${NORMAL} type"
  583. else
  584. warn "Couldn't find type of vps '$vps' (command 'vps get-type' failed on vps)."
  585. fi
  586. if [ -z "$path" ]; then
  587. if [ -n "$vps_path" ]; then
  588. err "You can't provide a VPS with path as destination if you don't provide a path in backup source."
  589. return 1
  590. fi
  591. info "No path provided in backup, so we assume you want ${WHITE}full recovery${NORMAL}."
  592. if [ "$rtype" != "$type" ]; then
  593. if [ -n "$force" ]; then
  594. warn "Backup found is of ${rtype:-unknown} type, while vps is of ${type:-unknown} type."
  595. else
  596. err "Backup found is of ${rtype:-unknown} type, while vps is of ${type:-unknown} type. (use \`\`-f\`\` to force)"
  597. return 1
  598. fi
  599. fi
  600. else
  601. if [ "$path" == "/" ]; then
  602. if [ -z "$vps_path" ]; then
  603. err "Recovery of '/' (full backup files) requires that you provide a vps path also."
  604. return 1
  605. fi
  606. if [ "$vps_path" == "/" ]; then
  607. err "Recovery of '/' (full backup files) requires that you provide" \
  608. "a vps path different from '/' also."
  609. return 1
  610. fi
  611. fi
  612. fi
  613. ## Sets VPS and internal global variable to allow rsync to work
  614. ## from vps to backup server.
  615. backup:setup-rsync "$admin" "$vps" "$server" "$id" || return 1
  616. if [[ "$path" == "/"* ]]; then
  617. if ! backup:path_exists "${path}"; then
  618. err "File or directory '$path' not found in backup."
  619. return 1
  620. fi
  621. if [ -z "$vps_path" ]; then
  622. if [[ "$path" != *"/" ]] && backup:path_exists "${path}"/ ; then
  623. path="$path/"
  624. fi
  625. vps_path=${path%/}
  626. vps_path=${vps_path:-/}
  627. fi
  628. fi
  629. case "$rtype-$type" in
  630. mailcow-*)
  631. ## Supports having $path and $vps_path set or unset, with additional behavior
  632. mailcow:vps_backup_recover "$admin" "$server" "$id" "$path" "$vps" "$vps_path"
  633. ;;
  634. *-*)
  635. if [[ "$path" == "/"* ]]; then
  636. ## For now, will require having $path and $vps_path set, no additional behaviors
  637. file:vps_backup_recover "$admin" "$server" "$id" "$path" "$vps" "$vps_path"
  638. else
  639. if [ -n "$path" ]; then
  640. err "Partial component recover of ${rtype:-unknown} backup type on" \
  641. "${type:-unknown} type VPS is not yet implemented."
  642. return 1
  643. else
  644. err "Full recover of ${rtype:-unknown} backup type on" \
  645. "${type:-unknown} type VPS is not yet implemented."
  646. return 1
  647. fi
  648. fi
  649. ;;
  650. esac
  651. }
  652. vps_install_backup() {
  653. local vps="$1" admin server
  654. vps_connection_check "$vps" </dev/null || return 1
  655. read-0 admin server
  656. if ! type=$(ssh:run "root@$vps" -- vps get-type); then
  657. err "Could not get type."
  658. return 1
  659. fi
  660. if ! out=$(ssh:run "root@$vps" -- vps install backup "$server" 2>&1); then
  661. err "Command 'vps install backup $server' on $vps failed:"
  662. echo "$out" | prefix " ${DARKGRAY}|${NORMAL} " >&2
  663. return 1
  664. fi
  665. out="${out%$'\n'}"
  666. out="${out#*$'\n'}"
  667. key="${out%\'*}"
  668. key="${key##*\'}"
  669. if ! [[ "$key" =~ ^"ssh-rsa "[a-zA-Z0-9/+=]+" "[a-zA-Z0-9._-]+"@"[a-zA-Z0-9._-]+$ ]]; then
  670. err "Unexpected output from 'vps install backup $server'. Can't find key."
  671. echo "$out" | prefix " ${GRAY}|$NORMAL " >&2
  672. echo " Extracted key:" >&2
  673. echo "$key" | prefix " ${GRAY}|$NORMAL " >&2
  674. return 1
  675. fi
  676. if [ "$type" == "compose" ]; then
  677. if ! ssh:run "root@$vps" -- \
  678. docker exec myc_cron_1 \
  679. cat /etc/cron.d/rsync-backup >/dev/null 2>&1; then
  680. ssh:run "root@$vps" -- compose --debug up || {
  681. err "Command 'compose --debug up' failed."
  682. return 1
  683. }
  684. if ! ssh:run "root@$vps" -- \
  685. docker exec myc_cron_1 \
  686. cat /etc/cron.d/rsync-backup >/dev/null 2>&1; then
  687. err "Launched 'compose up' successfully but ${YELLOW}cron${NORMAL} container is not setup as expected."
  688. echo " Was waiting for existence of '/etc/cron.d/rsync-backup' in it." >&2
  689. return 1
  690. fi
  691. fi
  692. fi
  693. dest="$server"
  694. dest="${dest%/*}"
  695. ssh_options=()
  696. if [[ "$dest" == *":"* ]]; then
  697. port="${dest##*:}"
  698. dest="${dest%%:*}"
  699. ssh_options=(-p "$port")
  700. else
  701. port=""
  702. dest="${dest%%:*}"
  703. fi
  704. cmd=(ssh "${ssh_options[@]}" "$admin"@"$dest" ssh-key add "$key")
  705. echo "${WHITE}Launching:${NORMAL} ${cmd[@]}"
  706. "${cmd[@]}" || {
  707. err "Failed add key to backup server '$dest'."
  708. return 1
  709. }
  710. echo "${WHITE}Launching backup${NORMAL} from '$vps'"
  711. ssh:run "root@$vps" -- vps backup || {
  712. err "First backup failed to run."
  713. return 1
  714. }
  715. echo "Backup is ${GREEN}up and running${NORMAL}."
  716. }
  717. vps_update() {
  718. local vps="$1"
  719. vps_connection_check "$vps" || return 1
  720. ssh:run "root@$vps" -- myc-update </dev/null
  721. }
  722. vps_bash() {
  723. local vps="$1"
  724. vps_connection_check "$vps" </dev/null || return 1
  725. ssh:run "root@$vps" -- bash
  726. }
  727. vps_mux() {
  728. local fn="$1" vps_done VPS max_size vps
  729. shift
  730. VPS=($(printf "%s\n" "$@" | sort))
  731. max_size=0
  732. declare -A vps_done;
  733. new_vps=()
  734. for name in "${VPS[@]}"; do
  735. [ -n "${vps_done[$name]}" ] && {
  736. warn "duplicate vps '$name' provided. Ignoring."
  737. continue
  738. }
  739. vps_done["$name"]=1
  740. new_vps+=("$name")
  741. size_name="${#name}"
  742. [ "$max_size" -lt "${size_name}" ] &&
  743. max_size="$size_name"
  744. done
  745. settmpdir "_0KM_TMP_DIR"
  746. cat > "$_0KM_TMP_DIR/code"
  747. for vps in "${new_vps[@]}"; do
  748. label=$(printf "%-${max_size}s" "$vps")
  749. (
  750. {
  751. {
  752. "$fn" "$vps" < "$_0KM_TMP_DIR/code"
  753. } 3>&1 1>&2 2>&3 | sed -r "s/^/$DARKCYAN$label$NORMAL $DARKRED\!$NORMAL /g"
  754. set_errlvl "${PIPESTATUS[0]}"
  755. } 3>&1 1>&2 2>&3 | sed -r "s/^/$DARKCYAN$label$NORMAL $DARKGRAY\|$NORMAL /g"
  756. set_errlvl "${PIPESTATUS[0]}"
  757. ) &
  758. done
  759. wait
  760. }
  761. [ "$SOURCED" ] && return 0
  762. ##
  763. ## Command line processing
  764. ##
  765. cmdline.spec.gnu
  766. cmdline.spec.reporting
  767. cmdline.spec.gnu vps-setup
  768. cmdline.spec::cmd:vps-setup:run() {
  769. : :posarg: HOST 'Target host to check/fix ssh-access'
  770. : :optfla: --force,-f "Will force domain name change, even if
  771. current hostname was not recognized as
  772. an ovh domain name. "
  773. depends sshpass shyaml
  774. KEY_PATH="ssh-access.public-keys"
  775. local keys=$(config get-value -y "ssh-access.public-keys") || true
  776. if [ -z "$keys" ]; then
  777. err "No ssh publickeys configured in config file."
  778. echo " Looking for keys in ${WHITE}${KEY_PATH}${NORMAL}" \
  779. "in config file." >&2
  780. config:exists --message 2>&1 | prefix " "
  781. if [ "${PIPESTATUS[0]}" == "0" ]; then
  782. echo " Config file found in $(config:filename)"
  783. fi
  784. return 1
  785. fi
  786. local tkey=$(e "$keys" | shyaml get-type)
  787. if [ "$tkey" != "sequence" ]; then
  788. err "Value type of ${WHITE}${KEY_PATH}${NORMAL} unexpected (is $tkey, expecting sequence)."
  789. echo " Check content of $(config:filename), and make sure to use a sequence." >&2
  790. return 1
  791. fi
  792. local IP NAME keys host_pass_connected
  793. if ! IP=$(resolve "$HOST"); then
  794. err "'$HOST' name unresolvable."
  795. exit 1
  796. fi
  797. NAME="$HOST"
  798. if [ "$IP" != "$HOST" ]; then
  799. NAME="$HOST ($IP)"
  800. fi
  801. if ! is-port-open "$IP" "22"; then
  802. err "$NAME unreachable or port 22 closed."
  803. exit 1
  804. fi
  805. debug "Host $IP's port 22 is open."
  806. if ! host_pass_connected=$(ssh:open-try \
  807. {root,debian}@"$HOST"); then
  808. err "Could not connect to {root,debian}@$HOST with publickey nor password."
  809. exit 1
  810. fi
  811. read-0a host password <<<"$host_pass_connected"
  812. sudo_if_necessary=
  813. if [ "$password" -o "${host%%@*}" != "root" ]; then
  814. if ! ssh:run "$host" -- sudo -n true >/dev/null 2>&1; then
  815. err "Couldn't do a password-less sudo from $host."
  816. echo " This is not yet supported."
  817. exit 1
  818. else
  819. sudo_if_necessary=sudo
  820. fi
  821. fi
  822. Section Checking access
  823. while read-0 key; do
  824. prefix="${key%% *}"
  825. if [ "$prefix" != "ssh-rsa" ]; then
  826. err "Unsupported key:"$'\n'"$key"
  827. return 1
  828. fi
  829. label="${key##* }"
  830. Elt "considering adding key ${DARKYELLOW}$label${NORMAL}"
  831. dest="/root/.ssh/authorized_keys"
  832. if ssh:run "$host" -- $sudo_if_necessary grep "\"$key\"" "$dest" >/dev/null 2>&1 </dev/null; then
  833. print_info "already present"
  834. print_status noop
  835. Feed
  836. else
  837. if echo "$key" | ssh:run "$host" -- $sudo_if_necessary tee -a "$dest" >/dev/null; then
  838. print_info added
  839. else
  840. echo
  841. Feedback failure
  842. return 1
  843. fi
  844. Feedback success
  845. fi
  846. done < <(e "$keys" | shyaml get-values-0)
  847. Section Checking ovh hostname file
  848. Elt "Checking /etc/ovh-hostname"
  849. if ! ssh:run "$host" -- $sudo_if_necessary [ -e "/etc/ovh-hostname" ]; then
  850. print_info "creating"
  851. ssh:run "$host" -- $sudo_if_necessary cp /etc/hostname /etc/ovh-hostname
  852. ovhname=$(ssh:run "$host" -- $sudo_if_necessary cat /etc/ovh-hostname)
  853. Elt "Checking /etc/ovh-hostname: $ovhname"
  854. Feedback || return 1
  855. else
  856. ovhname=$(ssh:run "$host" -- $sudo_if_necessary cat /etc/ovh-hostname)
  857. Elt "Checking /etc/ovh-hostname: $ovhname"
  858. print_info "already present"
  859. print_status noop
  860. Feed
  861. fi
  862. if ! is_ovh_domain_name "$HOST" && ! str_is_ipv4 "$HOST"; then
  863. Section Checking hostname
  864. Elt "Checking /etc/hostname..."
  865. old_etc_hostname="$(ssh:run "$host" -- $sudo_if_necessary cat /etc/hostname)"
  866. if [ "$old_etc_hostname" != "$HOST" ]; then
  867. Elt "/etc/hostname is '$old_etc_hostname'"
  868. if is_ovh_hostname "$old_etc_hostname" || [ -n "$opt_force" ]; then
  869. Elt "Hostname '$old_etc_hostname' --> '$HOST'"
  870. print_info "creating"
  871. echo "$HOST" | ssh:run "$host" -- $sudo_if_necessary tee /etc/hostname >/dev/null &&
  872. ssh:run "$host" -- $sudo_if_necessary hostname "$HOST"
  873. Feedback || return 1
  874. else
  875. Elt "Hostname '$old_etc_hostname' isn't an ovh domain"
  876. print_info "no change"
  877. print_status noop
  878. Feed
  879. warn "Domain name was not changed because it was already set"
  880. echo " (use \`-f\` or \`--force\`) to force domain name change to $HOST." >&2
  881. fi
  882. else
  883. print_info "already set"
  884. print_status noop
  885. Feed
  886. fi
  887. Elt "Checking consistency between /etc/hostname and \`hostname\`..."
  888. etc_hostname="$(ssh:run "$host" -- $sudo_if_necessary cat /etc/hostname)"
  889. transient_hostname="$(ssh:run "$host" -- $sudo_if_necessary hostname)"
  890. if [ "$etc_hostname" != "$transient_hostname" ]; then
  891. print_info "change"
  892. ssh:run "$host" -- $sudo_if_necessary hostname "$etc_hostname"
  893. Feedback || return 1
  894. else
  895. print_info "consistent"
  896. print_status noop
  897. Feed
  898. fi
  899. else
  900. info "Not changing domain as '$HOST' doesn't seem to be final domain."
  901. fi
  902. }
  903. cmdline.spec.gnu vps-check
  904. cmdline.spec::cmd:vps-check:run() {
  905. : :posarg: [VPS...] 'Target host(s) to check'
  906. echo "" |
  907. vps_mux vps_check "${VPS[@]}"
  908. }
  909. cmdline.spec.gnu vps-install
  910. cmdline.spec::cmd:vps-install:run() {
  911. :
  912. }
  913. cmdline.spec.gnu backup
  914. cmdline.spec:vps-install:cmd:backup:run() {
  915. : :posarg: BACKUP_TARGET 'Backup target.
  916. (ie: myadmin@backup.domain.org:10023/256)'
  917. : :posarg: [VPS...] 'Target host(s) to check'
  918. if [ "${#VPS[@]}" == 0 ]; then
  919. warn "VPS list provided in command line is empty. Nothing will be done."
  920. return 0
  921. fi
  922. if ! [[ "$BACKUP_TARGET" == *"@"* ]]; then
  923. err "Missing admin account identifier in backup target."
  924. echo " Have you forgottent to specify an account, ie 'myadmin@<MYBACKUP_SERVER>' ?)"
  925. return 1
  926. fi
  927. admin=${BACKUP_TARGET%%@*}
  928. server=${BACKUP_TARGET#*@}
  929. p0 "$admin" "$server" |
  930. vps_mux vps_install_backup "${VPS[@]}"
  931. }
  932. cmdline.spec.gnu vps-backup
  933. cmdline.spec::cmd:vps-backup:run() {
  934. :
  935. }
  936. cmdline.spec.gnu ls
  937. cmdline.spec:vps-backup:cmd:ls:run() {
  938. : :posarg: BACKUP_ID 'Backup id.
  939. (ie: myadmin@backup.domain.org:10023)'
  940. if ! [[ "$BACKUP_ID" == *"@"* ]]; then
  941. err "Missing admin account identifier in backup id."
  942. echo " Have you forgottent to specify an admin account ?" \
  943. "ie 'myadmin@<MYBACKUP_SERVER>#<BACKUP_IDENT>' ?)"
  944. return 1
  945. fi
  946. id=${BACKUP_ID##*#}
  947. BACKUP_TARGET=${BACKUP_ID%#*}
  948. admin=${BACKUP_TARGET%%@*}
  949. server=${BACKUP_TARGET#*@}
  950. ## XXXvlab: in this first implementation we expect to have access
  951. ## to the server main ssh port 22, so we won't use the provided port.
  952. ssh_options=()
  953. if [[ "$server" == *":"* ]]; then
  954. ssh_options+=(-p "${server#*:}")
  955. server=${server%%:*}
  956. fi
  957. ssh "${ssh_options[@]}" "$admin"@"$server" ssh-key ls
  958. }
  959. cmdline.spec.gnu recover
  960. cmdline.spec:vps-backup:cmd:recover:run() {
  961. : :posarg: BACKUP_ID 'Backup id.
  962. (ie: myadmin@backup.domain.org:10023#mx.myvps.org
  963. myadmin@ark-01.org#myid:/a/path
  964. admin@ark-02.io#myid:myqsl,mailcow)'
  965. : :posarg: VPS_PATH 'Target host(s) to check.
  966. (ie: myvps.com
  967. myvps.com:/a/path)'
  968. : :optval: --date,-D '"last", or label of version to recover. (Default: "last").'
  969. : :optfla: --force,-f 'Will allow you to bypass some checks.'
  970. if ! [[ "$BACKUP_ID" == *"@"* ]]; then
  971. err "Missing admin account identifier in backup id."
  972. echo " Have you forgottent to specify an admin account ?" \
  973. "ie 'myadmin@<MYBACKUP_SERVER>#<BACKUP_IDENT>' ?)"
  974. return 1
  975. fi
  976. if ! [[ "$BACKUP_ID" == *"@"*"#"* ]]; then
  977. err "Missing backup label identifier in backup id."
  978. echo " Have you forgottent to specify a backup label identifier ?" \
  979. "ie 'myadmin@<MYBACKUP_SERVER>#<BACKUP_IDENT>' ?)"
  980. return 1
  981. fi
  982. id_path=${BACKUP_ID#*#}
  983. if [[ "$id_path" == *":"* ]]; then
  984. id=${id_path%%:*}
  985. path=${id_path#*:}
  986. else
  987. id="$id_path"
  988. path=
  989. fi
  990. BACKUP_TARGET=${BACKUP_ID%#*}
  991. admin=${BACKUP_TARGET%%@*}
  992. server=${BACKUP_TARGET#*@}
  993. ssh_options=()
  994. if [[ "$server" == *":"* ]]; then
  995. ssh_options+=(-p "${server#*:}")
  996. ssh_server=${server%%:*}
  997. fi
  998. BACKUP_PATH="/srv/datastore/data/rsync-backup-target/var/mirror"
  999. if ! content=$(ssh:run "$admin"@"${ssh_server}" "${ssh_options[@]}" -- ssh-key ls 2>/dev/null); then
  1000. err "Access denied to '$admin@${server}'."
  1001. return 1
  1002. fi
  1003. idents=$(echo "$content" | sed -r "s/"$'\e'"\[[0-9]+(;[0-9]+)*m//g" | cut -f 2 -d " ")
  1004. if ! [[ $'\n'"$idents"$'\n' == *$'\n'"$id"$'\n'* ]]; then
  1005. err "Given backup id '$id' not found in $admin@${server}'s idents."
  1006. return 1
  1007. fi
  1008. rtype=$(ssh:run "$admin"@"${ssh_server}" "${ssh_options[@]}" -- ssh-key get-type "$id" ) &&
  1009. info "Backup archive matches ${WHITE}${rtype}${NORMAL} type"
  1010. p0 "$admin" "$server" "$id" "$path" "$rtype" "$opt_force" |
  1011. vps_backup_recover "${VPS_PATH}"
  1012. }
  1013. cmdline.spec.gnu vps-update
  1014. cmdline.spec::cmd:vps-update:run() {
  1015. : :posarg: [VPS...] 'Target host to check'
  1016. echo "" |
  1017. vps_mux vps_update "${VPS[@]}"
  1018. }
  1019. cmdline.spec.gnu vps-mux
  1020. cmdline.spec::cmd:vps-mux:run() {
  1021. : :posarg: [VPS...] 'Target host(s) to check'
  1022. cat | vps_mux vps_bash "${VPS[@]}"
  1023. }
  1024. cmdline.spec.gnu vps-space
  1025. cmdline.spec::cmd:vps-space:run() {
  1026. : :posarg: [VPS...] 'Target host(s) to check'
  1027. echo "df /srv -h | tail -n +2 | sed -r 's/ +/ /g' | cut -f 2-5 -d ' '" |
  1028. vps_mux vps_bash "${VPS[@]}"
  1029. }
  1030. cmdline.spec.gnu vps-stats
  1031. cmdline.spec::cmd:vps-stats:run() {
  1032. : :posarg: [VPS...] 'Target host(s) to get stats'
  1033. : :optfla: --follow,-f 'Refresh graph every 2m'
  1034. : :optval: --timespan,-t 'timespan START[..END]'
  1035. : :optval: --resource,-r 'resource(s) separated with a comma'
  1036. : :optval: --interval,-i 'refersh interval (default: 60s)'
  1037. local opts_rrdfetch=( -a )
  1038. if [ -n "${opt_timespan}" ]; then
  1039. start=${opt_timespan%\.\.*}
  1040. opts_rrdfetch+=(-s "$start")
  1041. if [ "$start" != "${opt_timespan}" ]; then
  1042. end=${opt_timespan#*..}
  1043. opts_rrdfetch+=(-e "$end")
  1044. fi
  1045. fi
  1046. local resources=(c.memory c.network load_avg)
  1047. if [ -n "${opt_resource}" ]; then
  1048. resources=(${opt_resource//,/ })
  1049. fi
  1050. local not_found=()
  1051. for resource in "${resources[@]}"; do
  1052. if ! fn.exists "graph:def:$resource"; then
  1053. not_found+=("$resource")
  1054. fi
  1055. done
  1056. if [[ "${#not_found[@]}" -gt 0 ]]; then
  1057. not_found_msg=$(printf "%s, " "${not_found[@]}")
  1058. not_found_msg=${not_found_msg%, }
  1059. err "Unsupported resource(s) provided: ${not_found_msg}"
  1060. echo " resource must be one-of:" >&2
  1061. declare -F | egrep 'graph:def:[a-zA-Z_.]+$' | cut -f 3- -d " " | cut -f 3- -d ":" | prefix " - " >&2
  1062. return 1
  1063. fi
  1064. if [ "${#VPS[@]}" == 0 ]; then
  1065. err "You must provide a VPS list as positional arguments"
  1066. return 1
  1067. fi
  1068. include cache
  1069. if [ -z "$VAR_DIR" ]; then
  1070. err "Unset \$VAR_DIR, can't downlowd rrd graph"
  1071. return 1
  1072. fi
  1073. mkdir -p "$VAR_DIR/rrd"
  1074. if ! [ -d "$VAR_DIR/rrd" ]; then
  1075. err "Invalid \$VAR_DIR: '$VAR_DIR/rrd' is not a directory"
  1076. return 1
  1077. fi
  1078. (
  1079. for vps in "${VPS[@]}"; do
  1080. (
  1081. {
  1082. {
  1083. ssh:open "root@$vps" 2>/dev/null || {
  1084. err "Can't open connection $vps."
  1085. return 1
  1086. }
  1087. while true; do
  1088. if ssh:run "root@$vps" -- "[ -d '/var/lib/vps/rrd' ]"; then
  1089. echo "${WHITE}Collecting stats${NORMAL}..."
  1090. {
  1091. {
  1092. ssh:rsync "root@$vps:/var/lib/vps/rrd/" "${VAR_DIR}/rrd/${vps}"
  1093. } 3>&1 1>&2 2>&3 | prefix " ${DARKRED}\!${NORMAL} "
  1094. set_errlvl "${PIPESTATUS[0]}"
  1095. } 3>&1 1>&2 2>&3 | prefix " ${GRAY}|${NORMAL} "
  1096. echo " ${GRAY}..${NORMAL} ${DARKGREEN}done${NORMAL} collecting stats"
  1097. else
  1098. warn "No stats found. Did you run 'myc-update' on the vps ?."
  1099. fi
  1100. [ -z "$opt_follow" ] && break
  1101. echo "${WHITE}Sleeping ${DARKYELLOW}${opt_interval:-60}${NORMAL}s..."
  1102. sleep "${opt_interval:-60}"
  1103. echo " ${GRAY}..${NORMAL} ${DARKGREEN}done${NORMAL} sleeping"
  1104. done
  1105. } 3>&1 1>&2 2>&3 | prefix " ${DARKRED}\!${GRAY} collect(${DARKCYAN}$vps${GRAY})${NORMAL} "
  1106. set_errlvl "${PIPESTATUS[0]}"
  1107. } 3>&1 1>&2 2>&3 | prefix " ${GRAY}| collect(${DARKCYAN}$vps${GRAY})${NORMAL} " >&2
  1108. ) &
  1109. done
  1110. wait
  1111. ) &
  1112. collect_pid="$!"
  1113. if [ -z "$opt_follow" ]; then
  1114. echo "${WHITE}Fetching last stats${NORMAL}${GRAY}..${NORMAL}" >&2
  1115. wait
  1116. echo " ${GRAY}..${DARKGREEN} done${NORMAL} fetching stats" >&2
  1117. else
  1118. collect_end_msg=" ${GRAY}..${NORMAL} ${DARKGREEN}stop${NORMAL} collecting daemon (pid: ${DARKYELLOW}$collect_pid${NORMAL})"
  1119. trap_add EXIT \
  1120. "printf '%s\n' \"$collect_end_msg\" && kill $collect_pid"
  1121. echo "${WHITE}Start collecting daemon${NORMAL} (pid: ${DARKYELLOW}$collect_pid${NORMAL}) ${GRAY}..${NORMAL}" >&2
  1122. fi
  1123. ( depends gnuplot ) || {
  1124. echo ""
  1125. echo " Gnuplot is required to display graphs..." \
  1126. "You might want to try to install ${WHITE}gnuplot${NORMAL} with:"
  1127. echo ""
  1128. echo " apt install gnuplot"
  1129. echo ""
  1130. return 1
  1131. } >&2
  1132. export GNUTERM=qt
  1133. exec {PFD}> >(exec gnuplot 2>/dev/null)
  1134. gnuplot_pid="$!"
  1135. if [ -z "$opt_follow" ]; then
  1136. echo "${WHITE}Draw gnuplot graph${GRAY}..${NORMAL}" >&2
  1137. else
  1138. gnuplot_end_msg=" ${GRAY}..${NORMAL} ${DARKGREEN}stop${NORMAL} gnuplot process (pid: $gnuplot_pid)"
  1139. trap_add EXIT \
  1140. "printf '%s\n' \"$gnuplot_end_msg\" && kill $gnuplot_pid"
  1141. echo "${WHITE}Start gnuplot process${NORMAL} (pid: $gnuplot_pid) ${GRAY}..${NORMAL}" >&2
  1142. fi
  1143. echo "set term qt noraise replotonresize" >&$PFD
  1144. while true; do
  1145. {
  1146. i=0
  1147. data_start_ts=
  1148. data_stop_ts=
  1149. for resource in "${resources[@]}"; do
  1150. for vps in "${VPS[@]}"; do
  1151. ((i++))
  1152. {
  1153. {
  1154. rrd_vps_path="$VAR_DIR/rrd/$vps"
  1155. if [ -d "$rrd_vps_path" ]; then
  1156. graph:def:"${resource}" "$vps" "$i" "${opts_rrdfetch[@]}"
  1157. else
  1158. warn "No data yet, ignoring..."
  1159. fi
  1160. } 3>&1 1>&2 2>&3 | prefix " ${DARKRED}\!${GRAY} graph(${DARKCYAN}$vps${GRAY}:${WHITE}$resource${NORMAL})${NORMAL} "
  1161. set_errlvl "${PIPESTATUS[0]}"
  1162. } 3>&1 1>&2 2>&3 || continue 1
  1163. done
  1164. done
  1165. } >&$PFD
  1166. if [ -z "$opt_follow" ]; then
  1167. echo " ${GRAY}..${DARKGREEN} done${NORMAL} gnuplot graphing" >&2
  1168. break
  1169. else
  1170. {
  1171. echo "${WHITE}Sleeping ${DARKYELLOW}${opt_interval:-60}${NORMAL}s..."
  1172. sleep "${opt_interval:-60}"
  1173. echo " ${GRAY}..${NORMAL} ${DARKGREEN}done${NORMAL} sleeping"
  1174. } | prefix " ${GRAY}| gnuplot:${NORMAL} " >&2
  1175. fi
  1176. done
  1177. if [ -n "$opt_follow" ]; then
  1178. echo "Waiting for child process to finish.." >&2
  1179. wait
  1180. echo " ..done" >&2
  1181. else
  1182. echo "pause mouse close" >&$PFD
  1183. fi
  1184. }
  1185. graph:def:c.memory() {
  1186. local vps="$1" i="$2"
  1187. shift 2
  1188. local opts_rrdfetch=("$@")
  1189. local resource="memory"
  1190. rrd_vps_path="$VAR_DIR/rrd/$vps"
  1191. [ -d "$rrd_vps_path/containers" ] || {
  1192. warn "No containers data yet for vps '$vps'... Ignoring"
  1193. return 0
  1194. }
  1195. containers=(
  1196. $(
  1197. cd "$rrd_vps_path/containers";
  1198. find -maxdepth 3 -mindepth 3 -name "${resource}.rrd" -type f |
  1199. sed -r 's%^./([^/]+/[^/]+)/[^/]+.rrd$%\1%g'
  1200. )
  1201. )
  1202. gnuplot_line_config=(
  1203. "set term qt $i title \"$vps $resource\" replotonresize noraise"
  1204. "set title '$vps'"
  1205. "set xdata time"
  1206. "set timefmt '%s'"
  1207. "set ylabel '$resource Usage'"
  1208. "set format y '%s'"
  1209. "set ytics format ' %g'"
  1210. "set mouse mouseformat 6"
  1211. "set yrange [0:*] "
  1212. "set border behind"
  1213. )
  1214. printf "%s\n" "${gnuplot_line_config[@]}"
  1215. first=1
  1216. for container in "${containers[@]}"; do
  1217. rrdfetch_cmd="'< rrdtool fetch \"$rrd_vps_path/containers/$container/$resource.rrd\""
  1218. rrdfetch_cmd+=" AVERAGE ${opts_rrdfetch[*]} | \\"$'\n'
  1219. rrdfetch_cmd+=" tail -n +2 | \\"$'\n'
  1220. rrdfetch_cmd+=" egrep -v \"^$\" | sed -r \"s/ -?nan/ -/g;s/^([0-9]+): /\\1 /g\"'"
  1221. rrdfetch_cmd_bash=$(eval echo "${rrdfetch_cmd}")
  1222. rrdfetch_cmd_bash=${rrdfetch_cmd_bash#< }
  1223. first_ts=
  1224. first_ts=$(eval "$rrdfetch_cmd_bash" | head -n 1 | cut -f 1 -d " ")
  1225. if [ -z "$first_ts" ]; then
  1226. warn "No data for $container on vps $vps, skipping..."
  1227. continue
  1228. fi
  1229. last_ts=$(eval "$rrdfetch_cmd_bash" | tail -n 1 | cut -f 1 -d " ")
  1230. if [[ -z "$data_start_ts" ]] || [[ "$data_start_ts" > "$first_ts" ]]; then
  1231. data_start_ts="$first_ts"
  1232. fi
  1233. if [[ -z "$data_stop_ts" ]] || [[ "$data_stop_ts" < "$last_ts" ]]; then
  1234. data_stop_ts="$last_ts"
  1235. fi
  1236. if [ -n "$first" ]; then
  1237. first=
  1238. echo "plot \\"
  1239. else
  1240. echo ", \\"
  1241. fi
  1242. container="${container//\'/}"
  1243. container="${container//@/\\@}"
  1244. echo -n " ${rrdfetch_cmd} u 1:((\$3 - \$2)/1000000000) w lines title '${container//_/\\_}'"
  1245. done
  1246. echo
  1247. }
  1248. graph:def:c.network() {
  1249. local vps="$1" i="$2"
  1250. shift 2
  1251. local opts_rrdfetch=("$@")
  1252. local resource="network"
  1253. rrd_vps_path="$VAR_DIR/rrd/$vps"
  1254. [ -d "$rrd_vps_path/containers" ] || {
  1255. warn "No containers data yet for vps '$vps'... Ignoring"
  1256. return 0
  1257. }
  1258. containers=(
  1259. $(
  1260. cd "$rrd_vps_path/containers";
  1261. find -maxdepth 3 -mindepth 3 -name "${resource}.rrd" -type f |
  1262. sed -r 's%^./([^/]+/[^/]+)/[^/]+.rrd$%\1%g'
  1263. )
  1264. )
  1265. gnuplot_line_config=(
  1266. "set term qt $i title \"$vps $resource\" replotonresize noraise"
  1267. "set title '$vps'"
  1268. "set xdata time"
  1269. "set timefmt '%s'"
  1270. "set ylabel '$resource Usage'"
  1271. "set format y '%s'"
  1272. "set ytics format ' %.2f MiB/s'"
  1273. "set mouse mouseformat 6"
  1274. "set yrange [0:*] "
  1275. "set border behind"
  1276. )
  1277. printf "%s\n" "${gnuplot_line_config[@]}"
  1278. first=1
  1279. for container in "${containers[@]}"; do
  1280. rrdfetch_cmd="'< rrdtool fetch \"$rrd_vps_path/containers/$container/$resource.rrd\""
  1281. rrdfetch_cmd+=" AVERAGE ${opts_rrdfetch[*]} | \\"$'\n'
  1282. rrdfetch_cmd+=" tail -n +2 | \\"$'\n'
  1283. rrdfetch_cmd+=" egrep -v \"^$\" | sed -r \"s/ -?nan/ -/g;s/^([0-9]+): /\\1 /g\"'"
  1284. rrdfetch_cmd_bash=$(eval echo "${rrdfetch_cmd}")
  1285. rrdfetch_cmd_bash=${rrdfetch_cmd_bash#< }
  1286. first_ts=
  1287. first_ts=$(eval "$rrdfetch_cmd_bash" | head -n 1 | cut -f 1 -d " ")
  1288. if [ -z "$first_ts" ]; then
  1289. warn "No data for $container on vps $vps, skipping..."
  1290. continue
  1291. fi
  1292. last_ts=$(eval "$rrdfetch_cmd_bash" | tail -n 1 | cut -f 1 -d " ")
  1293. if [[ -z "$data_start_ts" ]] || [[ "$data_start_ts" > "$first_ts" ]]; then
  1294. data_start_ts="$first_ts"
  1295. fi
  1296. if [[ -z "$data_stop_ts" ]] || [[ "$data_stop_ts" < "$last_ts" ]]; then
  1297. data_stop_ts="$last_ts"
  1298. fi
  1299. if [ -n "$first" ]; then
  1300. first=
  1301. echo "plot \\"
  1302. else
  1303. echo ", \\"
  1304. fi
  1305. container="${container//\'/}"
  1306. container="${container//@/\\@}"
  1307. echo -n " ${rrdfetch_cmd} u 1:((\$3 / 1024) / 1024) w lines title '${container//_/\\_}'"
  1308. done
  1309. echo
  1310. }
  1311. graph:def:load_avg() {
  1312. local vps="$1" i="$2"
  1313. shift 2
  1314. local opts_rrdfetch=("$@")
  1315. rrd_vps_path="$VAR_DIR/rrd/$vps"
  1316. [ -f "$rrd_vps_path/$resource.rrd" ] || {
  1317. warn "No containers data yet for vps '$vps'... Ignoring"
  1318. return 0
  1319. }
  1320. gnuplot_line_config=(
  1321. "set term qt $i title \"$vps $resource\" replotonresize noraise"
  1322. "set title '$vps'"
  1323. "set xdata time"
  1324. "set timefmt '%s'"
  1325. "set ylabel '${resource//_/\\_} Usage'"
  1326. "set format y '%s'"
  1327. "set ytics format '%g'"
  1328. "set mouse mouseformat 6"
  1329. "set yrange [0:*] "
  1330. "set border behind"
  1331. )
  1332. printf "%s\n" "${gnuplot_line_config[@]}"
  1333. first=1
  1334. for value in 1m:2 5m:3 15m:4; do
  1335. label="${value%:*}"
  1336. col_num="${value#*:}"
  1337. rrdfetch_cmd="'< rrdtool fetch \"$rrd_vps_path/$resource.rrd\""
  1338. rrdfetch_cmd+=" AVERAGE ${opts_rrdfetch[*]} | \\"$'\n'
  1339. rrdfetch_cmd+=" tail -n +2 | \\"$'\n'
  1340. rrdfetch_cmd+=" egrep -v \"^$\" | sed -r \"s/ -?nan/ -/g;s/^([0-9]+): /\\1 /g\"'"
  1341. rrdfetch_cmd_bash=$(eval echo "${rrdfetch_cmd}")
  1342. rrdfetch_cmd_bash=${rrdfetch_cmd_bash#< }
  1343. first_ts=
  1344. first_ts=$(eval "$rrdfetch_cmd_bash" | head -n 1 | cut -f 1 -d " ")
  1345. if [ -z "$first_ts" ]; then
  1346. warn "No data for $resource on vps $vps, skipping..."
  1347. continue
  1348. fi
  1349. last_ts=$(eval "$rrdfetch_cmd_bash" | tail -n 1 | cut -f 1 -d " ")
  1350. if [[ -z "$data_start_ts" ]] || [[ "$data_start_ts" > "$first_ts" ]]; then
  1351. data_start_ts="$first_ts"
  1352. fi
  1353. if [[ -z "$data_stop_ts" ]] || [[ "$data_stop_ts" < "$last_ts" ]]; then
  1354. data_stop_ts="$last_ts"
  1355. fi
  1356. if [ -n "$first" ]; then
  1357. first=
  1358. echo "plot \\"
  1359. else
  1360. echo ", \\"
  1361. fi
  1362. container="${container//\'/}"
  1363. container="${container//@/\\@}"
  1364. echo -n " ${rrdfetch_cmd} u 1:$col_num w lines title '${label}'"
  1365. done
  1366. echo
  1367. }
  1368. cmdline::parse "$@"