Commit b2aec4c9 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor tweaks so that we can default boss/ops to pc850s, but allow us

to override from the NS file. In your NS file:

	namespace eval TBCOMPAT {
		set elabinelab_fixnodes("boss") pc171
	        set elabinelab_hardware("boss") pc2000
	        set elabinelab_hardware("ops")  pc2000
	}
parent edcb810c
......@@ -5,13 +5,35 @@
set myboss [$ns node]
set myops [$ns node]
tb-set-hardware $myboss pc2000
tb-set-hardware $myops pc850
tb-set-node-inner-elab-role $myboss boss
tb-set-node-inner-elab-role $myops ops
tb-fix-node $myboss pc171
if {[info exists ::TBCOMPAT::elabinelab_hardware("boss")]} {
namespace eval TBCOMPAT {
tb-set-hardware $myboss $elabinelab_hardware("boss")
}
} else {
tb-set-hardware $myboss pc850
}
if {[info exists ::TBCOMPAT::elabinelab_hardware("ops")]} {
namespace eval TBCOMPAT {
tb-set-hardware $myops $elabinelab_hardware("ops")
}
} else {
tb-set-hardware $myops pc850
}
if {[info exists ::TBCOMPAT::elabinelab_fixnodes("boss")]} {
namespace eval TBCOMPAT {
tb-fix-node $myboss $elabinelab_fixnodes("boss")
}
}
if {[info exists ::TBCOMPAT::elabinelab_fixnodes("ops")]} {
namespace eval TBCOMPAT {
tb-fix-node $myops $elabinelab_fixnodes("ops")
}
}
tb-make-soft-vtype pcslow {pc600 pc850}
#
......
# -*- tcl -*-
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# Copyright (c) 2000-2005 University of Utah and the Flux Group.
# All rights reserved.
#
......@@ -141,6 +141,8 @@ namespace eval TBCOMPAT {
# ElabInElab stuff. Do not initialize.
variable elabinelab_maxpcs
variable elabinelab_hardware
variable elabinelab_fixnodes
# Mapping of "resource classes" and "reservation types" to bootstrap
# values, where a resource class is a symbolic string provided by the user
......
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