Merge branch 'oikuda-master'

This pull request enables usage of different docker images instead of
the default imunes/template one.

Author: denisSal

config/nodecfg.tcl

@@ -2688,6 +2688,47 @@ proc setNodeServices { node services } {
     }
 }
 
+#****f* nodecfg.tcl/getNodeDockerImage
+# NAME
+#   getNodeDockerImage -- get node docker image.
+# SYNOPSIS
+#   set value [getNodeDockerImage $node]
+# FUNCTION
+#   Returns node docker image setting.
+# INPUTS
+#   * node -- node id
+# RESULT
+#   * status -- docker image identifier
+#****
+proc getNodeDockerImage { node } {
+    upvar 0 ::cf::[set ::curcfg]::$node $node
+
+    return [lindex [lsearch -inline [set $node] "docker-image *"] 1]
+}
+
+#****f* nodecfg.tcl/setNodeDockerImage
+# NAME
+#   setNodeDockerImage -- set node docker image.
+# SYNOPSIS
+#   setNodeDockerImage $node $img
+# FUNCTION
+#   Sets node docker image.
+# INPUTS
+#   * node -- node id
+#   * img -- image identifier
+#****
+proc setNodeDockerImage { node img } {
+    upvar 0 ::cf::[set ::curcfg]::$node $node
+
+    set i [lsearch [set $node] "docker-image *"]
+    if { $i >= 0 } {
+	set $node [lreplace [set $node] $i $i]
+    }
+    if { $img != "" } {
+	lappend $node [list docker-image $img]
+    }
+}
+
 #****f* nodecfg.tcl/getNodeDockerAttach
 # NAME
 #   getNodeDockerAttach -- get node docker ext ifc attach.

gui/debug.tcl

@@ -104,10 +104,6 @@ proc registerModule { module } {
     }
 }
 
-proc allSnapshotsAvailable {} {
-    return 1
-}
-
 proc logCaller {} {
     set r [catch {info level [expr [info level] - 1]} e]
     set r2 [catch {info level [expr [info level] - 2]} e2]

gui/mouse.tcl

@@ -1336,8 +1336,8 @@ proc button1-release { c x y } {
 	# if there is an object beneath the cursor and an object was
 	# selected by the button1 procedure create a link between nodes
 	if {$destobj != "" && $curobj != "" && $destobj != $curobj} {
-	    set lnode1 [lindex [$c gettags $curobj] 1]
-	    set lnode2 [lindex [$c gettags $destobj] 1]
+	    set lnode1 [lindex [$c gettags $destobj] 1]
+	    set lnode2 [lindex [$c gettags $curobj] 1]
 	    if { [ifcByLogicalPeer $lnode1 $lnode2] == "" } {
 		set link [newLink $lnode1 $lnode2]
 		if { $link != "" } {