Index: server/common/oursrc/accountadm/vhostadd
===================================================================
--- server/common/oursrc/accountadm/vhostadd	(revision 765)
+++ server/common/oursrc/accountadm/vhostadd	(revision 827)
@@ -27,4 +27,6 @@
 IFS=: read user x uid gid x home x <<< "$pw"
 
+user_dn=$(ldapsearch -LLL -x -b ou=People,dc=scripts,dc=mit,dc=edu '(uid=andersk)' dn | perl -0pe 's/\n //g; s/^dn: //')
+
 printf "Docroot: $home/web_scripts" >&2
 read subdir
@@ -50,4 +52,20 @@
 apacheSuexecUid: $uid
 apacheSuexecGid: $gid
+
+dn: scriptsVhostName=$host,ou=VirtualHosts,dc=scripts,dc=mit,dc=edu
+objectClass: scriptsVhost
+objectClass: top
+scriptsVhostName: $host
+EOF
+
+if [ "${host%mit.edu}" != "$host" ]; then
+    cat <<EOF >> "$tmpfile"
+scriptsVhostAlias: ${host%.mit.edu}
+EOF
+fi
+
+cat <<EOF >> "$tmpfile"
+scriptsVhostAccount: $user_dn
+scriptsVhostDirectory: ${subdir#/}
 EOF