Firewell: Concat $WEBNODES list using space instead of comma release_20121207
authorClinton Ebadi <clinton@unknownlamer.org>
Fri, 7 Dec 2012 20:25:04 +0000 (15:25 -0500)
committerClinton Ebadi <clinton@unknownlamer.org>
Fri, 7 Dec 2012 20:25:04 +0000 (15:25 -0500)
src/plugins/firewall.sml

index 9fd64f9..cb2893b 100644 (file)
@@ -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"]);