1 files changed, 60 insertions, 0 deletions
diff --git a/extras/defrag.sh b/extras/defrag.sh
new file mode 100644
index 00000000000..465b0979488
--- /dev/null
+++ b/extras/defrag.sh
@@ -0,0 +1,60 @@
+#!/bin/sh
+
+# This script gets called from 'scale-n-defrag.sh' script.
+# Don't run this stand alone.
+# 
+#
+
+set -e
+
+CP="cp"
+MV="mv"
+
+scan_dir()
+{
+    path=$1;
+    find "$path" -type f -perm +01000 -exec $0 '{}' \; 
+}
+
+rsync_filename()
+{
+    path=$1
+    dir=$(dirname "$path");
+    file=$(basename "$path");
+
+    echo "$dir/.$file.zr$$";
+}
+
+relocate_file()
+{
+    path=$1;
+    tmp_path=$(rsync_filename "$path");
+
+    pre_mtime=$(stat -c '%Y' "$path");
+    $CP -a "$path" "$tmp_path";
+    post_mtime=$(stat -c '%Y' "$path");
+
+    if [ $pre_mtime = $post_mtime ]; then
+	chmod -t "$tmp_path";
+	$MV "$tmp_path" "$path";
+	echo "file '$path' relocated" 
+    else
+	echo "file '$path' modified during defrag. skipping"
+	rm -f "$tmp_path";
+    fi
+}
+
+main()
+{
+    path="$1";
+
+    if [ -d "$path" ]; then
+	scan_dir "$path";
+    else
+	relocate_file "$@";
+    fi
+
+    usleep 500000 # 500ms
+}
+
+main "$1"