bare fwtool regen
authorClinton Ebadi <clinton@unknownlamer.org>
Tue, 22 Jan 2013 18:57:30 +0000 (13:57 -0500)
committerClinton Ebadi <clinton@unknownlamer.org>
Tue, 22 Jan 2013 18:57:30 +0000 (13:57 -0500)
Regenerate all nodes at once

src/main-fwtool.sml

index 18c2ada..2e5fbdb 100644 (file)
@@ -22,4 +22,6 @@
 val _ =
     OS.Process.exit (case CommandLine.arguments () of
                         "regen" :: nodeName :: rest => Main.requestFirewallRegen nodeName
 val _ =
     OS.Process.exit (case CommandLine.arguments () of
                         "regen" :: nodeName :: rest => Main.requestFirewallRegen nodeName
+                      | ["regen"] => if List.all OS.Process.isSuccess (map Main.requestFirewallRegen Config.Firewall.firewallNodes)
+                                     then OS.Process.success else OS.Process.failure
                       | _ => (print "Usage: fwtool regen NODE\n"; OS.Process.failure))
                       | _ => (print "Usage: fwtool regen NODE\n"; OS.Process.failure))