HCoop
/
hcoop
/
domtool2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7ceba96
)
Firewell: Concat $WEBNODES list using space instead of comma
release_20121207
author
Clinton Ebadi
<clinton@unknownlamer.org>
Fri, 7 Dec 2012 20:25:04 +0000
(15:25 -0500)
committer
Clinton Ebadi
<clinton@unknownlamer.org>
Fri, 7 Dec 2012 20:25:04 +0000
(15:25 -0500)
src/plugins/firewall.sml
patch
|
blob
|
blame
|
history
diff --git
a/src/plugins/firewall.sml
b/src/plugins/firewall.sml
index
9fd64f9
..
cb2893b
100644
(file)
--- a/
src/plugins/firewall.sml
+++ b/
src/plugins/firewall.sml
@@
-140,7
+140,7
@@
fun generateFirewallConfig {server_rules, client_rules} =
let
in
TextIO.output (outf, String.concat ["@def $WEBNODES = (",
let
in
TextIO.output (outf, String.concat ["@def $WEBNODES = (",
- (String.concatWith "
,
" (List.map (fn (_, ip) => ip)
+ (String.concatWith " " (List.map (fn (_, ip) => ip)
(List.filter (fn (node, _) => List.exists (fn (n) => n = node) (List.map (fn (node, _) => node) (Config.Apache.webNodes_all @ Config.Apache.webNodes_admin)))
Config.nodeIps))),
");\n\n"]);
(List.filter (fn (node, _) => List.exists (fn (n) => n = node) (List.map (fn (node, _) => node) (Config.Apache.webNodes_all @ Config.Apache.webNodes_admin)))
Config.nodeIps))),
");\n\n"]);