retry jobs once per week

2017-06-12 22:31:20 +01:00
parent 33454669e3
commit ef0d326287
5 changed files with 25 additions and 18 deletions
--- a/lib/App/Netdisco/JobQueue/PostgreSQL.pm
+++ b/lib/App/Netdisco/JobQueue/PostgreSQL.pm
@@ -44,7 +44,8 @@ sub _getsome {
  my $rs = $jobs->search({
    status => 'queued',
    device => { '-not_in' =>
-      $jobs->skipped($fqdn, setting('workers')->{'max_deferrals'})
+      $jobs->skipped($fqdn, setting('workers')->{'max_deferrals'},
+                            setting('workers')->{'retry_after'})
           ->columns('device')->as_query },
    %$where,
  }, { order_by => 'random()', rows => $num_slots });