From c6448fffaf503068815e6e9a6c86c4df58ca0777 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Kosta=20Pribi=C4=87?= <kosta.pribic@gmail.com>
Date: Wed, 14 Oct 2009 20:33:33 +0200
Subject: [PATCH] Dodana global deklaracija za tcl_platform, bez nje iz nekog
 razloga skripta puca - google kaze da je vjerojatno do verzije interpretera

---
 linux/exec.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.39.5