diff options
Diffstat (limited to 'src')
-rwxr-xr-x | src/samizdat-daily-snapshot-root | 55 | ||||
-rwxr-xr-x | src/samizdat-diff-root | 43 |
2 files changed, 98 insertions, 0 deletions
diff --git a/src/samizdat-daily-snapshot-root b/src/samizdat-daily-snapshot-root new file mode 100755 index 0000000..c57524c --- /dev/null +++ b/src/samizdat-daily-snapshot-root | |||
@@ -0,0 +1,55 @@ | |||
1 | #/bin/sh | ||
2 | [ "$(id -u)" = 0 ] || exec sudo "$0" "$@" || exit | ||
3 | |||
4 | is_subvol() | ||
5 | { | ||
6 | btrfs subvolume show "$1" >/dev/null 2>&1 | ||
7 | } | ||
8 | |||
9 | btrfs_subvolumes() | ||
10 | { | ||
11 | btrfs subvolume list -a -t "${1:-/}" | awk '{print $4}' | sed -Ene 's?^(<FS_TREE>/)\?root/?/?p' | ||
12 | } | ||
13 | |||
14 | snapit() | ||
15 | { | ||
16 | local dev mnt target | ||
17 | |||
18 | mnt=$(mktemp -d /tmp/mnt.XXXXXX) || return | ||
19 | src=$mnt/$1/ | ||
20 | target=$mnt/${2:-daily/}${1%/}~$(date -I) | ||
21 | dev=$(btrfs fi sh / | sed -ne 's/.* path //p' | tail -n1) || return | ||
22 | |||
23 | mount "$dev" -o subvol=/ "$mnt" | ||
24 | if [ -e "$target" ] | ||
25 | then | ||
26 | : | ||
27 | else | ||
28 | mkdir -p "$(dirname "$target")" | ||
29 | btrfs subvolume snapshot -r "$src" "$target" | ||
30 | fi | ||
31 | umount "$mnt" | ||
32 | rmdir "$mnt" | ||
33 | } | ||
34 | |||
35 | do_not_snap() | ||
36 | { | ||
37 | case "${1#/root/}" in | ||
38 | /var/cache/apt/archives|/home/*/.cache|/home/*/src/fsmgr/_build|/home/*/.stack|/home/*/.rustup) | ||
39 | true | ||
40 | ;; | ||
41 | *) | ||
42 | false | ||
43 | ;; | ||
44 | esac | ||
45 | } | ||
46 | |||
47 | snapit /root | ||
48 | |||
49 | btrfs_subvolumes | while read f | ||
50 | do | ||
51 | if is_subvol "$f" | ||
52 | then | ||
53 | do_not_snap "$f" || snapit /root/"${f#/}" | ||
54 | fi | ||
55 | done | ||
diff --git a/src/samizdat-diff-root b/src/samizdat-diff-root new file mode 100755 index 0000000..ea9bb85 --- /dev/null +++ b/src/samizdat-diff-root | |||
@@ -0,0 +1,43 @@ | |||
1 | #!/bin/sh | ||
2 | mp=/mnt/root.tmp | ||
3 | fs=/ | ||
4 | |||
5 | excludes='--exclude /var/log/ --exclude /tmp/' | ||
6 | |||
7 | devs() | ||
8 | { | ||
9 | btrfs fi sh "$fs" | sed -ne 's?^[ \t]*devid[ \t].*/dev?/dev?p' | ||
10 | } | ||
11 | |||
12 | [ $(id -u) = 0 ] || exec sudo "$0" "$@" || exit | ||
13 | |||
14 | if ! [ -e "$mp" ] || ! mountpoint -q "$mp" | ||
15 | then | ||
16 | mkdir -p "$mp" | ||
17 | dev=$(devs | tail -n1) || exit | ||
18 | mount -t btrfs "$dev" -o subvol=/ "$mp" || exit | ||
19 | fi | ||
20 | |||
21 | case $# in | ||
22 | 0) run() | ||
23 | { | ||
24 | rsync -xani $excludes "$mp"/root/ "$mp"/root~orig/ | ||
25 | } | ||
26 | ;; | ||
27 | *) run() | ||
28 | { | ||
29 | for f | ||
30 | do | ||
31 | diff "$mp"/root/"$f" "$mp"/root~orig/"$f" | ||
32 | done | ||
33 | } | ||
34 | ;; | ||
35 | esac | ||
36 | if [ -t 0 ] | ||
37 | then | ||
38 | run "$@" | less | ||
39 | else | ||
40 | run "$@" | ||
41 | fi | ||
42 | |||
43 | umount "$mp" | ||