save pid file so we can restart workers

diff --git a/gearman_driver.pl b/gearman_driver.pl
index 91ee258..3f61749 100755 (executable)
--- a/gearman_driver.pl
+++ b/gearman_driver.pl
@@ -49,4 +49,9 @@ my $driver = Gearman::Driver->new(
                },
        },
 );
+
+open(my $pid, '>', '/tmp/apkpm.driver.pid');
+print $pid "$$\n";
+close $pid;
+
 $driver->run;

diff --git a/persistant_worker.pl b/persistant_worker.pl
index e14d48e..29a0ece 100755 (executable)
--- a/persistant_worker.pl
+++ b/persistant_worker.pl
@@ -210,5 +210,9 @@ $driver->add_job({
        } ],
 });
 
+open(my $pid, '>', "/tmp/apkpm.$variant.pid");
+print $pid "$$\n";
+close $pid;
+
 $driver->run;