~mdw
/
zoneconf
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
zoneconf.in (local-addresses-p): Set fake addresses in env var.
[zoneconf]
/
zoneconf.in
diff --git
a/zoneconf.in
b/zoneconf.in
index
43892db
..
d16e74a
100755
(executable)
--- a/
zoneconf.in
+++ b/
zoneconf.in
@@
-942,12
+942,21
@@
proc host-canonify {host} {
proc local-address-p {addr} {
## Answer whether the ADDR is one of the host's addresses.
proc local-address-p {addr} {
## Answer whether the ADDR is one of the host's addresses.
+ global env
- if {[catch { set sk [socket -server {} -myaddr $addr 0] }]} {
- return false
+ if {[info exists env(ZONECONF_LOCAL_ADDRESSES)]} {
+ if {[string match "*:$addr:*" ":$env(ZONECONF_LOCAL_ADDRESSES):"]} {
+ return true
+ } else {
+ return false
+ }
} else {
} else {
- close $sk
- return true
+ if {[catch { set sk [socket -server {} -myaddr $addr 0] }]} {
+ return false
+ } else {
+ close $sk
+ return true
+ }
}
}
}
}