SOME _ => "443"
| NONE => "80");
print ">\n";
- print " ServerName $LISTDOMAIN\n";
+ print " ServerName ";
+ print host;
+ print ".";
+ print (Domain.currentDomain ());
+ print "\n";
print " ServerAdmin ";
print user;
print "@hcoop.net\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";
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "mailman",
- heading = "Mailman web host mapping",
+ heading = "Mailman web host mapping:",
showEmpty = false}])
end