../openssl_sml.h
%.lex.sml: %.lex
- ml-lex $<
+ mllex $<
%.grm.sig %.grm.sml: %.grm
- ml-yacc $<
+ mlyacc $<
bin/domtool-server: openssl/mlton/FFI/libssl.h.mlb \
src/domtool-server.mlb src/domtool.lex.sml \
fun your_paths () = !your_pths
fun setUser user =
- (usr := Config.testUser;
+ (usr := user;
your_doms := Acl.class {user = getUser (),
class = "domain"};
your_usrs := Acl.class {user = getUser (),
val user = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid)
val context = OpenSSL.context (Config.certDir ^ "/" ^ user ^ ".pem",
- Config.keyDir ^ "/" ^ user ^ ".pem",
+ Config.keyDir ^ "/" ^ user ^ "/key.pem",
Config.trustStore)
val bio = OpenSSL.connect (context, dispatcher)
val host = hostname ()
val context = OpenSSL.context (Config.certDir ^ "/" ^ host ^ ".pem",
- Config.keyDir ^ "/" ^ host ^ ".pem",
+ Config.keyDir ^ "/" ^ host ^ "/key.pem",
Config.trustStore)
val sock = OpenSSL.listen (context, Config.slavePort)