+
+if [[ $images = 1 ]]; then
+ # copy system images from Dobudish directory
+ image_list=$(mktemp)
+ perl -nle 'print $1 while m{ (?: \.\./ )+ ( system/ [^\"]+ ) }xg' ${doc}/html/*.html | sort | uniq > $image_list
+ if [[ -s $image_list ]]; then
+ tar -c -f - -T $image_list | tar -x -f - -C ${doc}/html
+ perl -pi -e 's{ (\.\./)+ system }{system}xg' ${doc}/html/*.html
+ fi
+
+ rm $image_list
+fi