zoneconf.in: More master-map hacking: !ADDR means ADDR!ADDR.

[zoneconf] / zoneconf.in

diff --git a/zoneconf.in b/zoneconf.in
index 4a6713f98dfe927e6f575e8519a39fa174ef1aa9..edf11841bcb4b0d9828e0ca1b950182409613b7b 100755 (executable)
--- a/zoneconf.in
+++ b/zoneconf.in
@@ -1152,8 +1152,12 @@ proc compute-zone-properties {view config} {
        foreach host $hosts {
          set bang [string first "!" $host]
          if {$bang >= 0} {
-           set before [string range $host 0 [expr {$bang - 1}]]
            set after [string range $host [expr {$bang + 1}] end]
+           if {$bang} {
+             set before [string range $host 0 [expr {$bang - 1}]]
+           } else {
+             set before $after
+           }
            if {[local-address-p $before]} {
              set host $after
            } else {