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:

diff --git a/exec.tcl b/exec.tcl
index 508a02f72c10a7a0e2dc90848e083d134e2d8692..3fd75a321a6470b1edd33abaa0076036b112e9ce 100755 (executable)
--- 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 4900e338d376720a748abc312a3f1a34a1848d0f..b2f76b220f3c944b5b498fb0603a43d8d5eaffc8 100755 (executable)
--- 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"