X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/f924c1cf6ee6ac92e7606b2d9577a130e89912e5..4e432cbb02c2001884be392701bd3344bd5a47f5:/src/plugins/mailman.sml

diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index 4a2bfeb..6a3b0e1 100644
--- a/src/plugins/mailman.sml
+++ b/src/plugins/mailman.sml
@@ -83,6 +83,7 @@ val () = Env.actionV_one "mailmanVhost"
 		 val places = Env.env (Env.list mailmanPlace) (env, "MailmanPlaces")
 
 		 val ssl = Env.env Apache.ssl (env, "SSL")
+		 val forcessl = Env.env Env.bool (env, "MailmanForceSSL")
 		 val user = Env.env Env.string (env, "User")
 		 val sadmin = Env.env Env.string (env, "ServerAdmin")
 
@@ -126,6 +127,15 @@ val () = Env.actionV_one "mailmanVhost"
 			     print "    ServerAdmin ";
 			     print sadmin;
 			     print "\n";
+			     case ssl of
+				 SOME cert =>
+				 (print "\n\tSSLEngine on\n\tSSLCertificateFile ";
+				  print cert;
+				  print "\n")
+			       | NONE => if forcessl then
+					     (print "\tRewriteRule ^(.*)$ https://%{HTTP_HOST}$1 [R,L]\n")
+					 else
+					     ();
 			     (*
                              print "    SuexecUserGroup list list\n";
 			     print "\n";