baksnapper.sh

#! /usr/bin/env bash

# Baksnapper - Backup snapper snapshots to backup location using
# btrfs' incremental send and receive

# SPDX-FileCopyrightText: 2015-2025  Fredrik Salomonsson <plattfot@posteo.net>
# SPDX-FileCopyrightText: 2021       Nathan Dehnel
# SPDX-FileCopyrightText: 2025       Juergen Gleiss
#
# SPDX-License-Identifier: GPL-3.0-or-later

read -rd '' help <<EOF
Usage: $0 [OPTIONS...] [--source] [ADDRESS_SRC:]SOURCE [--dest] [ADDRESS_DST:]DEST
       $0 --config NAME [OPTIONS...] [ADDRESS:]PATH

Backup snapper snapshot from SOURCE to DEST using btrfs incremental
send and receive. ADDRESS_SRC/_DST are specified for remote backups.

Deprecated usage is to use --config NAME for the location of the
snapper config and PATH for a directory containing snapper snapshots.
Then control direction using --type TYPE.

Options:

-a, --all         Send all snapshots in the source directory.  Default
                  is to only send the last one.

--config NAME     Name of config. (deprecated)

--source SOURCE   Source path, sets the same as positional SOURCE.
                  Useful if setting DEST in config file.

--dest DEST       Destination path, sets the same as positional DEST.
                  Useful if setting SOURCE in config file.

--configfile NAME Name of config file to use.

--private-key KEY Specify the private KEY file to use when connecting
                  to a remote backup location.

--src-private-key KEY  Specify the private KEY file to use when
                  connecting to the remote source location.

--dest-private-key KEY  Specify the private KEY file to use when
                  connecting to the remote destination location.

-p, --prune       Prune the backups by deleting snapshots that isn't
                  in the source directory.

--delete LIST     Delete the snapshots at the backup location that are
                  listed in the list then exit.  The list is comma
                  separated.

--daemon BIN      Set the name of the baksnapperd, default is to call
                  baksnapperd.

--delete-all      Delete all backup snapshots for config

--clean           Delete all incomplete backup snapshots for config.
                  Use if backup got interrupted.

--snapshot NUMBER Backup specific snapshot NUMBER, default is the last one.

--type TYPE       Specify either to backup snapshots to a server
                  (push) or to backup snapshots from a server
                  (pull). Default is to push. (deprecated)

--link            Create a "latest" directory linked to the latest snapshot

-v, --verbose     Verbose print out.

-h, --help        Print this help and then exit.

--version         Print version and then exit

Examples:

1)
$0 /.snapshots/ /mnt/backup/root
Backup the last root snapshot to /mnt/backup/root, if it is the first
time it will send the whole snapshot otherwise it will just send what
have changed.

2)
$0 --delete 1,2,3,4 /.snapshots /mnt/backup/root
Delete the root's snapshots 1,2,3 and 4 for from /mnt/backup/root,
will output a warning if a snapshot doesn't exist.

3)
$0 /.snapshots foo:/mnt/backup/root
Same as example 1 except it will send the backups to the remote
machine named foo.

4)
$0 bar:/.snapshots /mnt/backup
Pull snapshots from remote machine bar at location /.snaphosts to
/mnt/backup/root.  Similar behavior as 1 and 3 for how snapshots are
transfered.

Deprecated examples:

1)
$0 --config root /mnt/backup
Backup the last root snapshot to /mnt/backup, if it is the first time
it will send the whole snapshot otherwise it will just send what have
changed.

2)
$0 --delete 1,2,3,4 --config root /mnt/backup
Delete the root's snapshots 1,2,3 and 4 for from /mnt/backup, will
output a warning if a snapshot doesn't exist.

3)
$0 --config root foo:/mnt/backup
Same as example 1 except it will send the backups to the remote
machine named foo.

Note:
This script most likely needs root to be able to backup snapshots.

Exit status:
\t0 if ok.
\t1 if option error (e.g. wrong flag etc).

Author:
Fredrik "PlaTFooT" Salomonsson
EOF

read -rd '' version <<EOF
baksnapper (baksnapper) @VERSION@
Copyright (C) 2015-2025  Fredrik Salomonsson
Copyright (C) 2021       Nathan Dehnel
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
EOF

shopt -s extglob

function cleanup {
    exec 4>&-
    rm -rf "${p_temp_dir}"
}

