Commit 73f9ddd7 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Add MarkNodesForUpdate() method; forces account update on all nodes in

an experiment.
parent 6938f942
......@@ -4995,5 +4995,25 @@ sub GetVirtNodeAttribute($$$$)
return 0;
}
#
# Mark all nodes for (account) update.
#
sub MarkNodesForUpdate($)
{
my ($self) = @_;
my @nodelist = $self->NodeList(0, 1);
return 0
if (! @nodelist);
foreach my $node (@nodelist) {
next
if ($node->erole() eq TBDB_RSRVROLE_NODE());
$node->MarkForUpdate();
}
return 0;
}
# _Always_ make sure that this 1 is at the end of the file...
1;
Supports Markdown
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