install-substitutions: insist on webstump 022

diff --git a/install-substitutions b/install-substitutions
index 9bcee54da8a0182e7f93432b6408f914ee912735..74e90435ee13dbe00dd1407ca2b4f353ff658539 100755 (executable)
--- a/install-substitutions
+++ b/install-substitutions
@@ -13,6 +13,14 @@ 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 '
        use IO::Handle;
        use POSIX;