bin/domtool-server: openssl/mlton/FFI/libssl.h.mlb \
src/domtool-server.mlb src/domtool.lex.sml \
src/domtool.grm.sig src/domtool.grm.sml \
- $(COMMON_DEPS) src/*.sig src/*.sml
+ $(COMMON_DEPS) src/*.sig src/*.sml \
+ src/plugins/*.sig src/plugins/*.sml
mlton -output bin/domtool-server -link-opt -ldl src/domtool-server.mlb
bin/domtool-client: openssl/mlton/FFI/libssl.h.mlb \
src/domtool-client.mlb src/domtool.lex.sml \
src/domtool.grm.sig src/domtool.grm.sml \
- $(COMMON_DEPS) src/*.sig src/*.sml
+ $(COMMON_DEPS) src/*.sig src/*.sml \
+ src/plugins/*.sig src/plugins/*.sml
mlton -output bin/domtool-client -link-opt -ldl src/domtool-client.mlb
bin/domtool-slave: openssl/mlton/FFI/libssl.h.mlb \
"http://hcoop.net/pipermail"]
val logDir = "/var/log/apache2"
+val logDir_real = "/var/log/apache2"
end
val certDir = "/afs/hcoop.net/common/etc/domtool/certs"
val keyDir = "/afs/hcoop.net/common/etc/domtool/keys"
+val serialDir = "/afs/hcoop.net/common/etc/domtool/serials"
val dispatcherName = "deleuze.hcoop.net"
val certDir : string
val keyDir : string
+val serialDir : string
val dispatcherName : string
fun padBy ch amt s =
if size s < amt then
- CharVector.tabulate (amt, fn _ => ch) ^ s
+ CharVector.tabulate (amt - size s, fn _ => ch) ^ s
else
s
val min = readILine inf
val () = TextIO.closeIn inf
+ val serialPath = OS.Path.joinDirFile {dir = Config.serialDir,
+ file = #domain fs}
+
val oldSerial = let
- val inf = TextIO.openIn (OS.Path.joinDirFile {dir = #dir fs,
- file = "serial"})
+ val inf = TextIO.openIn serialPath
in
SOME (readLine inf)
before TextIO.closeIn inf
- end handle IO.Io _ => NONE
+ end handle IO.Io {name, ...} => NONE
val newSerial =
case serial of
"00")
end
- val outf = TextIO.openOut (OS.Path.joinDirFile {dir = #dir fs,
- file = "serial"})
+ val outf = TextIO.openOut serialPath
val _ = TextIO.output (outf, newSerial)
val _ = TextIO.closeOut outf