drop libdigest-hmac-perl dependency

[pve-access-control.git] / PVE / RPCEnvironment.pm

diff --git a/PVE/RPCEnvironment.pm b/PVE/RPCEnvironment.pm
index 52c5f64ce0cf577b1785ba390afef9a97a179e43..3ec2c912d220498ca50303e23db5a25e0b67b0c1 100644 (file)
--- a/PVE/RPCEnvironment.pm
+++ b/PVE/RPCEnvironment.pm
@@ -28,6 +28,7 @@ my $pve_env;
 # that (also see perlipc)
 
 my $WORKER_PIDS;
+my $WORKER_FLAG = 0;
 
 my $log_task_result = sub {
     my ($upid, $user, $status) = @_;
@@ -614,6 +615,10 @@ sub get_user {
     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.
@@ -676,7 +681,7 @@ sub active_workers  {
        my @arlist = ();
        foreach my $task (@ta) {
            if (!$task->{saved}) {
-               $archive .= sprintf("$task->{upid} %08X $task->{status}\n", $task->{endtime});
+               $archive .= sprintf("%s %08X %s\n", $task->{upid}, $task->{endtime}, $task->{status});
                $save = 1;
                push @arlist, $task;
                $task->{saved} = 1;
@@ -808,6 +813,7 @@ sub fork_worker {
     if (!$cpid) { # child
 
        $0 = "task $upid";
+       $WORKER_FLAG = 1;
 
        $SIG{INT} = $SIG{QUIT} = $SIG{TERM} = sub { die "received interrupt\n"; };