HCoop
/
hcoop
/
zz_old
/
fwtool.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ed33c04
)
Bug fixes
master
origin
author
Adam Chlipala
<adamc@hcoop.net>
Sun, 2 Oct 2005 16:12:02 +0000
(16:12 +0000)
committer
Adam Chlipala
<adamc@hcoop.net>
Sun, 2 Oct 2005 16:12:02 +0000
(16:12 +0000)
fwtool.sml
patch
|
blob
|
blame
|
history
diff --git
a/fwtool.sml
b/fwtool.sml
index
55ec010
..
8fe1dfc
100644
(file)
--- a/
fwtool.sml
+++ b/
fwtool.sml
@@
-47,7
+47,7
@@
fun main _ =
Int.toString uid,
" { goto user_",
uname,
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_lines)
val confLine_out = confLine ((fn (uid, uname) =>
@@
-100,14
+100,14
@@
fun main _ =
in
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
in
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
- String.concat ("chain user
s
_"
+ String.concat ("chain user_"
:: uname
:: "_tcp_in proto tcp {\n"
:: lines
@ ["}\n\n"]))) (!in_lines);
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
:: uname
:: "_tcp_in proto tcp {\n"
:: lines
@ ["}\n\n"]))) (!in_lines);
StringMap.appi (fn (uname, lines) =>
TextIO.output (users_conf,
- String.concat ("chain user
s
_"
+ String.concat ("chain user_"
:: uname
:: "_tcp_out proto tcp {\n"
:: lines
:: uname
:: "_tcp_out proto tcp {\n"
:: lines