From 494e04654c3a3c7a776527caacc0c4bdc8265458 Mon Sep 17 00:00:00 2001
From: "ahrenholz@gmail.com"
 <ahrenholz@gmail.com@286e914e-1314-11de-a46f-cd5bcf99231e>
Date: Thu, 29 Aug 2013 20:32:12 +0000
Subject: [PATCH] (Boeing r1756) print warning when imn is loaded and EMANE
 model is missing/unknown

---
 trunk/gui/wlan.tcl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/trunk/gui/wlan.tcl b/trunk/gui/wlan.tcl
index 832eec9b..b25cdeb6 100755
--- a/trunk/gui/wlan.tcl
+++ b/trunk/gui/wlan.tcl
@@ -254,10 +254,19 @@ proc moveNode { c node img xpos ypos dx dy } {
 # called from cfgparse when loading imn file
 proc upgradeWlanConfigs {} {
     global node_list
+    set model_list [getPluginsCapList]
     foreach node $node_list {
 	if { [nodeType $node] != "wlan" } { continue }
 	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'!"
+	    }
+	}
     }
 }