Commit 7af014a3 authored by Christopher Alfeld's avatar Christopher Alfeld

Added code for fixed nodes. tb-fix-node command.

parent c81da471
......@@ -40,6 +40,7 @@ Node instproc init {s} {
$self set deltas ""
$self set tarfiles ""
$self set failureaction "fatal"
$self set fixed ""
}
# The following procs support renaming (see README)
......@@ -78,6 +79,7 @@ Node instproc updatedb {DB} {
$self instvar tarfiles
$self instvar failureaction
$self instvar routertype
$self instvar fixed
var_import ::GLOBALS::pid
var_import ::GLOBALS::eid
var_import ::GLOBALS::default_ip_routing_type
......@@ -99,7 +101,7 @@ Node instproc updatedb {DB} {
}
# Update the DB
sql exec $DB "insert into virt_nodes (pid,eid,vname,type,ips,osid,cmd_line,rpms,deltas,startupcmd,tarfiles,failureaction,routertype) values (\"$pid\",\"$eid\",\"$self\",\"$type\",\"$ipraw\",\"$osid\",\"$cmdline\",\"$rpms\",\"$deltas\",\"$startup\",\"$tarfiles\",\"$failureaction\",\"$default_ip_routing_type\")";
sql exec $DB "insert into virt_nodes (pid,eid,vname,type,ips,osid,cmd_line,rpms,deltas,startupcmd,tarfiles,failureaction,routertype,fixed) values (\"$pid\",\"$eid\",\"$self\",\"$type\",\"$ipraw\",\"$osid\",\"$cmdline\",\"$rpms\",\"$deltas\",\"$startup\",\"$tarfiles\",\"$failureaction\",\"$default_ip_routing_type\",\"$fixed\")";
}
# add_lanlink lanlink
......
......@@ -282,4 +282,13 @@ proc tb-set-node-failure-action {node type} {
return
}
$node set failureaction $type
}
\ No newline at end of file
}
proc tb-fix-node {vnode pnode} {
if {[$vnode info class] != "Node"} {
perror "\[tb-fix-node] $node is not a node."
return
}
$vnode set fixed $pnode
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment