#!/bin/bash -e
mkdir -p pix
cd info
for P in *; do
	<"$P" perl -naF'/\t/' -e 'print $F[1] if /(icon|pic) \.src:/' |
	perl -pe 's{^/mnt/(utmp|pnd)/[^/]+/}{}; s{^/}{}' |
	uniqo |
	while read I; do
		I=${I#./}
		[ -n "$I" ] || continue
		I_=${I//\//_}
		ln -sf ../mnt/"$P"/"$I" ../pix/"$P"__"$I_"
	done
done
cd ..
cd pix
deadlinks . > 0missing.txt
deadlinks . | xa rm
albumq