rename *-daemon apps to be *-backend

Squashed commit of the following: commit 39b438aa4b Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:40:11 2017 +0100 add release notes commit ca4ea90d35 Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:32:06 2017 +0100 update distmeta commit 4e35b904b0 Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:30:22 2017 +0100 rename files from Daemon to Backend commit 86a605ba68 Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:26:43 2017 +0100 rename daemon to backend in code commit ffe8fc180f Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 16:15:57 2017 +0100 add daemon files which exec to backend equivalents commit 53e041594e Author: Oliver Gorwits <oliver@cpan.org> Date: Sat May 6 15:32:49 2017 +0100 rename netdisco-daemon to netdisco-backend
2017-05-06 16:40:48 +01:00
parent db9d98b69b
commit d74ccac4f6
33 changed files with 537 additions and 461 deletions
--- a/lib/App/Netdisco/Backend/Worker/Scheduler.pm
+++ b/lib/App/Netdisco/Backend/Worker/Scheduler.pm
@@ -0,0 +1,80 @@
+package App::Netdisco::Backend::Worker::Scheduler;
+
+use Dancer qw/:moose :syntax :script/;
+
+use Algorithm::Cron;
+use App::Netdisco::Util::Backend;
+
+use Role::Tiny;
+use namespace::clean;
+
+use App::Netdisco::JobQueue qw/jq_insert/;
+
+sub worker_begin {
+  my $self = shift;
+  my $wid = $self->wid;
+
+  return debug "sch ($wid): no need for scheduler... skip begin"
+    unless setting('schedule');
+
+  debug "entering Scheduler ($wid) worker_begin()";
+
+  foreach my $action (keys %{ setting('schedule') }) {
+      my $config = setting('schedule')->{$action};
+
+      # accept either single crontab format, or individual time fields
+      $config->{when} = Algorithm::Cron->new(
+        base => 'local',
+        %{
+          (ref {} eq ref $config->{when})
+            ? $config->{when}
+            : {crontab => $config->{when}}
+        }
+      );
+  }
+}
+
+sub worker_body {
+  my $self = shift;
+  my $wid = $self->wid;
+
+  unless (setting('schedule')) {
+      prctl sprintf 'netdisco-backend: worker #%s scheduler: inactive', $wid;
+      return debug "sch ($wid): no need for scheduler... quitting"
+  }
+
+  while (1) {
+      # sleep until some point in the next minute
+      my $naptime = 60 - (time % 60) + int(rand(45));
+
+      prctl sprintf 'netdisco-backend: worker #%s scheduler: idle', $wid;
+      debug "sched ($wid): sleeping for $naptime seconds";
+
+      sleep $naptime;
+      prctl sprintf 'netdisco-backend: worker #%s scheduler: queueing', $wid;
+
+      # NB next_time() returns the next *after* win_start
+      my $win_start = time - (time % 60) - 1;
+      my $win_end   = $win_start + 60;
+
+      # if any job is due, add it to the queue
+      foreach my $action (keys %{ setting('schedule') }) {
+          my $sched = setting('schedule')->{$action};
+
+          # next occurence of job must be in this minute's window
+          debug sprintf "sched ($wid): $action: win_start: %s, win_end: %s, next: %s",
+            $win_start, $win_end, $sched->{when}->next_time($win_start);
+          next unless $sched->{when}->next_time($win_start) <= $win_end;
+
+          # queue it!
+          info "sched ($wid): queueing $action job";
+          jq_insert({
+            action => $action,
+            device => $sched->{device},
+            extra  => $sched->{extra},
+          });
+      }
+  }
+}
+
+1;