daniell/pcurse
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Retrying failed checks once, maybe..

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-31 00:05:12 +02:00
parent 94d6f227ca
commit acc4a8f745
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pcurse
View File

@@ -67,7 +67,16 @@ while(scalar(keys %jobs)) {
push(@toupd,$nextjob); push(@toupd,$nextjob);
} elsif($jres[1] eq 'No need to update') { } elsif($jres[1] eq 'No need to update') {
} else { } else {
if(exists($jobs{$jobid}->{'retried'})) {
say 'Error during check: '.$jres[1]; say 'Error during check: '.$jres[1];
} else {
print 'Retrying '.$jobs{$jobid}{'job'}->{'name'}."\n";
$jobs{$jobid}{'job'}->{'retried'} = 1;
my $workid = $pool->job('check', $jobs{$jobid}{'job'});
$jobs{$workid}{'todo'} = 'check';
$jobs{$workid}{'job'} = $jobs{$jobid}{'job'};
$jobs{$workid}{'i'} = $jobs{$jobid}{'i'};
}
} }
delete $jobs{$jobid}; delete $jobs{$jobid};
print '.'; print '.';