From: James Bunton <jamesbunton@delx.net.au>
Date: Sun, 9 Feb 2014 09:12:15 +0000 (+1100)
Subject: gen-new-list
X-Git-Url: https://code.delx.au/mediapc-tools/commitdiff_plain/95809cb75c985ef101736386582da2c7a92fc43a

gen-new-list
---

diff --git a/gen-new-list b/gen-new-list
new file mode 100755
index 0000000..ddab94a
--- /dev/null
+++ b/gen-new-list
@@ -0,0 +1,24 @@
+#!/bin/bash
+
+set -e
+
+if [ -z "$1" ]; then
+	echo "Usage: $0 /path/to/videos [new-link-dir] [num_days]"
+	exit 1
+fi
+
+watch_dir="$1"
+new_link_dir="${2:-${watch_dir}/-NEW-}"
+num_days="${3:-14}"
+
+find "$watch_dir/-NEW-" -type l -delete
+
+find "$watch_dir" -type f -mtime "-${num_days}" |
+	while read line; do
+		if basename "$line" | grep -q '^\.'; then
+			continue
+		fi
+		linkname="$(echo "$line" | sed -e "s|$watch_dir/||" -e "s|/| - |g")"
+		ln -s "$line" "$watch_dir/-NEW-/$linkname"
+	done
+