chiark
/
gitweb
/
~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 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} {
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 {