val dispatcher =
Config.dispatcher ^ ":" ^ Int.toString Config.dispatcherPort
-fun hostname () =
- let
- val inf = TextIO.openIn "/etc/hostname"
- in
- case TextIO.inputLine inf of
- NONE => (TextIO.closeIn inf; raise Fail "No line in /etc/hostname")
- | SOME line => (TextIO.closeIn inf; String.substring (line, 0, size line - 1))
- end
-
fun request fname =
let
val uid = Posix.ProcEnv.getuid ()
fun slave () =
let
- val host = hostname ()
+ val host = Slave.hostname ()
val context = OpenSSL.context (Config.certDir ^ "/" ^ host ^ ".pem",
Config.keyDir ^ "/" ^ host ^ "/key.pem",
(* Search through the result configuration hierarchy for all files matching
* the predicate, writing a list of their domains to the file named by the
* third argument, delimiting the entries with the second argument. *)
+
+ val hostname : unit -> string
+ (* Get hostname of this machine *)
end
ErrorMsg.error NONE (msg s)
end
+fun hostname () =
+ let
+ val inf = TextIO.openIn "/etc/hostname"
+ in
+ case TextIO.inputLine inf of
+ NONE => (TextIO.closeIn inf; raise Fail "No line in /etc/hostname")
+ | SOME line => (TextIO.closeIn inf; String.substring (line, 0, size line - 1))
+ end
+
fun concatTo p fname =
let
fun visitDir dname =
end
in
TextIO.closeOut (TextIO.openOut fname);
- visitDir Config.resultRoot
+ visitDir (OS.Path.joinDirFile {dir = Config.resultRoot, file = hostname ()})
end
fun enumerateTo p sep fname =
loop ()
end
in
- visitDir Config.resultRoot;
+ visitDir (OS.Path.joinDirFile {dir = Config.resultRoot, file = hostname ()});
TextIO.closeOut outf
end