konzistentnije dijagnosticke poruke

diff --git a/linux/exec.tcl b/linux/exec.tcl
index be7f1d644b30a8784203d3b7de21d9b0b787f157..6fc3b48f3b3fc993dec20596617e11f5b4270218 100755 (executable)
--- a/linux/exec.tcl
+++ b/linux/exec.tcl
@@ -484,8 +484,9 @@ proc l3node.start { eid node } {
        set bootcfg [[typemodel $node].cfggen $node]
        set bootcmd [[typemodel $node].bootcmd $node]
     }
-    puts "  typemodel=[typemodel $node]"
-    puts "bootcfg=$bootcfg i bootcmd=$bootcmd"
+    puts "  typemodel = [typemodel $node]"
+    puts "  bootcmd = $bootcmd"
+    puts "  bootcfg = $bootcfg"
     if { ! $remote_exec } {
         if { $bootcmd != "/bin/sh" } {
                puts "  writing $node_dir/boot.conf"
@@ -505,7 +506,7 @@ proc l3node.start { eid node } {
 
     if { $bootcmd == "/bin/sh" } {
         foreach line $bootcfg {
-               puts "  executing on $node: $line"
+#              puts "  executing on $node: $line"
                set command $line
                if { "$command" != "" } {
                    catch { nexec vzctl exec $node_id $command } ret
@@ -596,7 +597,7 @@ proc l3node.destroy { eid node } {
 #    }
 
     set msg "Destroying VE $node ($node_id)"
-    puts "\n$msg"
+    puts "  $msg"
     statline $msg
     nexec vzctl destroy $node_id
 }