function exit-msg {
    cleanup
    notify-send -u critical "Done backing up $src_root. Safe to turn off computer."
}


function error {
    echo "[ERROR] $1" 1>&2
    exit 1
}

function warning {
    echo -e "[Warning] $1" 1>&2
}

function read-config {

    # Get value from line
    # 1 [out]: output variable
    # 2 [in]: line to parse value from
    function get-value {
        declare -n out=$1
        out=$(echo "$2" | sed -Ee 's/^[A-Z_ ]+=[ ]*(.*?)/\1/' -e 's/#.*//')
    }

    # Only get value from line if output is unset
    # 1 [out]: output variable
    # 2 [in]: line to parse value from
    function get-value-if-not-set {
        declare -n out=$1
        local value
        get-value value "$2"
        out=${out-$value}
    }

    # Parse value as boolean
    # 1 [out]: output variable
    # 2 [ini: value to interpret as boolean
    function parse-bool {
        declare -n out=$1
        if [[ "$2" =~ YES|yes|Yes|1 ]]
        then
            out=1
        else
            out=0
        fi
    }

    # Only get boolean from line if output is unset
    # 1 [out]: output variable
    # 2 [in]: line to parse as bool
    function get-bool-if-not-set {
        declare -n out=$1
        local value
        get-value value "$2"
        local bool
        parse-bool bool "$value"
        out=${out-$bool}
    }

    while read -r line; do
        case $line in
            CONFIG*=*)
                get-value-if-not-set p_config "$line"
                warning "CONFIG is deprecated, use SOURCE/DEST."
            ;;
            PATH*=*)
                get-value-if-not-set p_dest "$line"
                warning "PATH is deprecated, use SOURCE/DEST."
            ;;
            (SOURCE*([[:blank:]])=*)
                get-value-if-not-set p_src "$line"
            ;;
            (DEST*([[:blank:]])=*)
                get-value-if-not-set p_dest "$line"
            ;;
            DAEMON*=*)
                get-value-if-not-set p_baksnapperd "$line"
                ;;
            PRUNE*=*)
                get-bool-if-not-set p_prune "$line"
                ;;
            ALL*=*)
                get-bool-if-not-set p_all "$line"
                ;;
            VERBOSE*=*)
                get-bool-if-not-set p_verbose "$line"
                ;;
            LINK*=*)
                get-bool-if-not-set p_link "$line"
                ;;
            TYPE*=*)
                get-value-if-not-set p_type "$line"
                warning "TYPE is deprecated, use SOURCE/DEST."
                ;;
            (PRIVATE_KEY*([[:blank:]])=*)
                get-value value "$line"
                p_ssh_args=${p_ssh_args-" -i $value"}
                p_src_ssh_args=${p_src_ssh_args-" -i $value"}
                p_dest_ssh_args=${p_dest_ssh_args-" -i $value"}
                ;;
            (SOURCE_PRIVATE_KEY*([[:blank:]])=*)
                get-value value "$line"
                p_src_ssh_args=${p_src_ssh_args-" -i $value"}
                ;;
            (DEST_PRIVATE_KEY*([[:blank:]])=*)
                get-value value "$line"
                p_dest_ssh_args=${p_dest_ssh_args-" -i $value"}
                ;;
            *)
                ;;
        esac
    done < "$1"
}

# Use getopt to parse the command-line arguments

if ! _args=$(getopt --name "baksnapper" \
             --options "adhvp" \
             --long config: \
             --long configfile: \
             --long source: \
             --long dest: \
             --long delete: \
             --long daemon: \
             --long private-key: \
             --long src-private-key: \
             --long dest-private-key: \
             --long snapshot: \
             --long type: \
             --long all \
             --long delete-all \
             --long clean \
             --long help \
             --long prune \
             --long verbose \
             --long version \
             --long link \
             -- "$@")
then
    error "Try '$0 --help for more information.'"
fi

eval set -- "$_args"

# Default behavior is to backup
p_command="backup"

