Commit 706fba74 authored by Leigh Stoller's avatar Leigh Stoller

Checkpoint MLE changes.

parent d5545977
This diff is collapsed.
# -*- tcl -*-
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2009 University of Utah and the Flux Group.
# Copyright (c) 2000-2010 University of Utah and the Flux Group.
# All rights reserved.
#
......@@ -487,6 +487,8 @@ Node instproc set_fixed {pnode} {
if {$issubnode} {
$pnode set subnodehost 1
$pnode set subnodechild $self
} elseif ($isvirt) {
# Need to check anything?
} else {
perror "\[set-fixed] Improper fix-node $self to $pnode!"
return
......
......@@ -38,10 +38,12 @@ Path instproc updatedb {DB} {
$self instvar sim
set idx 0
set layer 0
foreach link $mylinklist {
set fields [list "pathname" "segmentname" "segmentindex"]
set values [list $self $link $idx]
set layer [$link set layer]
set fields [list "pathname" "segmentname" "segmentindex" "layer"]
set values [list $self $link $idx $layer]
$sim spitxml_data "virt_paths" $fields $values
......
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