Script for finding images lacking alt text in the Open Problem Library.

findImages.sh

#!/bin/sh
# Dave Rosoff, August 2014
# Run this script from the root of the OPL, e.g.
# /opt/webwork/libraries/webwork-open-problem-library/OpenProblemLibrary

imglist=list
touch $imglist
grep -r -P -l "image\s*\(" >> $imglist

flagMissingAlt.bash

#!/bin/bash
# Dave Rosoff, August 2014
# Note that this script is potentially destructive
# It will overwrite previous versions of its logfile.
# Use the accompanying script findImages.sh to generate
# the list file
# Run this script from the root of the OPL, e.g.
# /opt/webwork/libraries/webwork-open-problem-library/OpenProblemLibrary

logfile="MissingImages.log" # change this to something suitable
for file in `cat ~/fiximages/list`; do # update the filename appropriately
	isalt=`sed -n '
	/image/ {
		N
		/image.*alt/ {
			p	
		}
		D
	} ' $file`
	if [ "$isalt" = "" ]; then
		echo $file >> $logfile
	fi
done

TODO: rewrite this to use Text::Balanced instead of sed.