#!/bin/sh -Cefu


set -Cefu


cd /home/ketas/files/exif-symlinks || exit 1


verbose=

dirs=


case "$*"
in
	*v*) verbose=1 ;;
esac


while read dirname
do
	case "$dirname"
	in
		\#*)
			;;
		
		*)
			if [ -d "$dirname" -a ! -L "$dirname" ]
			then
				if [ "$verbose" ]
				then
					echo "$0: '$dirname'"
				fi
				
				
				dirs="$dirs $dirname"
			fi
			;;
	esac
done \
< dirs.txt


if [ ! "$dirs" ]
then
	exit 1
fi


find -E \
$dirs \
-type f \
-iregex '^.+(((img|mvi)_|_dsc)[0-9]{4}|[0-9]{8}_[0-9]{6}.*)\.(jpg|avi|mov|mp4)$' \
\
| ./exif-symlinks.pl "$*"