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::ip_username' => {
  19                         max_processes => 100,
  20                         min_processes => 1,
  21                 },
  22                 'APKPM::Ping::ping' => {
  23                         max_processes => 100,
  24                 },
  25                 'APKPM::Davolink::info' => {
  26                         max_processes => 60,
  27                 },
  28                 'APKPM::Store::insert' => {
  29                         max_processes => 10,
  30                 },
  31         },
  32 );
  33 $driver->run;