Index: Mk/Scripts/qa.sh
===================================================================
--- Mk/Scripts/qa.sh
+++ Mk/Scripts/qa.sh
@@ -270,8 +270,19 @@
 	fi
 }
 
-checks="shebang symlinks paths stripped desktopfileutils sharedmimeinfo suidfiles libtool libperl prefixvar"
+wwwdir() {
+        if [ ${WWWDIR} ]; then
+		if [ $(find ${WWWDIR}/ -type d -maxdepth 0 -user ${WWWOWN} -perm +0700) ]; then
+			warn "${WWWDIR} is writable by user ${WWWOWN}"
+		fi
+	else
+		if [ $(find ${WWWDIR}/ -type d -maxdepth 0 -group ${WWWGRP} -perm +0070) ]; then
+			warn "${WWWDIR} is writable by group ${WWWGRP}"
+		fi
+	fi
+}
 
+checks="shebang symlinks paths stripped desktopfileutils sharedmimeinfo suidfiles libtool libperl prefixvar wwwdir"
 ret=0
 cd ${STAGEDIR}
 for check in ${checks}; do