Commit fc68fee4 authored by Kirk Webb's avatar Kirk Webb

Rename induced san hosts something more interesting.

parent 9defdfa0
...@@ -121,12 +121,13 @@ Blockstore instproc get_node {} { ...@@ -121,12 +121,13 @@ Blockstore instproc get_node {} {
} }
# Allocate parent host and bind to it. # Allocate parent host and bind to it.
set node [$sim node] set hname "sanhost-${self}"
$node set subnodehost 1 uplevel "#0" "set $hname [$sim node]"
$node set subnodechild $self $hname set subnodehost 1
$hname set subnodechild $self
# Return parent node object. # Return parent node object.
return $node return $hname
} }
# updatedb DB # updatedb DB
......
...@@ -562,16 +562,11 @@ proc parse_bw {bspec {islink 1}} { ...@@ -562,16 +562,11 @@ proc parse_bw {bspec {islink 1}} {
# Special cases # Special cases
# #
# "*" means let assign pick the bandwidth. Make it zero. # "*" means let assign pick the bandwidth. Make it zero.
#
# "~" means "best effort" bandwidth - not conservatively allocated. # "~" means "best effort" bandwidth - not conservatively allocated.
# Used when links may be multiplexed onto hosts, where the hosts
# should not attempt to guarantee bandwidth. Make this case -1.
# #
if {"$bspec" == "*"} { if {"$bspec" == "*" || "$bspec" == "~"} {
return 0 return 0
} elseif {"$bspec" == "~"} { }
return -1
}
# Default to bytes # Default to bytes
if {[scan $bspec "%f%s" bw unit] == 1} { if {[scan $bspec "%f%s" bw unit] == 1} {
......
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