From: Kosta Pribić <kosta.pribic@gmail.com>
Date: Wed, 14 Oct 2009 18:33:33 +0000 (+0200)
Subject: Dodana global deklaracija za tcl_platform, bez nje iz nekog razloga skripta puca... 
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=c6448fffaf503068815e6e9a6c86c4df58ca0777;p=imunes.git

Dodana global deklaracija za tcl_platform, bez nje iz nekog razloga skripta puca - google kaze da je vjerojatno do verzije interpretera
---

diff --git a/linux/exec.tcl b/linux/exec.tcl
index ff8b5d9..ce85e55 100755
--- 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