Support for reusing a generated set of child keys

1 files changed, 44 insertions, 0 deletions

diff --git a/src/store-child-permanently b/src/store-child-permanently
new file mode 100755
index 0000000..463f776
--- /dev/null
+++ b/src/store-child-permanently
@@ -0,0 +1,44 @@
+#!/bin/sh
+
+. samizdat-paths.sh
+
+error()
+{
+  printf 'Error: %s\n' "${*:-command failed}" >&2
+  exit 1
+}
+
+warning()
+{
+  printf 'Warning: %s\n' "${*:-something went wrong}" >&2
+}
+
+store_tmpfs()
+{
+  local dir="$1"
+  mountpoint -q "$dir"       || return 0
+  [ ! -d "$dir".backup ]     || error "existing child backup found: '$dir.backup'.  Refusing to continue."
+  cp -a "$dir" "$dir".backup || error "failed to make copy of child."
+  umount "$dir"              || error "failed to unmount child tmpfs"
+  rmdir "$dir"               || mv -Tb "$dir" "$dir".unlikely
+  mv -T "$dir".backup "$dir" || error "failed to move copied child dir into place.  Child will not function!"
+}
+
+assert_root()
+{
+  [ "$(id -u)" = 0 ] || error "you are not root"
+}
+
+main()
+{
+  assert_root
+  child=$1
+  [ "$child" ] || usage
+  if [ -d "$samizdat_child_dir"/child."$child" ]; then
+    store_tmpfs "$samizdat_child_dir"/child."$child"
+  else
+    error "not a valid child: $child"
+  fi
+}
+
+main "$@"