Commit 1cff2741 authored by Leigh Stoller's avatar Leigh Stoller

Add an IsUp() call to see if a node ISUP.

parent 7cb42193
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2005-2008 University of Utah and the Flux Group.
# Copyright (c) 2005-2009 University of Utah and the Flux Group.
# All rights reserved.
#
package Node;
......@@ -470,6 +470,19 @@ sub IsReserved($)
return 1;
}
#
# Is node up.
#
sub IsUp($)
{
my ($self) = @_;
return 0
if (! ref($self));
return $self->eventstate() eq TBDB_NODESTATE_ISUP;
}
#
# Determine if a node can be allocated to a project.
#
......
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