~mdw
/
zoneconf
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
zoneconf.in: More master-map hacking: !ADDR means ADDR!ADDR.
[zoneconf]
/
zoneconf.in
diff --git
a/zoneconf.in
b/zoneconf.in
index
4a6713f
..
edf1184
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} {
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]
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 {
if {[local-address-p $before]} {
set host $after
} else {