# Parse options
while [[ $# -gt 0 ]]
do
key=$1
case $key in
    # Commands
    --clean)
        p_command=clean
        shift
        ;;
    --delete)
        p_command=delete
        IFS=',' read -ra p_delete_list <<< "$2"
        shift 2
        ;;
    --delete-all)
        p_command=delete-all
        shift
        ;;
    # Options
    -a|--all)
        p_all=1
        shift
        ;;
    --config)
        p_config="$2"
        warning "--config is deprecated, use position arguments SOURCE DEST."
        shift 2
        ;;
    --configfile)
        read-config "$2"
        shift 2
        ;;
    --source)
        p_src=$2
        shift 2
        ;;
    --dest)
        p_dest=$2
        shift 2
        ;;
    --daemon)
        p_baksnapperd=$2
        shift 2
        ;;
    -h|--help)
        echo -e "$help"
        exit 0
        ;;
    --private-key)
        p_ssh_args=" -i $2"
        p_dest_ssh_args=("-i" "$2")
        p_src_ssh_args=("-i" "$2")
        shift 2
        ;;
    --src-private-key)
        p_src_ssh_args=("-i" "$2")
        shift 2
        ;;
    --dest-private-key)
        p_dest_ssh_args=("-i" "$2")
        shift 2
        ;;
    -p|--prune)
        p_prune=1
        shift
        ;;
    --snapshot)
        p_snapshot=$2
        shift 2
        ;;
    --type)
        p_type=$2
        shift 2
        warning "--type is deprecated, use position arguments SOURCE DEST."
        ;;
    --link)
        p_link=1
        shift
        ;;
    -v|--verbose)
        set -x
        shift
        ;;
    --version)
        echo -e "$version"
        exit 0
        ;;
    --)
        shift
        break
        ;;
esac
done

## Setup #######################################################################
p_baksnapperd=${p_baksnapperd=baksnapperd}
p_all=${p_all=0}

