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))