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 (),
TextIO.output (outf, "\" IN {\n\ttype ");
TextIO.output (outf, kind);
TextIO.output (outf, ";\n\tfile \"");
- TextIO.output (outf, Config.Bind.zonePath);
+ TextIO.output (outf, Config.Bind.zonePath_real);
TextIO.output (outf, "/");
TextIO.output (outf, dom);
TextIO.output (outf, ".zone\";\n");