(Boeing r1756)
print warning when imn is loaded and EMANE model is missing/unknown
This commit is contained in:
parent
ce65d617c5
commit
9a190eb04e
1 changed files with 10 additions and 1 deletions
11
gui/wlan.tcl
11
gui/wlan.tcl
|
@ -254,10 +254,19 @@ proc moveNode { c node img xpos ypos dx dy } {
|
||||||
# called from cfgparse when loading imn file
|
# called from cfgparse when loading imn file
|
||||||
proc upgradeWlanConfigs {} {
|
proc upgradeWlanConfigs {} {
|
||||||
global node_list
|
global node_list
|
||||||
|
set model_list [getPluginsCapList]
|
||||||
foreach node $node_list {
|
foreach node $node_list {
|
||||||
if { [nodeType $node] != "wlan" } { continue }
|
if { [nodeType $node] != "wlan" } { continue }
|
||||||
set modcfg [netconfFetchSection $node "mobmodel"]
|
set modcfg [netconfFetchSection $node "mobmodel"]
|
||||||
if { [lindex $modcfg 0] == "range" } { upgradeWlanRangeConfig $node }
|
if { [lindex $modcfg 0] == "range" } {
|
||||||
|
upgradeWlanRangeConfig $node
|
||||||
|
set modcfg [netconfFetchSection $node "mobmodel"]
|
||||||
|
}
|
||||||
|
foreach model [lrange $modcfg 1 end] {
|
||||||
|
if { [lsearch $model_list "*=$model"] == -1 } {
|
||||||
|
puts "***Warning: missing model '$model'!"
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue