after forking the actual worker process, the child/worker
sets a flag that can be checked later on by methods called
in the worker.
used in the ZFS storage plugins in pve-storage to decide on
a short or long default timeout for ZFS operations.
# that (also see perlipc)
my $WORKER_PIDS;
+my $WORKER_FLAG = 0;
my $log_task_result = sub {
my ($upid, $user, $status) = @_;
return $self->{user};
}
+sub is_worker {
+ return $WORKER_FLAG;
+}
+
# read/update list of active workers
# we move all finished tasks to the archive index,
# but keep aktive and most recent task in the active file.
if (!$cpid) { # child
$0 = "task $upid";
+ $WORKER_FLAG = 1;
$SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub { die "received interrupt\n"; };