- let
- val realLogDir = Domain.homedirOf (valOf user)
- val realLogDir = OS.Path.joinDirFile
- {dir = realLogDir,
- file = "apache"}
- val realLogDir = OS.Path.joinDirFile
- {dir = realLogDir,
- file = "log"}
- val realLogDir = OS.Path.joinDirFile
- {dir = realLogDir,
- file = Slave.hostname ()}
- val {base, ...} = OS.Path.splitBaseExt (#file spl)
-
- val realLogDir = OS.Path.concat (realLogDir, base)
- in
- if String.isSuffix ".vhost_ssl" (#file spl) then
- realLogDir ^ ".ssl"
- else
- realLogDir
- end
+ logDir {user = valOf user,
+ node = Slave.hostname (),
+ vhostId = vhostId}