#!/bin/sh
# TEST v1.1  (c) 22.6.2001 by Andreas Ley  (u) 5.7.2001
# 

(echo /usr/install/common/machine /usr/install-*/machine /usr/install/common/machine/etc /usr/install-*/machine/etc | tr \  \\012
find /usr/install/common/machine/etc/httpd /usr/install-*/machine/etc/httpd -type d -print) | \
while read dir; do
	#echo "Checking ${dir}"
	perm=`stat -bO ${dir} | sed 's/.*\(....\)$/\1/'`
	case ${perm} in
		0555|3775)	:;;
		*)	echo "${perm} ${dir}";;
	esac
done

find /usr/install/common/machine/etc/httpd /usr/install-*/machine/etc/httpd -type f -print | \
while read file; do
	#echo "Checking ${file}"
	perm=`stat -bO ${file} | sed 's/.*\(....\)$/\1/'`
	case ${perm} in
		0555|4555|4554|0444)	:;;
		*)	echo "${perm} ${file}";;
	esac
done

exit 0