if [[ $# -ge 2 ]]
then
    p_src=$1
    p_dest=$2
fi

#### Deprecated config way of setup ############################################
if [[ -n $p_config ]]
then
    if [[ $# -ge 1 ]]
    then
        p_dest=$1
    fi

    [[ -z $p_dest ]] && error "No path specified!"

    regex='(.*?):(.*)'
    if [[ $p_dest =~ $regex ]]
    then
        address="${BASH_REMATCH[1]}"
        ssh="ssh $p_ssh_args $address"
        dest="${BASH_REMATCH[2]}"
    else
        dest=$p_dest
    fi

    if [[ -n "$ssh" ]]
    then
        # Sanity check for ssh
        $ssh -q test-connection || error "Unable to connect to $address"
    fi

    case ${p_type="push"} in
        pull|PULL)
            sender=${ssh-$p_baksnapperd}
            receiver=$p_baksnapperd
            ;;
        push|PUSH)
            sender=$p_baksnapperd
            receiver=${ssh-$p_baksnapperd}
            ;;
        *)
            error "Unknown type! $p_type"
            ;;
    esac

    if ! receiver_version=$($receiver version)
    then
        receiver_version=1
    fi

    if ! sender_version=$($sender version)
    then
        sender_version=1
    fi

    if [[ $receiver_version -gt 4 ]]
    then
        error "receiver is too new, need to use version 1-4"
    fi

    if [[ $sender_version -gt 4 ]]
    then
        error "sender is too new, need to use version 1-4"
    fi

    # Get the subvolume to backup
    if [[ $sender_version -ge 2 ]]
    then
        subvolume=$($sender get-snapper-root "$p_config")
    else
        if ! subvolume=$($sender list-snapper-snapshots "$p_config")
        then
            error "Something went wrong when fetching the snapper root from sender"
        fi
    fi

    if [[ $sender_version -ge 4 && $($sender snapshot-type) != "snapper" ]]
    then
        error "config interface only supports snapper"
    fi

    if [[ $receiver_version -ge 4 && $($receiver snapshot-type) != "snapper" ]]
    then
        error "config interface only supports snapper"
    fi

    src_root=${subvolume:?}/.snapshots
    dest_root="$dest/$p_config"
elif [[ -n "$p_src" && -n "$p_dest" ]]
then
    # Setup the endpoint's directory and transfer command
    # 1 [out]: will store the root of the endpoint
    # 2 [out]: will store the transfer command for the endpoint
    # 3 [in]: source/dest input
    # 4 [in]...: ssh arguments
    function setup-endpoint {
        declare -n root=$1
        declare -n transfer=$2
        local regex='(.*?):(.*)'
        local ssh
        local address
        local input=$3
        shift 3
        if [[ $input =~ $regex ]]
        then
            address="${BASH_REMATCH[1]}"
            ssh="ssh $* $address"
            root="${BASH_REMATCH[2]}"
            transfer=$ssh

            # Sanity check for ssh
            $ssh -q test-connection || error "Unable to connect to $address"
        else
            # shellcheck disable=SC2034
            root=$input
            # shellcheck disable=SC2034
            transfer=$p_baksnapperd
        fi

    }
    setup-endpoint src_root sender "$p_src" "${p_src_ssh_args[@]}"
    setup-endpoint dest_root receiver "$p_dest" "${p_dest_ssh_args[@]}"

    # Get the version of the daemon
    # 1 [out]: save the version to this variable
    # 2 [in]: variable that contains the baksnapperd command
    function get-daemon-version {
        declare -n version=$1
        if ! version=$(${!2} version)
        then
            version=1
        fi
        if [[ $version -gt 4 ]]
        then
            error "$2 is too new, need to use version 1-4"
        fi
    }
    get-daemon-version sender_version sender
    get-daemon-version receiver_version receiver
else
    error "You need to specify the SOURCE and DEST or the config name to backup!"
fi

# Get what snapshot type the daemon supports
# 1 [out]: variable where it will save the snapshot type.
# 2 [in]: variable that contains the baksnapperd backend
# 3 [in]: the version of the baksnapperd backend
function get-snapshot-type {
    declare -n snapshot_type=$1
    if [[ $3 -ge 4 ]]
    then
        snapshot_type=$(${!2} snapshot-type)
    else
        # shellcheck disable=SC2034
        backend=snapper
    fi
}
get-snapshot-type sender_snapshot_type sender "$sender_version"
get-snapshot-type receiver_snapshot_type receiver "$receiver_version"

# shellcheck disable=SC2154
if [[ "$sender_snapshot_type" != "$receiver_snapshot_type" ]]
then
    error "Sender and receiver expects different snapshot types: sender: \
$sender_snapshot_type, receiver: $receiver_snapshot_type"
fi

snapshot_type=$sender_snapshot_type

# Using a bitmap to represent where a snapshot is located:
# 0b01 → exist at the source
# 0b10 → exist at the destination
# 0b11 → exist at both locations, i.e. common
declare -A common
only_in_src=()
only_in_dest=()

## Setup signals ###############################################################
# EXIT   --> if notify-send is installed, inform the user; always cleanup
if hash notify-send 2> /dev/null
then
    notify-send -u critical "Backing up $src_root. Do not turn off computer!"
    trap exit-msg EXIT
else
    trap cleanup EXIT
fi

# temporary file to store the summary report
p_temp_dir=$(mktemp -d "${TEMP:-/tmp/}$(basename "$0").XXXXX")
p_summary="${p_temp_dir}/summary.txt"
printf "dest_root\tsrc\tdest\tbytes\tstart\tend\tduration\n" >"${p_summary}"

if [[ $receiver_version -ge 4 ]]
then
    $receiver create-location "$dest_root" || error "Problem creating backup location"
else
    $receiver create-config "$dest_root" || error "Problem creating config at backup location"
fi

## Function definitions ########################################################

# - First argument  ... start-time to calculate the duration
# - Second argument ... snapper id
# Function is used by single-backup and incremental-backup
function print-statistics {
    local start_time
    local end_time
    local duration

    start_time="${1}"
    end_time=$(date +%s)
    duration=$(( end_time - start_time ))

    tr -d '\n' < "${p_temp_dir}/${2}" >>"${p_summary}"
    printf "\t%s\t%s\t%s\n" "${start_time}" "${end_time}" "${duration}" >>"${p_summary}"
}


# Gather all the snapshots available at the source.
# src_snapshosts: array containing the snapshots
# num_src_snapshots: the size of src_snapshots
function gather-sender-snapshots {
    # List all the snapshots available
    if [[ $sender_version -ge 2 ]]
    then
        mapfile -t src_snapshots < <($sender list-snapshots "$src_root")
    else
        mapfile -d' ' -t src_snapshots < <($sender list-snapshots "$src_root"|tr -d '\n')
    fi
    num_src_snapshots=${#src_snapshots[@]}
}

# Gather all the snapshots available at the destination.
# dest_snapshosts: array containing the snapshots
# num_dest_snapshots: the size of dest_snapshots
function gather-receiver-snapshots {
    # List all the snapshots at the backup location
    if [[ $receiver_version -ge 2 ]]
    then
        mapfile -t dest_snapshots < <($receiver list-snapshots "$dest_root")
    else
        mapfile -d' ' -t dest_snapshots < <($receiver list-snapshots "$dest_root"|tr -d '\n')
    fi
    num_dest_snapshots=${#dest_snapshots[@]}
}

# Compare source and destination location and sort the snapshots into:
# common: exist at both locations
# only_in_src: only exist at the source
# only_in_dest: only exist at the destination
function compare-snapshots {
    idx_src=0
    idx_dest=0
    only_in_src=()
    only_in_dest=()
    # NOTE: the snapshots must be sorted in ascending order hence the
    # "sort -g" when getting the snapshots.
    while (( idx_src < num_src_snapshots && idx_dest < num_dest_snapshots ))
    do
        if [[ "${src_snapshots[idx_src]}" == "${dest_snapshots[idx_dest]}" ]]
        then
            common["${src_snapshots[idx_src]}"]=0b11
            ((++idx_src))
            ((++idx_dest))
        elif [[ "${src_snapshots[idx_src]}" < "${dest_snapshots[idx_dest]}" ]]
        then
            only_in_src+=("${src_snapshots[idx_src]}")
            ((++idx_src))
        else
            only_in_dest+=("${dest_snapshots[idx_dest]}")
            ((++idx_dest))
        fi
    done

    # Add the rest to respective array.
    for (( ; idx_dest < num_dest_snapshots; ++idx_dest ))
    do
        only_in_dest+=("${dest_snapshots[idx_dest]}")
    done

    for (( ; idx_src < num_src_snapshots; ++idx_src ))
    do
        only_in_src+=("${src_snapshots[idx_src]}")
    done
}

# First argument is the snapshot to send.
function single-backup {
    local start_time
    start_time=$(date +%s)

    if [[ "$snapshot_type" == "snapper" ]]
    then
        $receiver create-snapshot "$dest_root" "$1" ||
            error "Failed to create snapshot at backup location!"

        if ! $sender send-info "$src_root" "$1" | $receiver receive-info "$dest_root" "$1"
        then
            $receiver remove-broken-snapshot "$dest_root" "$1"
            error "Failed to send snapshot info!"
        fi
    fi
    printf "%s\t\t%s\t" "${dest_root}" "${1}" >>"${p_summary}"
    exec 4>"${p_temp_dir}/${1}"
    if ! $sender send-snapshot "$src_root" "$1" | tee >( wc -c >&4 ) | $receiver receive-snapshot "$dest_root" "$1"
    then
        $receiver remove-broken-snapshot "$dest_root" "$1"
        error "Failed to send snapshot!"
    fi
    exec 4>&-

    print-statistics "${start_time}" "${1}"
}

# First argument is the reference snapshot and the second is the
# snapshot to backup. It will only send the difference between the
# two.
function incremental-backup {
    local start_time
    local end_time
    local duration
    start_time=$(date +%s)

    echo "Incremental backup $1 $2"
    if [[ "$snapshot_type" == "snapper" ]]
    then
        $receiver create-snapshot "$dest_root" "$2" ||
            error "Failed to create snapshot at backup location!"

        if ! $sender send-info "$src_root" "$2" | $receiver receive-info "$dest_root" "$2"
        then
            $receiver remove-broken-snapshot "$dest_root" "$1"
            error "Failed to send snapshot info!"
        fi
    fi
    printf "%s\t%s\t%s\t" "${dest_root}" "${1}" "${2}" >>"${p_summary}"
    exec 4>"${p_temp_dir}/${2}"
    if ! $sender send-incremental-snapshot "$src_root/"{"$1","$2"} \
            | tee >( wc -c >&4 ) | $receiver receive-snapshot "$dest_root" "$2"
    then
        $receiver remove-broken-snapshot "$dest_root" "$1"
        error "Failed to send snapshot!"
    fi
    exec 4>&-

    print-statistics "${start_time}" "${2}"
}

# Goes over the dest snapshots and delete any broken or incomplete.
function cleanup-broken-snapshots {
    for snapshot in "${dest_snapshots[@]}"
    do
        if $receiver incomplete-snapshot "$dest_root" "$snapshot"
        then
            $receiver remove-broken-snapshot  "$dest_root" "$snapshot"
        fi
    done
}

# Main logic for the backup
function backup {
    if [[ $num_src_snapshots == 0 ]]
    then
        error "No snapshots found."
    fi

    if [[ -z $p_snapshot ]]
    then
        p_snapshot=${src_snapshots[-1]}
    else
        $sender verify-snapshot "$src_root/$p_snapshot" || exit 1
    fi

    local num_src_only=${#only_in_src[@]}
    if [[ "$num_src_only" == 0 ]]
    then
        echo "Already backed up all snapshots"
        return 0
    fi

    if [[ $receiver_version -ge 3 ]]
    then
        echo "Clean up any broken or incomplete snapshots at destination"
        cleanup-broken-snapshots
        # snapshots at dest could have be removed, gather the snapshots again.
        gather-receiver-snapshots
        compare-snapshots
    fi

    # Destination doesn't have any snapshots, send the whole snapshot.
    if [[ "${#common[@]}" == 0 ]]
    then
        echo "Initialize backup"
        if [ "$p_all" -eq 1 ]
        then
            # Send the first snapshot as a whole then the rest will be
            # sent incremental.
            local snapshot=${only_in_src[0]}
            # Pop the one that got sent from the array.
            only_in_src=("${only_in_src[@]:1}")
            ((--num_src_only))
            single-backup "$snapshot"
            common["$snapshot"]=0b11
        else
            # Send the specified snapshot
            single-backup "$p_snapshot"
            return 0
        fi
    fi

    # If source only contained one snapshot, then we are done.
    if [[ "$num_src_only" == 0 ]]
    then
        return 0
    fi

    # Find the first common snapshot that is lower than the specified
    # snapshot.
    #
    # 1 [out]: parent snapshot
    # 2 [in]: snapshot
    function find-parent {
        declare -n out=$1
        local snapshot=$2
        local idx=${num_src_snapshots}-1
        for (( ; idx >= 0; --idx ))
        do
            if [[ "${src_snapshots[idx]}" < "$snapshot" && \
                      ${common[${src_snapshots[idx]}]} == 0b11 ]]
            then
                break
            fi
        done
        out=${src_snapshots[idx]}
    }

    if [[ $p_all == 0 ]]
    then
        # Check that it's not already synced
        if [[ ${common[$p_snapshot]} == 0b11 ]]
        then
            error "Already synced snapshot $p_snapshot."
        fi
        local parent
        find-parent parent "$p_snapshot"
        incremental-backup "$parent" "$p_snapshot"
        return 0
    else
        # Find the first common snapshot that is lower than the first
        # source only snapshot. This will be the start of the incremental
        # backup. If no one is found it will use the lowest common one.
        first_src_snapshot="${only_in_src[0]}"
        find-parent parent "$first_src_snapshot"
        incremental-backup "$parent" "$first_src_snapshot"
        common["${src_snapshots[idx]}"]=0b11
        for (( src_idx = 1; src_idx < num_src_only; ++src_idx ))
        do
            # Find the next source snapshot to send
            local src_snapshot=${only_in_src[src_idx]}
            for (( ; idx < num_src_snapshots; ++idx ))
            do
                if [[ "${src_snapshots[idx]}" == "$src_snapshot" ]]
                then
                    break
                fi
            done
            # Use the common snapshot previous to it as the parent
            incremental-backup "${src_snapshots[idx-1]}" "$src_snapshot"
            common["$src_snapshot"]=0b11
        done
    fi
}

## Main ########################################################################
gather-sender-snapshots
gather-receiver-snapshots
compare-snapshots

case $p_command in
    clean)
        if [[ $receiver_version -lt 3 ]]
        then
            error "Daemon is too old, got version $receiver_version, need at least version 3."
        fi
        cleanup-broken-snapshots
        ;;
    delete)
        $receiver remove-snapshots "$dest_root" "${p_delete_list[@]}"
        ;;
    delete-all)
        echo -n "Are you sure you want to delete all backup snapshots from $dest_root? (y/N): "
        while true
        do
            read -r answer
            case $answer in
                y|Y)
                    $receiver remove-snapshots "$dest_root" "${dest_snapshots[@]}"
                    break
                    ;;
                n|N|"")
                    ;;
                *)
                    echo -ne "Please answer y or n.\n(y/N): "
                    ;;
            esac
        done
        ;;
    *) # Default to running the backup
        backup
    ;;
esac

if [[ ${p_prune-0} == 1 ]]
then
    $receiver remove-snapshots "$dest_root" "${only_in_dest[@]}"
fi

if [[ $p_link -eq 1 ]]
then
    $receiver link-latest "$dest_root"
fi

echo "--- Statistics ---"
cat "${p_summary}"
echo "--- Statistics ---"