From df107afd3c55830c98eeabff93c347944c44893e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Rapha=C3=ABl=20Gertz?= <git@rapsys.eu>
Date: Mon, 30 Jan 2023 16:24:53 +0100
Subject: [PATCH] Add video packing script

---
 vidpack | 134 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 134 insertions(+)
 create mode 100755 vidpack

diff --git a/vidpack b/vidpack
new file mode 100755
index 0000000..8e07d68
--- /dev/null
+++ b/vidpack
@@ -0,0 +1,134 @@
+#! /bin/sh
+
+#Set temporary directory
+tmpdir=/tmp/vidpack
+
+#Without temporary directory
+if [ ! -d "$tmpdir" ]; then
+	#Create temporary directory or die
+	mkdir -p "$tmpdir" || exit 1;
+fi
+
+#Set time as utc
+export TZ="utc"
+
+#Iterate on each video in cur dir older than 1h
+#for i in `find $docdir -maxdepth 1 -type f,l -name '*.mov' -o -name '*.mp4' -mmin +60`; do
+#for i in `find . -maxdepth 1 -type f \( -name '*.mp4' -o -name '*.avi' -o -name '*.mpg' -o -name '*.mkv' \)`; do
+find . -maxdepth 1 -type f \( -iname '*.mov' -o -iname '*.mp4' -o -iname '*.avi' -o -iname '*.mpg' -o -iname '*.mkv' \) -print0 | while read -d $'\0' i; do
+	#Set file date
+	fdate=$(date -u --rfc-3339=ns -r "$i" | perl -pne 's/\..*$/.000000Z/; s/ /T/');
+
+	#Without file content
+	if [ -s "$i" ]; then
+		#File must not be empty
+		continue;
+	fi
+
+	#Without file date
+	if [ -z "$fdate" ]; then
+		#File date must exists
+		exit 1;
+	fi
+
+	#Set name date
+	#XXX: may miss if filename don't match /^(.*[^0-9])?YYYYMMDD[^0-9]?HHMMSS([^0-9].*)?$/
+	ndate=$(echo "$i" | perl -ne 'print if s/^(?:.*[^0-9])?([0-9]{4})([0-9]{2})([0-9]{2})(?:[^0-9])?([0-9]{2})([0-9]{2})([0-9]{2})(?:[^0-9].*)?$/\1-\2-\3T\4:\5:\6.000000Z/');
+
+	#Without name date
+	if [ -z "$ndate" ]; then
+		#Set name date
+		#XXX: catch when filename match only /^(.*[^0-9])?20YYMMDD([^0-9].*)?$/
+		ndate=$(echo "$i" | perl -ne 'print if s/^(?:.*[^0-9])?(20[0-9]{2})([0-9]{2})([0-9]{2})(?:[^0-9].*)?$/\1-\2-\3T00:00:00.000000Z/');
+	fi
+
+	#Set create date
+	cdate=$(ffprobe -hide_banner -v error -show_entries format_tags=date,creation_time,com.apple.quicktime.creationdate -of default=nokey=1:noprint_wrappers=1 -i "$i" 2> /dev/null | perl -ne '$l = $_ unless /^$/; END { chomp $l; print $l }');
+
+	#Set best date
+	date=$(echo -e "$fdate\n$ndate\n$cdate" | perl -ne '$l = $_ unless /^(0000:00:00 00:00:00|)$/; END { chomp $l; print $l }');
+
+	#Set dest filename
+	dest="$(echo "$i" | perl -pne 's/\.(?:mp4|avi|mpg|mkv)$//').webm";
+
+	#Set passlog filename
+	passlog="$tmpdir/$(echo "$i" | perl -pne 's%(?:.*/)([^/]+)\.(?:mp4|avi|mpg|mkv)$%\1%;s% %_%g')";
+
+	#With passlog file
+	#if [ -f "$passlog-0.log" ]; then
+	#	#Display error
+	#	echo "Operation in progress: $passlog-0.log exists"
+	#
+	#	#Exit with failure
+	#	exit 1;
+	#fi
+
+	#Set source rate
+	sourcerate=$(ffprobe -hide_banner -v quiet -select_streams v:0 -show_entries stream=bit_rate -of default=nokey=1:noprint_wrappers=1 "$i" | perl -ne 'chomp; print');
+
+	#Set bitrate
+	bitrate=256k
+
+	#With sourcerate >= 5120k (1080p)
+	if [ $sourcerate -ge 5120000 ]; then
+		#Set bitrate
+		bitrate=5120k
+	#With sourcerate >= 2560k (720p)
+	elif [ $sourcerate -ge 2560000 ]; then
+		#Set bitrate
+		bitrate=2560k
+	#With sourcerate >= 1024k
+	elif [ $sourcerate -ge 1024000 ]; then
+		#Set bitrate
+		bitrate=1024k
+	#With sourcerate >= 512k
+	elif [ $sourcerate -ge 512000 ]; then
+		#Set bitrate
+		bitrate=512k
+	fi
+
+	#With dest existing
+	if [ ! -f "$dest" ]; then
+		#Without passlog file
+		if [ ! -f "$passlog-0.log" ]; then
+			#First pass
+			#ffmpeg -i "$i" -v error -passlogfile "$passlog" -c:v libaom-av1 -b:v "$bitrate" -pass 1 -an -f null /dev/null < /dev/null;
+			ffmpeg -i "$i" -v error -passlogfile "$passlog" -c:v libvpx-vp9 -b:v "$bitrate" -pass 1 -an -f null /dev/null < /dev/null;
+
+			#With first pass
+			if [ $? != 0 ]; then
+				#Skip to next run
+				continue;
+			fi
+		fi
+
+		#With passlog file
+		if [ -f "$passlog-0.log" ]; then
+			#Second pass
+			#XXX: see http://wiki.webmproject.org/webm-metadata/global-metadata#TOC-Official-Tags
+			#ffmpeg -y -i "$i" -v error -passlogfile "$passlog" -c:v libaom-av1 -b:v "$bitrate" -pass 2 -pix_fmt yuv420p -c:a libopus -movflags +faststart -metadata creation_time="$date" -fflags +bitexact "$dest" < /dev/null;
+			ffmpeg -y -i "$i" -v error -passlogfile "$passlog" -c:v libvpx-vp9 -b:v "$bitrate" -pass 2 -pix_fmt yuv420p -c:a libopus -movflags +faststart -metadata creation_time="$date" -fflags +bitexact "$dest" < /dev/null;
+
+			#With second pass pass
+			if [ $? = 0 ]; then
+				#With non empty dest file
+				#if [ -s "$dest" ]; then
+				#	#Remove source file
+				#	unlink "$i";
+				#fi
+
+				#With passlog file
+				if [ -f "$passlog-0.log" ]; then
+					#Remove passlog file
+					unlink "$passlog-0.log";
+				fi
+			fi
+		fi
+	fi
+done
+
+#Remove temporary directory
+rmdir "$tmpdir" || true;
+
+#Exit with success
+exit 0;
-- 
2.41.0