+
+if [ "x$1" = "x-n" ]; then
+ diffonly=1; diffsparse=0; shift
+elif [ "x$1" = "x-nq" ]; then
+ diffonly=1; diffsparse=1; shift
+else
+ diffonly=0; diffsparse=-1
+fi
+
+if [ $# != 0 ]; then echo >&2 "usage: ./${0##*/} [-n]"; exit 1; fi
+
+. ./get-settings
+
+if [ x"`whoami`" != x"$OURUSER" ]; then
+ echo >&2 "$0 must be run as $OURUSER, skipping"
+ exit 0
+fi
+
+# procmail insists on g-w
+umask 022
+
+find -name '*.IN[O1]' ! -path '*/skeleton/*' -exec perl -e '