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

Dump the node_types aux types into the auto generated TCL code that

preceeds the NS file. These are the auxtypes that a node in your ns
file is allowed to be, and comes from node_types_auxtypes. This is not
to be confused with node_auxtypes, which indicate which physical nodes
supply the desired types.
parent cb71e741
......@@ -389,6 +389,24 @@ sub GenDefsFile($)
}
print TCL "\n";
print TCL "# Node Aux Types\n";
$query_result =
DBQueryFatal("select at.auxtype,".
" isremotenode,isvirtnode,osname,issubnode ".
" from node_types_auxtypes as at ".
"left join node_types as nt on nt.type=at.type ".
"left join os_info as o on nt.osid=o.osid");
while (my ($type,$isrem,$isvirt,$osid,$issubnode) =
$query_result->fetchrow_array()) {
print TCL "set hwtypes($type) 1\n";
print TCL "set isremote($type) $isrem\n";
print TCL "set isvirt($type) $isvirt\n";
print TCL "set issubnode($type) $issubnode\n";
print TCL "set default_osids($type) \"$osid\"\n"
if (defined($osid) && $osid ne "");
}
print TCL "\n";
print TCL "# Node Permissions\n";
my %nodeperms = ();
$query_result =
......
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