return (
'pidfile=s' => \$self->{gd_args}{pidfile},
'n=s' => \$self->{gd_args}{progname},
+ 'j=s@' => \$self->{gd_args}{job_name},
);
}
sub _do_work {
my ($self, $fn) = @_;
+ my @job_name = @{ $self->{gd_args}{job_name} // [] };
my $jq = Bugzilla->job_queue();
$jq->set_verbose($self->{debug});
$jq->set_pidfile($self->{gd_pidfile});
- foreach my $module (values %{ Bugzilla::JobQueue->job_map() }) {
+ while (my ($key, $module) = each %{ Bugzilla::JobQueue->job_map() }) {
+ next if @job_name and ! grep { $_ eq $key } @job_name;
eval "use $module";
$jq->can_do($module);
}
./jobqueue.pl [OPTIONS] COMMAND
OPTIONS:
- -f Run in the foreground (don't detach)
- -d Output a lot of debugging information
- -p file Specify the file where jobqueue.pl should store its current
- process id. Defaults to F<data/jobqueue.pl.pid>.
- -n name What should this process call itself in the system log?
- Defaults to the full path you used to invoke the script.
-
+ -f Run in the foreground (don't detach)
+ -d Output a lot of debugging information
+ -p file Specify the file where jobqueue.pl should store its current
+ process id. Defaults to F<data/jobqueue.pl.pid>.
+ -n name What should this process call itself in the system log?
+ Defaults to the full path you used to invoke the script.
+ -j job-name The name of jobs to process. Can be specified multiple times.
+ If not specified, all job types will be processed.
COMMANDS:
start Starts a new jobqueue daemon if there isn't one running already
stop Stops a running jobqueue daemon