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

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

parent 7cb42193
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# EMULAB-COPYRIGHT # 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. # All rights reserved.
# #
package Node; package Node;
...@@ -470,6 +470,19 @@ sub IsReserved($) ...@@ -470,6 +470,19 @@ sub IsReserved($)
return 1; 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. # 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