Int.toString uid,
" { goto user_",
uname,
- "_tcp_in goto lreject; }\n"])),
+ "_tcp_in; goto lreject; }\n"])),
in_lines)
val confLine_out = confLine ((fn (uid, uname) =>
in
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
- String.concat ("chain users_"
+ String.concat ("chain user_"
:: uname
:: "_tcp_in proto tcp {\n"
:: lines
@ ["}\n\n"]))) (!in_lines);
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
- String.concat ("chain users_"
+ String.concat ("chain user_"
:: uname
:: "_tcp_out proto tcp {\n"
:: lines