From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Tue, 22 Jan 2013 18:57:30 +0000 (-0500)
Subject: bare fwtool regen
X-Git-Tag: release_20130122~1
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/f3bb0ab3a60b605b4e77042d89b3713930f4ddbb

bare fwtool regen
Regenerate all nodes at once
---

diff --git a/src/main-fwtool.sml b/src/main-fwtool.sml
index 18c2ada..2e5fbdb 100644
--- a/src/main-fwtool.sml
+++ b/src/main-fwtool.sml
@@ -22,4 +22,6 @@
 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))