Use proper URL prefix in mailmanVhost redirect
authorAdam Chlipala <adamc@hcoop.net>
Tue, 4 Dec 2007 13:27:52 +0000 (13:27 +0000)
committerAdam Chlipala <adamc@hcoop.net>
Tue, 4 Dec 2007 13:27:52 +0000 (13:27 +0000)
src/plugins/mailman.sml

index fcfbc7c..9f30e72 100644 (file)
@@ -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";