Commit 3a334240 authored by Leigh Stoller's avatar Leigh Stoller

Kill off TBIsNodeImageable()

parent d40cfb93
......@@ -172,7 +172,7 @@ use vars qw(@ISA @EXPORT);
TBOSLoadMaxOkay TBImageLoadMaxOkay TBImageID
TBdbfork VnameToNodeid
TBIsNodeRemote
TBIsNodeImageable TBIsNodeVirtual TBControlNetIP TBPhysNodeID
TBIsNodeVirtual TBControlNetIP TBPhysNodeID
TBNodeUpdateAccountsByPid TBNodeUpdateAccountsByType
TBNodeUpdateAccountsByUID
TBExptWorkDir TBExptUserDir
......@@ -1694,33 +1694,6 @@ sub TBGetNodeAllocState($$)
return 1;
}
#
# Is a node imageable?
#
# usage TBIsNodeImageable(char *node)
# Returns 1 if yes.
# Returns 0 if no.
#
sub TBIsNodeImageable($)
{
my ($nodeid) = @_;
my $node = Node->Lookup($nodeid);
return 0
if (!defined($node));
my $imageable;
return 0
if ($node->NodeTypeAttribute("imageable", \$imageable) != 0);
$imageable = 0
if (!defined($imageable));
return $imageable;
}
#
# Is a node remote?
#
......
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