From ded3e9058c8f7e0d9978c7ce4cd03e9f10b15929 Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Tue, 7 Mar 2006 10:00:45 +0000
Subject: [PATCH] For each serial interface shutdown respective hdlc. (in
 l3node.destroy)

Bug found by:MM
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl | 5 +++++
 imunes   | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/exec.tcl b/exec.tcl
index 25481e9..644c862 100755
--- a/exec.tcl
+++ b/exec.tcl
@@ -476,6 +476,11 @@ proc l3node.destroy {eid node } {
     set node_id "$eid\_$node"
     foreach ifc [ifcList $node] {
 	catch { nexec ngctl msg $ifc@$node_id: shutdown }
+        set ifnum [string range $ifc 3 end]
+        set ifname [string range $ifc 0 2]
+        if { $ifname == "ser" } {
+	    catch { nexec ngctl msg hdlc$ifnum@$node_id: shutdown }
+        }
     }
     catch {nexec vimage -d $node_id}
     nexec rm -fr /tmp/$node_id
diff --git a/imunes b/imunes
index 67eafc0..6f60ee2 100755
--- a/imunes
+++ b/imunes
@@ -57,7 +57,7 @@ case $1 in
     exec tclsh8.4 $imunes "$@" 
     ;; 
 -v | --version) 
-    exec echo IMUNES version 2006-03-06
+    exec echo IMUNES version 2006-03-07
     ;; 
 *) 
     exec wish8.4 $imunes "$@" 
-- 
2.39.5