#
#BAK 18 Sep 2000
#simple script to fix file permissions to make files more
#readable. If the file has user read permission,
#give read permission to group and other. If file
#has x permission (ie executable or directory) then
#add rx for group and other. The perm '-400'
#means 'at least 400'.

# I don't think the 'find .' construct works on SGIs

find . -perm -400 -exec chmod go+r {} \;

find . -perm -500 -exec chmod go+rx {} \;

#check for any problems

#~bak/commands/finddir.noread
#~bak/commands/findfil.noread
finddir.noread
findfil.noread