Commit 2a68189c authored by Timothy Stack's avatar Timothy Stack

Add iscloud var

parent 01c9ef0b
# -*- tcl -*- # -*- tcl -*-
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2005 University of Utah and the Flux Group. # Copyright (c) 2000-2006 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
...@@ -262,6 +262,9 @@ LanLink instproc init {s nodes bw d type} { ...@@ -262,6 +262,9 @@ LanLink instproc init {s nodes bw d type} {
$self instvar cost $self instvar cost
$self instvar linkq $self instvar linkq
$self instvar iscloud
$self set iscloud 0
foreach node $nodes { foreach node $nodes {
set nodepair [list $node [$node add_lanlink $self]] set nodepair [list $node [$node add_lanlink $self]]
set bandwidth($nodepair) $bw set bandwidth($nodepair) $bw
......
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