use do_high for CRM_search

[APKPM.git] / gearman_driver.pl

diff --git a/gearman_driver.pl b/gearman_driver.pl
index 268519b..667c928 100755 (executable)
--- a/gearman_driver.pl
+++ b/gearman_driver.pl
@@ -4,6 +4,9 @@ use warnings;
 use Gearman::Driver;
 use lib 'lib';
 
+my $dir = $0;
+$dir =~ s{/[^/]+$}{};
+chdir $dir || die "can't chdir into $dir";
 
 $SIG{__WARN__} = sub { print STDERR @_ if $ENV{DEBUG} };
 
@@ -15,19 +18,36 @@ my $driver = Gearman::Driver->new(
        server     => $ENV{GEARMAN} || 'localhost:4730',
        interval   => 3,
        job_runtime_attributes => {
-               'APKPM::Poll::ip_username' => {
-                       max_processes => 100,
-                       min_processes => 1,
+               'APKPM::CPE::poll' => {
+                       max_processes => 1,
+                       min_processes => 0,
                },
-               'APKPM::Ping::ping' => {
-                       max_processes => 100,
+               'APKPM::CPE::info' => {
+                       max_processes => 40,
+                       min_processes => 0,
                },
-               'APKPM::Davolink::info' => {
-                       max_processes => 60,
+               'APKPM::Ping::ping' => {
+                       max_processes => 1,
+                       min_processes => 0,
                },
                'APKPM::Store::insert' => {
+                       max_processes => 2,
+                       min_processes => 0,
+               },
+
+               'APKPM::DSLAM::search' => {
                        max_processes => 10,
+                       min_processes => 0,
+               },
+               'APKPM::CRM::search' => {
+                       max_processes => 3,
+                       min_processes => 0,
                },
        },
 );
+
+open(my $pid, '>', '/tmp/apkpm.driver.pid');
+print $pid "$$\n";
+close $pid;
+
 $driver->run;