From e486e04069a8185e7720a32fa7bfdd327b86083a Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Tue, 12 Jul 2005 21:31:55 +0000
Subject: [PATCH] Move a few exec calls to external programs away from
 imunes.tcl to exec.tcl -> GUI can run on FreeBSD 5.X in edit-only mode

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 exec.tcl   | 3 +++
 imunes.tcl | 3 ---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/exec.tcl b/exec.tcl
index 508a02f..3fd75a3 100755
--- a/exec.tcl
+++ b/exec.tcl
@@ -36,6 +36,7 @@
 
 proc setOperMode { mode } {
     global oper_mode activetool nodes
+    global nmbufs nmbclusters
 
     # Verify that links to external interfaces are properly configured
     if { $mode == "exec" } {
@@ -72,6 +73,8 @@ proc setOperMode { mode } {
 	.menubar.edit entryconfigure "Undo" -state disabled
 	.menubar.edit entryconfigure "Redo" -state disabled
 	set oper_mode exec
+	set nmbufs [lindex [split [exec sysctl kern.ipc.nmbufs]] 1]
+	set nmbclusters [lindex [split [exec sysctl kern.ipc.nmbclusters]] 1]
 	monitor_loop
 	deployCfg
     } else {
diff --git a/imunes.tcl b/imunes.tcl
index 4900e33..b2f76b2 100755
--- a/imunes.tcl
+++ b/imunes.tcl
@@ -107,9 +107,6 @@ set showIfIPaddrs 1
 set showNodeLabels 1
 set showLinkLabels 1
 
-set nmbufs [lindex [split [exec sysctl kern.ipc.nmbufs]] 1]
-set nmbclusters [lindex [split [exec sysctl kern.ipc.nmbclusters]] 1]
-
 set supp_router_models "quagga static"
 if { [file exists /usr/local/xorp/bin/xorp_rtrmgr] } {
     set supp_router_models "xorp $supp_router_models"
-- 
2.39.5