extern val mailmanVhost : host -> [Domain]
{MailmanPlaces : [mailman_place],
SSL : ssl,
- User : your_user};
+ User : your_user,
+ ServerAdmin : email};
{{Create an Apache virtual host to serve as the web interface for some Mailman
lists.}}
val ssl = Env.env Apache.ssl (env, "SSL")
val user = Env.env Env.string (env, "User")
+ val sadmin = Env.env Env.string (env, "ServerAdmin")
val fullHost = host ^ "." ^ Domain.currentDomain ()
val vhostId = fullHost ^ (if Option.isSome ssl then ".ssl" else "")
print (Domain.currentDomain ());
print "\n";
print " ServerAdmin ";
- print user;
- print "@hcoop.net\n";
+ print sadmin;
+ print "\n";
print " SuexecUserGroup list list\n";
print "\n";
print " ErrorLog ";