Index: vhosts/vhosts-vhost-names.gen.sh
===================================================================
--- vhosts/vhosts-vhost-names.gen.sh	(revision 358)
+++ vhosts/vhosts-vhost-names.gen.sh	(revision 398)
@@ -1,4 +1,16 @@
 #!/bin/sh
-cd /mit/scripts/vhosts/settings/ || exit 1
+cd settings || exit 1
+vhosts=
+check () {
+    host -t A "$1" | grep -q " has address 18\.181\.0\.46$" && \
+	vhosts=$vhosts\ $1
+}
+for i in *; do
+    check "$i" || echo "warning: $i does not point to scripts!"
+    check "www.$i"
+    if echo "$i" | grep -q '\.mit\.edu$'; then
+	check "$(echo "$i" | sed 's/\.mit\.edu$//')"
+    fi
+done
 echo "ServerName vhosts.mit.edu"
-echo -n "ServerAlias "; echo * | perl -pe 's/(\S+)\.mit\.edu/\1.mit.edu \1/g'
+echo "ServerAlias$vhosts"