HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use proper URL prefix in mailmanVhost redirect
[hcoop/domtool2.git]
/
src
/
plugins
/
mailman.sml
diff --git
a/src/plugins/mailman.sml
b/src/plugins/mailman.sml
index
b716cbd
..
9f30e72
100644
(file)
--- a/
src/plugins/mailman.sml
+++ b/
src/plugins/mailman.sml
@@
-130,7
+130,11
@@
val () = Env.actionV_one "mailmanVhost"
print " RewriteEngine on\n";
print "\n";
print " # Default to showing listinfo page\n";
print " RewriteEngine on\n";
print "\n";
print " # Default to showing listinfo page\n";
- print " RewriteRule ^/$ http://";
+ print " RewriteRule ^/$ http";
+ case ssl of
+ NONE => ()
+ | SOME _ => print "s";
+ print "://";
print fullHost;
print "/listinfo/\n";
print "\n";
print fullHost;
print "/listinfo/\n";
print "\n";
@@
-187,7
+191,7
@@
val () = Slave.registerPostHandler (fn () =>
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "mailman",
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "mailman",
- heading = "Mailman web host mapping",
+ heading = "Mailman web host mapping
:
",
showEmpty = false}])
end
showEmpty = false}])
end