Commit ebadc7d1 authored by Leigh Stoller's avatar Leigh Stoller

Extend cheesy hack for nodes that take a long time to reload,

like a mellanox switch.
parent d6e0bcfe
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2016 University of Utah and the Flux Group.
# Copyright (c) 2000-2016, 2018 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -344,14 +344,22 @@ while (1) {
#
foreach my $aref (@curnodes) {
my ($handled, $node, $mustwipe, $rtime, $isremote) = @$aref;
my $multiplier = 0;
if ($handled || $retry_time <= 0) {
next;
}
my $nodeobj = Node->Lookup($node);
if (defined($nodeobj) && $nodeobj->isswitch()) {
$multiplier = 2;
$nodeobj->Flush();
}
elsif ($isremote) {
$multiplier = $widearea_multiplier;
}
my $interval =
($retry_time * ($mustwipe + 1) +
($isremote * $retry_time * $widearea_multiplier)) * 60;
($retry_time * $multiplier)) * 60;
# XXX this is a relative interval
my $stime = $retried{$node} ? $retried{$node} : $rtime;
......
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