HCoop
/
hcoop
/
zz_old
/
domtool2-proto.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ServerAdmin env var for mailmanVhost
[hcoop/zz_old/domtool2-proto.git]
/
src
/
plugins
/
mailman.sml
diff --git
a/src/plugins/mailman.sml
b/src/plugins/mailman.sml
index
9f30e72
..
854c91a
100644
(file)
--- a/
src/plugins/mailman.sml
+++ b/
src/plugins/mailman.sml
@@
-87,6
+87,7
@@
val () = Env.actionV_one "mailmanVhost"
val ssl = Env.env Apache.ssl (env, "SSL")
val user = Env.env Env.string (env, "User")
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 "")
val fullHost = host ^ "." ^ Domain.currentDomain ()
val vhostId = fullHost ^ (if Option.isSome ssl then ".ssl" else "")
@@
-116,8
+117,8
@@
val () = Env.actionV_one "mailmanVhost"
print (Domain.currentDomain ());
print "\n";
print " ServerAdmin ";
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 ";
print " SuexecUserGroup list list\n";
print "\n";
print " ErrorLog ";