add untested annex-to-annex-reinject

1 files changed, 29 insertions, 0 deletions

diff --git a/bin/annex-to-annex-reinject b/bin/annex-to-annex-reinject
new file mode 100755
index 00000000..0e95680a
--- /dev/null
+++ b/bin/annex-to-annex-reinject
@@ -0,0 +1,29 @@
+#!/bin/sh
+
+set -e
+
+if [ $# -ne 2 ]; then
+    echo >&2 "usage: annex-to-annex-reinject SOURCEANNEX DESTANNEX"
+    exit 1
+fi
+
+source="$1"
+dest="$2"
+source_annex_dir="$source/$(git -C $source rev-parse --git-path annex)"
+dest_annex_dir="$dest/$(git -C $dest rev-parse --git-path annex)"
+
+if ! [ -d "$source_annex_dir" ]; then
+    echo >&2 "$source doesn't look like a git annex"
+    exit 1
+fi
+if ! [ -d "$dest_annex_dir" ]; then
+    echo >&2 "$dest doesn't look like a git annex"
+    exit 1
+fi
+
+chmod -R u+w "$source_annex_dir/objects"
+find "$source_annex_dir/objects" -type f \
+     -exec git -C "$dest" annex reinject --known '{}' +
+find "$source_annex_dir/objects" -empty -type d -delete
+chmod -R u-w "$source_annex_dir/objects"
+git -C "$source" annex fsck --all --fast