Dodana global deklaracija za tcl_platform, bez nje iz nekog razloga skripta puca...

diff --git a/linux/exec.tcl b/linux/exec.tcl
index ff8b5d980848c9d2f2e9d4bf4ffc4dec2c69cbb1..ce85e5576a1751f42d3cabd0236782e3c5f9c0dd 100755 (executable)
--- a/linux/exec.tcl
+++ b/linux/exec.tcl
@@ -161,6 +161,7 @@ proc setOperMode { mode } {
     .bottom.oper_mode configure -text "$mode mode"
     set activetool select
     .left.select configure -state active
+    global tcl_platform
     if { "$mode" == "exec" && $tcl_platform(user) == "root" } {
        global autorearrange_enabled
        set autorearrange_enabled 0
@@ -394,7 +395,8 @@ proc l3node.start { eid node } {
     set ve_boot_done "$ve_dir/tmp/imunes-boot-done"
     puts "  waiting for VE $ve_id to actually start..."
     while { ! [ file exists $ve_boot_done ] } {
-        after 100
+        after 300
+        puts -nonewline "."
     }
     puts "  detected VE $ve_id done"
     file delete $ve_boot_done