gearman_driver.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Gearman::Driver;
   5 use lib 'lib';
   6
   7
   8 $SIG{__WARN__} = sub { print STDERR @_ if $ENV{DEBUG} };
   9
  10 my $driver = Gearman::Driver->new(
  11         namespaces => [qw(APKPM)],
  12         configfile => 'config.yaml',
  13         loglevel   => 'DEBUG',
  14         logfile    => 'log/gearman.log',
  15         server     => $ENV{GEARMAN} || 'localhost:4730',
  16         interval   => 3,
  17         job_runtime_attributes => {
  18                 'APKPM::Poll::poll_prefix' => {
  19                         max_processes => 1,
  20                         min_processes => 1,
  21                 },
  22                 'APKPM::Poll::poll_ip_username' => {
  23                         max_processes => 100,
  24                         min_processes => 1,
  25                 },
  26                 'APKPM::Ping::ping' => {
  27                         max_processes => 100,
  28                 },
  29                 'APKPM::Davolink::info' => {
  30                         max_processes => 60,
  31                 },
  32                 'APKPM::Store::insert' => {
  33                         max_processes => 10,
  34                 },
  35         },
  36 );
  37 $driver->run;