123 lines
2.7 KiB
Perl
Executable File
123 lines
2.7 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
FindBin::again();
|
|
use Path::Class 'dir';
|
|
|
|
BEGIN {
|
|
# stuff useful locations into @INC
|
|
unshift @INC,
|
|
dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
|
|
dir($FindBin::RealBin, 'lib')->stringify;
|
|
}
|
|
|
|
use App::Netdisco;
|
|
use Dancer qw/:moose :script/;
|
|
warning sprintf "App::Netdisco %s backend", ($App::Netdisco::VERSION || 'HEAD');
|
|
|
|
# local job queue management
|
|
use App::Netdisco::Daemon::LocalQueue ':all';
|
|
|
|
# needed to quench AF_INET6 symbol errors
|
|
use NetAddr::IP::Lite ':lower';
|
|
use List::Util 'sum';
|
|
use Role::Tiny::With;
|
|
use MCE::Signal '-setpgrp';
|
|
use MCE;
|
|
|
|
# set temporary MCE files' location in home directory
|
|
my $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});
|
|
my $tmp_dir = ($ENV{NETDISCO_TEMP} || dir($home, 'tmp'));
|
|
mkdir $tmp_dir if ! -d $tmp_dir;
|
|
|
|
my $mce = MCE->new(
|
|
spawn_delay => 0.15,
|
|
job_delay => 1.15,
|
|
tmp_dir => $tmp_dir,
|
|
user_func => sub { $_[0]->worker_body },
|
|
on_post_exit => \&restart_worker,
|
|
user_tasks => build_tasks_list(),
|
|
)->run();
|
|
|
|
sub build_tasks_list {
|
|
# NB MCE does not like max_workers => 0
|
|
my $tasks = [];
|
|
|
|
push @$tasks, {
|
|
max_workers => 1,
|
|
user_begin => worker_factory('Manager'),
|
|
} if num_workers() > 0;
|
|
|
|
push @$tasks, {
|
|
max_workers => 1,
|
|
user_begin => worker_factory('Scheduler'),
|
|
} if setting('housekeeping');
|
|
|
|
my @logmsg = ();
|
|
foreach my $key (keys %{setting('job_type_keys')}) {
|
|
my $val = setting('job_type_keys')->{$key};
|
|
|
|
setting('workers')->{$val} = 2
|
|
if !defined setting('workers')->{$val};
|
|
|
|
push @logmsg, setting('workers')->{$val} ." $key";
|
|
push @$tasks, {
|
|
max_workers => setting('workers')->{$val},
|
|
user_begin => worker_factory($key),
|
|
} if setting('workers')->{$val};
|
|
}
|
|
|
|
info sprintf "MCE will load: %s Manager, %s Scheduler, %s",
|
|
(num_workers() ? 1 : 0),
|
|
(setting('housekeeping') ? 1 : 0),
|
|
(join ', ', @logmsg);
|
|
|
|
return $tasks;
|
|
}
|
|
|
|
sub num_workers {
|
|
return sum( 0, map { setting('workers')->{$_} }
|
|
values %{setting('job_type_keys')} );
|
|
}
|
|
|
|
sub worker_factory {
|
|
my $role = shift;
|
|
return sub {
|
|
my $self = shift;
|
|
my $wid = $self->wid;
|
|
info "applying role $role to worker $wid";
|
|
|
|
# $self->sendto('stderr', ">>> worker $wid starting with role $role\n");
|
|
Role::Tiny->apply_roles_to_object($self, "App::Netdisco::Daemon::Worker::$role");
|
|
|
|
$self->worker_begin if $self->can('worker_begin');
|
|
};
|
|
}
|
|
|
|
sub restart_worker {
|
|
my ($self, $e) = @_;
|
|
reset_jobs($e->{wid});
|
|
|
|
debug "restarting worker $e->{wid}";
|
|
$self->restart_worker($e->{wid});
|
|
}
|
|
|
|
=head1 NAME
|
|
|
|
netdisco-daemon-fg - Job Control for Netdisco
|
|
|
|
=head1 SEE ALSO
|
|
|
|
=over 4
|
|
|
|
=item *
|
|
|
|
L<App::Netdisco>
|
|
|
|
=back
|
|
|
|
=cut
|