Index: /server/common/oursrc/accountadm/signup-scripts-backend.in
===================================================================
--- /server/common/oursrc/accountadm/signup-scripts-backend.in	(revision 826)
+++ /server/common/oursrc/accountadm/signup-scripts-backend.in	(revision 827)
@@ -104,5 +104,5 @@
 
 dn: apacheServerName=$username.scripts.mit.edu,ou=VirtualHosts,dc=scripts,dc=mit,dc=edu
-objectclass: apacheConfig
+objectClass: apacheConfig
 apacheServerName: $username.scripts.mit.edu
 apacheServerAlias: $username.scripts
@@ -110,4 +110,11 @@
 apacheSuexecUid: $uid1
 apacheSuexecGid: $gid1
+
+dn: scriptsVhostName=$username.scripts.mit.edu,ou=VirtualHosts,dc=scripts,dc=mit,dc=edu
+objectClass: scriptsVhost
+scriptsVhostName: $username.scripts.mit.edu
+scriptsVhostAlias: $username.scripts
+scriptsVhostAccount: uid=$username,ou=People,dc=scripts,dc=mit,dc=edu
+scriptsVhostDirectory: 
 
 EOF
Index: /server/common/oursrc/accountadm/vhostadd
===================================================================
--- /server/common/oursrc/accountadm/vhostadd	(revision 826)
+++ /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